Hatırlatma programı foruma eklenmiştir.
http://www.excelce.net/forum/index.php?topic=1661.0

Gönderen Konu: [Çözüldü] Aynı Tarihte Farkıl Kişilerin olduğu satırları seçmek  (Okunma sayısı 6587 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
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

« Son Düzenleme: 14 Haziran 2010, 19:27:54 Gönderen: Bülent Öztürk »

Çevrimdışı Rami

  • Excelce Onbaşı
  • **
  • İleti: 64
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Kamil
  • İl / İlçe: Sivas
  • Mesleğiniz: İnşaat
Ynt: Aynı Tarihte Farkıl Kişilerin olduğu satırları seçmek
« Yanıtla #1 : 12 Haziran 2010, 15:40:55 »

Ö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.]

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Aynı Tarihte Farkıl Kişilerin olduğu satırları seçmek
« Yanıtla #2 : 14 Haziran 2010, 09:53:14 »
Kamil Bey çok teşekkür ederim..