1) Evo rutine koja čuva
Sub MySave()
' Rutina koja cuva aktivnu radnu svesku pod imenom upisanim u celiji A1
Dim Fname As String
Fname = "C:\" & Range("A1").Text & ".xls" ' izmeniti putanju i adresu celije za ime
Application.DisplayAlerts = False ' ukida potvrdu za snimanje preko postojece
ActiveWorkbook.SaveAs (Fname)
Application.DisplayAlerts = True
End Sub
Za ovaj makro možeš napraviti novu ikonicu u toolbaru (Tools/Customize) baš hoćeš da dodaš ovaj makro na postojeću ikonicu Save (kad je uključen Customize scree, otvori konteksni meni za ikonicu Save pa Assign Makro.
2) Snimi makro za Print pa ga aktiviraj iz dogadaja SelectionChange worksheet-a
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Text = "Test" Then
....
O reagovanju na događaje možeš naći na adresi
[url]http://www.praktikum.co.yu/office/vba/vba_014.htm [/url]
3) Čini mi se najbolje da staviš uslovno formatiranje (Format/Conditional Formating) - npr zadaš kriterijum ćeliju koja je equal to 0 (tj. prazna) označi sa crvenim okvirom.
Proveru možeš da obaviš i na događaj BeforeSave gde bi ispisao poruku Nije popunjena ćelija ...
Nije to loše Rembrante, samo što ne bi dodao još malo boje?