Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: drejan62 - 11 Haziran 2010, 16:46:36

Başlık: [Çözüldü] Aynı Tarihte Farkıl Kişilerin olduğu satırları seçmek
Gönderen: drejan62 - 11 Haziran 2010, 16:46:36

Merhabalar,
A sütununda bulunan tarihte S sütununda bulunan personellerden iki farklı kişi iş yapmış isi bu satırları safya2 ye kopyalamak istiyorum.
Yardımlarınız için teşekkürler.

Örnek dosyara sayfa2 ye aktarılması gereken listeyi de koydum

Başlık: Ynt: Aynı Tarihte Farkıl Kişilerin olduğu satırları seçmek
Gönderen: Rami - 12 Haziran 2010, 15:40:55

Alıntı yapılan: drejan62 - 11 Haziran 2010, 16:46:36

Örnek dosyara sayfa2 ye aktarılması gereken listeyi de koydum

Listeye göre;
"Sayfa2" kod sayfasına yazın:
 

Kod: [Seç]

Private Sub Worksheet_Activate()
[a2:s65000] = Empty
For i = 2 To Sheets("Sayfa1").Cells(65536, 1).End(xlUp).Row
a = Sheets("Sayfa1").Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Sheets("Sayfa1").Range("a2:a" & a), Sheets("Sayfa1").Cells(i, 1)) > 1 Then
c = Sheets("Sayfa2").Cells(65536, 1).End(xlUp).Row + 1
Sheets("Sayfa1").Rows(i).Copy Rows(c)
End If: Next
End Sub
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Başlık: Ynt: Aynı Tarihte Farkıl Kişilerin olduğu satırları seçmek
Gönderen: drejan62 - 14 Haziran 2010, 09:53:14

Kamil Bey çok teşekkür ederim..