Hücreden macro çalıştırmak

[k0081]

Merhaba arkadaşlar;

F22:F28 adresindeki hücrelere;

F22 ödendi yazdığımda macro1 çalışsın..

F23..

F24 ödendi yazdığımda macro1 çalışsın..

F28..

gibi.. herbir hücre için geçerli olacak yani..

yardımcı arkadaş(a)lara şimdiden teşekkürler..

 

[dEdE]

Merhaba,
Sayfanın kod bölümüne yapıştırarak dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [F22:F28]) Is Nothing Then Exit Sub
    If Target.Value <> "ödendi" Then Exit Sub
    Makro1
End Sub

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [F22:F28]) Is Nothing Then Exit Sub
If ActiveCell.Value ="Ödendi" Then
MsgBox "Bunun Yerine Kodunuzu Yazınız", , Application.UserName
End If
End Sub

 

[k0081]

dEdE - Seyit Tiken

çok teşekkür ederim arkadaşlar ,, tamamdır..