
sub aa()
if range("F10") = "A" or range("F10") = "S" then call saldo
end sub |
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F10")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target = "A" Or Target = "a" Then
Call acconto
ElseIf Target = "S" Or Target = "s" Then
Call saldo
Else
MsgBox "dato non valido in F10"
End If
Application.EnableEvents = True
End Sub
Sub acconto()
'' Tuoi dati nella macro
MsgBox "Acconto"
End Sub
Sub saldo()
'' Tuoi dati nella macro
MsgBox "saldo"
End Sub
|
sub aa()
if range("F10") = "A" then
call saldo
elseif range("F10") = "S" then
call acconto
end if
end sub |
sub aa()
if range("F10") = "S" then
call saldo
elseif range("F10") = "A" then
call acconto
end if
end sub |
