dosyć prosto można to zrobić
Można to zrobic pisząc w ThisWorkbook:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'instrukcja sprawdzająca coś tam przy zmianie czegokolwiek w arkuszach
'(a przede wszystkim wpisaniu w komórkę czegoś) np.
If Sheets("Arkusz1").Cells(1, 1).Value = "" Then
MsgBox "Brak wartości w komórce A1"
End If
$$$$$$$$$$$$$ Tashmik $$$$$$$$$$$$$ |