sayfalardan veri kopyalamak

[lansor]

bugün 14 şubat
tüm form üye ve misafirlerinin gönlündeki insanlarla bir ömür boyu mutlu olmasını temenni ederim.

sorum: sayfa 1 hücredeki sayıyı diğer sayfalarda arayarak bu sayıya eşit kişilerin verilerini sayfa 1 de boş satırdan itibaren kopylayacak makro ile sorularımın ayrıntısı dosyam içindedir. ilgilenen arkadaşlarıma şimdiden çok çok tşk

 

[meslan]

Merhaba

Sub arabulkopyala()
For s = 2 To Worksheets.Count
For i = 1 To Sheets(s).[a65536].End(3).Row
If Cells(3, 6).Value = Sheets(s).Cells(i, 2).Value Then
SATIR = [a65536].End(3).Row + 1
Range("A" & SATIR & ":K" & SATIR) = Sheets(s).Range("A" & i & ":K" & i).Value
End If
Next
Next
End Sub

Kolay gelsin.

 

[lansor]

meslan kardeşim eline sağlık çok çok teşekkür ederim

 

[lansor]

meslan hocam gönderdiğim örnekte 2 sayfa olduğu için sizde 2 sayfa göstermisisiniz bende 50 sayfa var. aranacak veri bayilerde yine, arayacağı yer ef1 ve etf2 sayfası yani diğer sayfaları görmeyecek sadece bu iki sayfada arayacak ozaman kodda değişiklik gerekirmi evet ise nasıl olmalı tşk

 

[meslan]

Kodda değişiklik yapmaya gerek yok. Bütün sayfalarda arama yaparak uyanları aktarır. Deneyiniz. Bir problem olursa yardımcı olurum.