VBA - gumb za shranjevanje imena datoteke v celico

Težava

Ustvariti moram gumb, ki shrani spremenjeni dokument kot številko v določeni celici (npr. V A6).

Rešitev

 Zasebno podkarticoButton1_Click () '.xlsm ali xls odvisno, če želite shraniti makre. ActiveWorkbook.SaveAs Ime datoteke: = "c: arhiv" & Celice (1, 6) & ".xlsm" celice (1, 5) = "Arhivirano" Če so celice (1, 5) = "arhivirane", potem CommandButton1.Visible = Napačen konec Če končate Sub 

Hvala za f894009 za ta namig.