hücreye makro atama

[muratozmenler]

sayfa1 de e1 hücresinde veri dogrulama var burada herhangi bir değer seçtiğimizde maro çalışmasını nasıl sağlarız....

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$E$1" Then Exit Sub
    MsgBox [e1].Text & " seçildi."
End Sub

 

[muratozmenler]

sayın hamitcan çalıştırmadı..

 

[hamitcan]

Kodu, Sayfa1'in kod bölümüne ekleyin.

 

[muratozmenler]

Kodu, Sayfa1'in kod bölümüne ekleyin.

ekliyorum fakat çalışmıyor yinede..
bakın dosyaya

 

[Orion1]

Dosyanız ekte.
Hamit beyin yazdığı kodun aynisini yazdım.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$E$1" Then Exit Sub
    MsgBox [e1].Text & " seçildi."
End Sub

 

[muratozmenler]

Teşekkür ederimde evren bey
şu an çalışıyor fakat yanlış yaptığım bir şeymi vardı ki çalışmadı???

 

[Orion1]

Teşekkür ederimde evren bey
şu an çalışıyor fakat yanlış yaptığım bir şeymi vardı ki çalışmadı???

Evet "$e$1"
E küçük harfti.
Oysa copy paste yapsaydınız çalışacaktı.

 

[muratozmenler]

evet "$[sıze="4"]e[/sıze]$1"
e küçük harfti.
Oysa copy paste yapsaydınız çalışacaktı.

teşekkür ederim evren bey tabi sayın hamitcanıda unutmuyorum onada teşekkür ederiyorum..