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