do ThisWorkbook napiste toto a pri zmene hociakeho udaju v bunke sa vypise range tej bunky
Private Sub aMacro(ByVal aRange As String)
MsgBox aRange
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For Each aCell In Target
If aCell = "100" Then aMacro aCell.Address
Next
End Sub
citovat
Private Sub aMacro(ByVal aRange As String)
MsgBox aRange
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For Each aCell In Target
If aCell = "100" Then aMacro aCell.Address
Next
End Sub
citovat