combobox tarihli veri çekme

[yok_06]

yapmak istediğim tam olarak şu 6000 adet kayıt olan bir excellde sayfa 1 AA içerisindeki tarihleri combobox atıyorum fakat orada birden fazla aynı tarih olacak ve o tarih secildiğinde A dan veri çekip textbox yazdırma yanyana veya alt alta görmek istiyorum

1.-) Private Sub adisoyadi_Change()
For Each hucre In Range("a1:aa" & WorksheetFunction.CountA(Range("aa1:aa65000")))
If StrConv(hucre.Value, vbUpperCase) = StrConv(adisoyadi.Value, vbUpperCase) Then
hucre.Select
adisoyadi = ActiveCell.Offset(0, 0).Value
End If
Next
End Sub
Private Sub aciklama_Change()

End Sub

Private Sub UserForm_Initialize()
adisoyadi.RowSource = "sayfa1!aa2 : aa10000" (BOŞ KAYITLARIN GÖZÜKMEMESİ İÇİN NE EKLENEBİLİR?)
End Sub

 

[vardar07]

Lütfen örnek dosyanızı ekleyiniz.

 

[yok_06]

dosya ektedir

http://s2.dosya.tc/server3/3uxjoq/ornek.rar.html

 

[Ömer BARAN]

Merhaba.

Aşağıdaki gibi olabilir.
.

[FONT="Arial Narrow"][B]Private Sub UserForm_Initialize()[/B]
adisoyadi.Clear
For satır = 2 To Sheets("Sayfa1").[AA65536].End(3).Row
    If WorksheetFunction.CountIf(Sheets("Sayfa1").Range("AA2:AA" & satır), Sheets("Sayfa1").Cells(satır, "AA")) = 1 Then _
    adisoyadi.AddItem Format(CDate(Sheets("Sayfa1").Cells(satır, "AA")), "dd/mm/yyyy")
Next
[B]End Sub[/B][/FONT]

 

[yok_06]

Merhaba.

Aşağıdaki gibi olabilir.
.

[FONT="Arial Narrow"][B]Private Sub UserForm_Initialize()[/B]
adisoyadi.Clear
For satır = 2 To Sheets("Sayfa1").[AA65536].End(3).Row
    If WorksheetFunction.CountIf(Sheets("Sayfa1").Range("AA2:AA" & satır), Sheets("Sayfa1").Cells(satır, "AA")) = 1 Then _
    adisoyadi.AddItem Format(CDate(Sheets("Sayfa1").Cells(satır, "AA")), "dd/mm/yyyy")
Next
[B]End Sub[/B][/FONT]

öncelikle yardımızınız için teşekkür ederim
bu kodu olduğu gibi aldığımda çalışmıyor daha hızlı olması açısından sayfa 2 tarihleri( a ) isimleri (b) aldım ama çalıştıramadım hata alıyorum

 

[yok_06]

şimdi başardım ama örn. Aa da 10.12.2016 birden fazla varsa bunları alt alta yada yanyana nasıl alacağım almak istediğim değer a da

 

[vardar07]

Userformdaki kodları kaldırıp aşağıdakini ekleyerek deneyiniz.

Private Sub adisoyadi_Change()
aciklama = ""
For Each hucre In Range("aa2:aa" & WorksheetFunction.CountA(Range("aa2:a65000")))
If StrConv(hucre.Value, vbUpperCase) = StrConv(adisoyadi.Value, vbUpperCase) Then
   aciklama = aciklama & vbCrLf & Cells(hucre.Row, 1).Value
   End If
Next
End Sub

Private Sub UserForm_Initialize()
adisoyadi.Clear
For satır = 2 To Sheets("Sayfa1").[AA65536].End(3).Row
    If WorksheetFunction.CountIf(Sheets("Sayfa1").Range("AA2:AA" & satır), Sheets("Sayfa1").Cells(satır, "AA")) = 1 Then _
    adisoyadi.AddItem Format(CDate(Sheets("Sayfa1").Cells(satır, "AA")), "dd/mm/yyyy")
Next
aciklama.MultiLine = True
End Sub

 

[yok_06]

çok teşekkür edirim yardımınız için çalıştı sorunsuz