Açılan Kutudan seçtiğim tarihe ait bilgiler

[galadhrim]

Arkadaşlar, sheet2'de bir açılır kutudan tarih seçilecek ve o tarihin altındaki belli bir sayıda hücredeki (yani o tarihe ait verilerin bulunduğu hücrelerdeki) veriler sheet 2 'de istediğim yerde sıralanacak.
Yani örneğin 12.11.2005 seçiliyse, bu tarihe ait veriler sheet2'ye gelecek.
Ben bir türlü yapamadım. Umarım yardımınız dokunur.

 

[veyselemre]

eki inceleyin

 

[galadhrim]

Tam olarak ihtiyacım olan buydu. Teşekkür ederim. Pek çok kişinin işine yrayacağını umuyorum

 

[htsumer]

Pek çok kişinin işine yrayacağını umuyorum

Evet Sayın veyselemre,'nin çalışması güzel olmuş.Elinize sağlık.

 

[galadhrim]

"Cevap yeni soruları doğrurur" durumu... Peki ama o zaman sheet2 'de gelen o güne ait tabloda yaptığımız değişikliklerin, sheet1'deki taboda da geçerli olmasını sağlayabilir miyiz?

 

[veyselemre]

[vb:1:d2364bb03b]Sub guncelle()

Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")

satir = s1.Range("b1:h65536").Find(s2.[a1]).Row
kolon = s1.Range("b1:h65536").Find(s2.[a1]).Column

For x = 1 To 15
s1.Cells(satir + x + 1, kolon) = s2.Cells(x + 4, 2)
Next x
End Sub[/vb:1:d2364bb03b]

 

[galadhrim]

Ya ben bu kodu uygulamada hata yapıyorum; ya da kodda çözemediğim bi hata var.Yukarıdaki "faaliyet.xls" dosyasına uygulayabilen var mı acaba? :dua2:

 

[veyselemre]

ekteki örneği inceleyin

 

[galadhrim]

Teşekkür ederim. İşte budur. Ben "güncelle" butonuna bağlamayı akıl edemedim. Sağol