hücre arayıp kayıt alma

[adres00]

umarım başlık uymuştur....
şimdi şöylebirşey

bir excel sayfasında (sayfa1) A2 hücresinde tarih var ve D416 aralığında
değişik bilgiler var (3,7,ali,para vs gibi)
bu bilgileri başka bir sayfaya (sayfa2) makro yardımıyla yazdırmak istiyorum....ancak

sayfa1 deki A2 hücresiyle sayfa2 deki A3:A500 sütünündaki tarihleri karşılaştıracak ve diyelim ki o tarihi A142 de buldu ozaman B142:N142 satırına sayfa1 deki D416 süyününu yazacak (bu işlem xxxx adlı bir butona atanacak)

 

[danersin]

denemeden yolluyorum.
anlaşılması ve müdaheleniz en basit olacak şekilde yazdım.

[vb:1:3c10fbb152]Sub aktar()
ArananTar = Sheets(1).Cells(12, 1)
For i = 3 To 500
If Sheets(2).Cells(i, 1) = ArananTar Then
For j = 4 To 16
Sheets(2).Cells(i, j - 2) = Sheets(1).Cells(j, 4)
Next j
End If
Next i
End Sub[/vb:1:3c10fbb152]

 

[ahmet79]

bir örnekte ben hazırlamıştım biraz farklı ama umarım işinizi görür

 

[adres00]

evet güzel olmuş ancak sayfa2 depo görevi yaptığından buradaki bilgiler muhafaza edilecek tabi bunu önceden belirtmemiştim
göndermiş olduğunuz makro kopyalama yapıyor zannedersem
ancak sayfa2 heryeni günü kaydedeceği için oradaki bilgiler kalıcı olacak ve kopyalama yerine aktarma yapan birşey olursa (sayfa1 girdiğim bigi butona basıldığında sayfa2 ye geçmeden bu bilgileri sayfa ikide oluşturabilirse süper olur

sakıncası yoksa birşey daha, bu makro sıralı aktarım yapıyor
aynı zamanda sayfa1 de seçtiğim alanları da sayfa 2ye aktara bilirmi
teşekkürler

 

[adres00]

danersin dostum
yazdığın vb kod çalışmadı bilgine