VBA - przycisk do zapisywania nazwy pliku dokumentu w komórce

Kwestia

Muszę utworzyć przycisk, który zapisuje zmodyfikowany dokument jako liczbę w określonej komórce (np. W A6).

Rozwiązanie

 Private Sub CommandButton1_Click () '.xlsm lub xls w zależności od tego, czy chcesz zapisać makra. ActiveWorkbook.SaveAs Nazwa pliku: = „c: archiwum” i komórki (1, 6) i „.xlsm” Komórki (1, 5) = „Zarchiwizowane” Jeśli komórki (1, 5) = „Zarchiwizowane” Następnie Komenda1 = False End If End Sub 

Dzięki f894009 dla tej wskazówki.