VBA - En knapp för att spara filnamn för ett dokument till en cell

Problem

Jag måste skapa en knapp som sparar ett ändrat dokument som ett tal i en viss cell (t.ex. i A6).

Lösning

 Privat Sub CommandButton1_Click () '.xlsm eller xls beroende om du vill spara makron. ActiveWorkbook.SaveAs Filnamn: = "c: \ archive \" & Celler (1, 6) & ".xlsm" Celler (1, 5) = "Arkiverad" Om celler (1, 5) = "Arkiverad" Då CommandButton1.Visible = False End If End Sub 

Tack vare f894009 för detta tips.