sıralama filtreleme

[numanmuhendiss]

selamlar ii çalışmalar
beim kullanmış olduğum bakiye programı var bu tabloda müşterileri alfabatik olarak sıralamak istiyorum ama yapamıyorum
müşteri adı +bakiye + telefon no diye yanyana bunları satır halinde alfabatik sıralayabilirmiyiz
ben yine dosya olarak attım bakarsanız ne dediğimi anlayabilirsiniz

 

[İhsan Tank]

selamlar ii çalışmalar
beim kullanmış olduğum bakiye programı var bu tabloda müşterileri alfabatik olarak sıralamak istiyorum ama yapamıyorum
müşteri adı +bakiye + telefon no diye yanyana bunları satır halinde alfabatik sıralayabilirmiyiz
ben yine dosya olarak attım bakarsanız ne dediğimi anlayabilirsiniz

merhaba
E:F sütunlarını birleştirmişsiniz onu tek sütun haline getirin ve bu kodu deneyin

Option Explicit
Sub sıralama()
Dim ts, kaplan
kaplan = MsgBox("İsim Sıralaması Yapayım Mı_?", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
ts = Cells(65536, "B").End(xlUp).Row
Range("B4:E" & ts).Sort key1:=Range("B4"), ORDER1:=xlAscending
MsgBox "Sıralama Yapıldı", vbInformation, "Bitiş"
End Sub

 

[numanmuhendiss]

emeğiniz için teşekkürler istediğim oldu sağolun

 

[İhsan Tank]

emeğiniz için teşekkürler istediğim oldu sağolun

rica ederim
:yazici: