Memur isimlerini A harfine bastığımda A harfi ile başlayan Memurlar ve ünvanları B harfine bastığımda B harfi ile başlayan Memurlar ve ünvanlarının gelmesini bir türlü yapamadım yardımcı olursanız sevinirim :kafa: :agla:
Soldaki listboxa aşağıdaki kodu kopyalayın. Listboxtaki harfe tıkladığınızda ilgili veriler listelenecektir.
[vb:1:ab13867ccf]Private Sub ListBox1_Click()
[b4:c65536].ClearContents
Set s1 = Sheets("veriler")
For a = 3 To s1.[c65536].End(xlUp).Row
If UCase(Mid(s1.Cells(a, 3), 1, 1)) = UCase(ListBox1.Value) Then
c = c + 1
Cells(c + 3, 2) = s1.Cells(a, 3).Value
Cells(c + 3, 3) = s1.Cells(a, 4).Value
End If
Next
End Sub
[/vb:1:ab13867ccf]
oldu Leventm bey çok tşk ederim
Sizi baya takip ediyorum excell bilgi kısıtlı olduğunda pek fazla cevap veremiyorum ama düzelttiğiniz dosya örneklerini alıp kendime göre uyguluyorum gerçekten müthişsiniz :bravo: :dua2:
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.