açılabilir liste

[byhayalet]

Merhaba ,
öncelikle şimdiden ilginiz için teşekkürler.

benim sorunum

Private Sub Worksheet_Change(ByVal Target As Range)
If [s11] <> "" Then [x11] = [s11]
End Sub

sayfadaki değişikliği algıladığında istediğimi yapması istiyorum.ama bir türlü olmuyor.
iki hücrede açılabilir liste sanırım bundan bir hata veriyor ama anlayamadım.
açılabilir listedeki yazıyı diğerine yazmaya çalışıyorum elle yazabiliyorum ama yukarıdaki komutlarla olmuyor hata veriyor.

Method _Default of object Range failed

iyi çalışmalar kolay gelsin...

 

[Murat OSMA]

Dosyanız üzerinde ne yapmak istediğinizi belirtip ekler misiniz ?

 

[byhayalet]

https://drive.google.com/file/d/0B4pEh9TphXFQOHAxLVNQT2hveWc/edit?usp=sharing

DOSYA İÇİNE YAZDIM.

 

[Murat OSMA]

[FONT="Trebuchet MS"]Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "S11" Then [Q16] = Target.Value
End Sub[/FONT]

 

[byhayalet]

Hocam çok teşekkürler. burdaki hatam target i kullanmamam mı..?