Sıralama

[geh_pcpc]

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:

 

[Levent Menteşoğlu]

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]

 

[desiroo]

tşk

 

[desiroo]

leventm bey dosyanın üstünde cevaplayıp yollasanız sevinirim yani dosyayı güncelleseniz sevinirim

 

[desiroo]

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:

 

[desiroo]

Levent bey liste kutusu ile nasıl yapabilir sizce onun dosyayı güncelleyerek yollayabilirmisiniz acaba

 

[geh_pcpc]

desironun dediği gibi oldu leventm Bey çok makbule geçti tşk ederim :dua: