VBA - gumb za spremanje naziva datoteke dokumenta u ćeliju

Problem

Moram stvoriti gumb koji sprema modificirani dokument kao broj u određenu ćeliju (npr. U A6).

Riješenje

 Privatni Sub CommandButton1_Click () '.xlsm ili xls ovisi ako želite spremiti makronaredbe. ActiveWorkbook.SaveAs Naziv datoteke: = "c: arhiva" & Ćelije (1, 6) & ".xlsm" ćelije (1, 5) = "Arhivirano" Ako ćelije (1, 5) = "Arhivirano", onda CommandButton1.Visible = Pogrešan kraj ako završava pod 

Zahvaljujući f894009 za ovaj savjet.