düşeyara ile yapamadım yardım edermisiniz.

[makasci]

ahmet san 01.02.2013
ahmet asa 02.02.2013
ahmet kasa 03.02.2013
ahmet yasa 04.02.2013
ahmet musa 05.02.2013
ahmet köse 06.02.2013
mehmet san 07.02.2013
mehmet san 08.02.2013
mehmet san 09.02.2013
mehmet san 10.02.2013
mehmet san 11.02.2013
ali san 12.02.2013
ali san 13.02.2013
ali san 14.02.2013
ali san 15.02.2013

ana sayfa yukarıdaki gibidir. ana sayfadan sayfa1 e

ahmet san 01.02.2013
ahmet asa 02.02.2013
ahmet kasa 03.02.2013
ahmet yasa 04.02.2013
ahmet musa 05.02.2013
ahmet köse 06.02.2013

sayfa2 ye

mehmet san 07.02.2013
mehmet san 08.02.2013
mehmet san 09.02.2013
mehmet san 10.02.2013
mehmet san 11.02.2013

ve sayfa3 e

ali san 12.02.2013
ali san 13.02.2013
ali san 14.02.2013
ali san 15.02.2013

çekmek istiyorum ahmet'lerin mehmet'lerin ve ali'lerin sayısıda belli değil sırada buradaki gibi düzgün değil ne yapmalıyım yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[acar6783]

Günaydın
sayfa 1-2-3 ün a sütunu arama sütununuz olsun o sütuna aranacak isimleri yazın
b sütununa ise şu formülü yazın.

=DÜŞEYARA(A1;ana sayfa!A:B;2;0)

Sonra b sütunlarınının biçimlendirmelerini tarih olarak ayarlayın

Not isimler sabit olmadığını düşünerek yazdım.

 

[acar6783]

Sub DSYARA()
Set S1 = Sheets("ana sayfa")
Set s2 = Sheets("Sayfa1")
Set s3 = Sheets("sayfa2")
Set s4 = Sheets("sayfa3")


son = S1.Cells(Rows.Count, 1).End(xlUp).Row
Alan = "a1:B" & son
For i = 2 To son
If s2.Range("A" & i) <> "" Then s2.Range("B" & i) = WorksheetFunction.VLookup(s2.Range("A" & i), S1.Range(Alan), 2, 0)
If s3.Range("A" & i) <> "" Then s3.Range("B" & i) = WorksheetFunction.VLookup(s3.Range("A" & i), S1.Range(Alan), 2, 0)
If s4.Range("A" & i) <> "" Then s4.Range("B" & i) = WorksheetFunction.VLookup(s4.Range("A" & i), S1.Range(Alan), 2, 0)

Next


End Sub

Bu kodu da bir butona atarsanız yine formülsüz işnizi görecektir.

 

[makasci]

Çok ama çok teşekkür ederim

 

[acar6783]

İşinizi gördüyse ne mutlu.
Kolaygelsin