A1 hücresi değiştiğinde cari adlı makroyu çalıştırm

[bezl]

A1 hücresi değiştiğinde cari adlı makronun çalışmasını istiyorum aşağıdaki kodu denedim hiçbir tepki vermiyor. ne yapabilirim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a1] = Application.Run("cari")
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:90db194d8c]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Application.Run ("cari")
End Sub
[/vb:1:90db194d8c]

veya

[vb:1:90db194d8c]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Call cari
End Sub
[/vb:1:90db194d8c]

 

[bezl]

A1 veya B1 veya C1 herhangi biri değiştiğinde cari makroyu çalıştır nasıl derim
or ile denedim hata verdi.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:27f99e4a08]Private Sub Worksheet_Change(ByVal Target As Range)
adres = Target.Address
If adres = "$A$1" Or adres = "$B$1" Or adres = "$C$1" Then
Call cari
End If
End Sub
[/vb:1:27f99e4a08]

 

[bezl]

Çok teşekkür ederim.

 

[Levent Menteşoğlu]

Þimdi aklıma geldi, aşağıdaki gibi intersect komutunun kullanıldığı bir kodda tercih edilebilir. Bunuda bilgi olması açısından veriyorum.

[vb:1:30df28a382]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:c1]) Is Nothing Then Exit Sub
Call cari
End Sub
[/vb:1:30df28a382]