Cevap Açıklamalarına Kod atanması

[tactless]

Merhaba arkadaşlar.

elimde bir liste var bu listede butona basıldığında cevap açıklamaları yerine cevap kodlarının yer almasını istiyorum. soruyu ekte veriyorum..

yardımlarınız için şimdiden tşkler.

** eğer mümkünse makro ve formülle yapılışı olursa daha güzel olur bende öğrenmiş olurum.

 

[hamitcan]

Sub buldegistir()
    For i = 2 To Sayfa1.[a65536].End(3).Row
Sayfa1.Cells(i, "h") = Sayfa2.Cells(Sayfa2.Columns(1).Find(Cells(i, "h")).Row, "b")
    Next
End Sub

 

[tactless]

hocam tşk ederim.

 

[tactless]

hocam elinize sağlık makro çalıştı ama 219 kadar tarıyor.

bu sayıyı 60000 lere nasıl çıkarabiliriz.

şimdiden tşkler. sayg.

 

[hamitcan]

   For i = 2 To Sayfa1.[a65536].End(3).Row

   For i = 2 To 60000

şeklinde değiştirin.