DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then
MsgBox "B1 değişti..."
End If
If Not Intersect(Target, Range("B2")) Is Nothing Then
MsgBox "B2 değişti..."
End If
End Sub
Merhaba,
Aşağıdaki yapıyı kendi kodlarınıza uyarlayabilirsiniz.
C++:Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B1")) Is Nothing Then MsgBox "B1 değişti..." End If If Not Intersect(Target, Range("B2")) Is Nothing Then MsgBox "B2 değişti..." End If End Sub