Aynı Olan isimleri Gruplama

[cankur041]

Merhaba, benim a sutununda yaklaşık 100 satır kadar devam eden ve 5 ismin sürekli farklı aralıklarla tekrarlandığı bir isim listem var. bu isim listesini diğer sayfada gruplandırmak istiyorum. Örneğin: Esra ismi 100 satırda 10 kez tekrar etmiş olsun, (tabi a3:j100 aralığı da bu isimlere bağlı veriler içeriyor), sayfa2 de sadece a-b ve c sutunlarındaki bilgileri taşıyarak 10 kez alt alta;
esra 29.09.2018 10
esra 01.10.2018 7
esra 05.09.2018 9........gibi, kişiye ait satırları alt alta çekip listelesin istiyorum. bu şekilde 5 isme kendi sonuçlarını gösteren 5 tablo raporu hazırlayacağım.
yardımlarınızı rica ediyorum, şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

İstediğiniz bana "özet tablo" ile olabilir gibi geldi. Bir deneyin isterseniz.

 

[Haluk]

Merhaba;

Alternatif olarak ekli dosyayı deneyebilirsiniz.....

Mantığını kavrayınca kendi çalışmanıza uygulayabilirsiniz.

.

 

[cankur041]

Mükemmel tam olarak istediğim şey bu. çok teşekkür ederim dönüşleriniz için.

 

[cankur041]

Merhaba,

İstediğiniz bana "özet tablo" ile olabilir gibi geldi. Bir deneyin isterseniz.

çok teşekkür ederim ilgilendiğiniz için, özet tablodan ziyade makro ile bir butona bağlı listeleme ile çözmek istemiştim, aşağıdaki cevap işimi gördü. çok sağolun

 

[cankur041]

Merhaba;

Alternatif olarak ekli dosyayı deneyebilirsiniz.....

Mantığını kavrayınca kendi çalışmanıza uygulayabilirsiniz.

.

Teşekkür ederim Haluk bey,

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Örnek için teşekkür ederim. Kolon sayısını 7 ye çıkardım ama bunu 50 ye - 100 e arttırmanın yolu nedir?
Saygılarımla

 

[Haluk]

Kodda aşağıdaki satırı;

Set RS = DB.OpenRecordset("Select [İsim], [Veri-1], [Veri-2] from [Sheet1$] where [İsim]='" & Range("H1") & "'")

aşağıdaki ile değiştirirseniz, bütün sütunlar gelir.

Set RS = DB.OpenRecordset("Select * from [Sheet1$] where [İsim]='" & Range("H1") & "'")

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Çok teşekkür ederim.
Saygılarımla

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Hata bende, tekrar teşekkür ederim
Saygılarımla

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Makroda küçük-büyük harf ayrımı var diye oldu sandım ama değil. Bu satırda istikrarsızlık var. Bazen çalışıyor bazen bu satırda hata veriyor.

Range("A2").CopyFromRecordset RS

Saygılarımla

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Harf çifti ile arıyorum. Sayfa!2 de N1 hücresine yazdığınız P1 hücresinde büyük harfe dönüyor. Makro P1 de kini arıyor. AA, NA ... da hata veriyor. O1 sıfır ise zaten getirmeyecek. Bunun nedenini anlayamadım.
Saygılarımla

 

[askm]

Tevfik Bey. Hayırlı akşamlar. Örnek kodlarda sesli harflerde sıkıntı çıkarıyor. Webden araştırdım ama çözüm bulamadım.
Bu arada örneğinizde TC ve telefon bilgileri mevcut sanırım.

 

[Haluk]

Nedenini bilmiyorum ama aranan İSİM eğer 3 karakter olursa, sıkıntı olmuyor....

Sesli veya Türkçe karakterlerde falan da sorun çıkarmaz, yeterki ana listedeki küçük-büyük harf uyumuna dikkat edin.

.

 

[Haluk]

Tevfik Bey;

DAO yerine ADO (Jet.OLEDB driver'ı) kullanınca, 2 karakterli İSİM sorgularında problem çıkmıyor .... (Küçük-büyük harf uyumuna dikkat edilmesi gerekir)

Sub Test2()
    'Haluk - 10/10/2018
    Dim adoCN As Object, RS As Object
    Dim myFile As String, SayfaAdi As String, strSQL As String
  
    myFile = ThisWorkbook.FullName
      
    Set adoCN = CreateObject("ADODB.Connection")
    Set RS = CreateObject("ADODB.Recordset")
    adoCN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & myFile & ";Extended Properties=Excel 8.0;"
  
    strSQL = "Select * from [Sayfa1$] where [İsim]='" & Range("P1") & "'"
    RS.Open strSQL, adoCN
    Range("A2").CopyFromRecordset RS
  
    adoCN.Close
    Set RS = Nothing
    Set adoCN = Nothing
End Sub

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Şimdi düzgün çalışıyor. İlginize ve emeğinize teşekkür ederim.
Saygılarımla

 

[Tevfik_Kursun]

Sayın Askm Hocam,
Uyarınız ve ilginiz için teşekkür ederim
Saygılarımla

 

[ozpolatt]

elinize sağlık hocam