Kasa aylık sayfasında tarihe göre sıralama yapma

[doganayfidaan]

Merhaba,




Benim böyle bir KASA AYLIK adlı bir sayfam var bu sayfanın kodu müşteri sayfalarını geziyor 3. aydaki ödemeleri bulup listeliyor. Fakat ben bu sıralamayı öncelikle tarih tarihler aynı ise alfabetik sıralama olarak sıralamasını istiyorum nasıl yapabilirim. Dosya ektedir.

 

[Necdet]

Merhaba,
Deneyiniz.

Public Sub SIRALA()

Dim i As Long

i = Sheets("KASA AYLIK").Cells(Rows.Count, "B").End(3).Row

Sheets("KASA AYLIK").Range("B3:D" & i).Sort Key1:=[B1], key2:=[C1]

End Sub

 

[doganayfidaan]

sağ olun hocam.

 

[doganayfidaan]

Merhaba,
Deneyiniz.

Public Sub SIRALA()

Dim i As Long

i = Sheets("KASA AYLIK").Cells(Rows.Count, "B").End(3).Row

Sheets("KASA AYLIK").Range("B3:D" & i).Sort Key1:=[B1], key2:=[C1]

End Sub

hocam suat aylık sayfasınada atnı düzenlemeyi yapabilir miyiz ben kodda SUAT AYLIK yazdım ama düzelmedi o sayfada

 

[Necdet]

Merhaba,

İstediğiniz sayfa sanki sıralı gibi o yüzden çalışmıyor sanıyor olabilirsiniz.
siz kendiniz örneğin tutara göre sıralayın, sonra sıralama makrosunu çalıştırın, sonucu göreceksiniz.
ben yine de kodu ekliyorum.

Public Sub SIRALA()

Dim i As Long

i = Sheets("SUAT AYLIK").Cells(Rows.Count, "B").End(3).Row

Sheets("SUAT AYLIK").Range("B3:D" & i).Sort Key1:=[B1], key2:=[C1]

End Sub

 

[doganayfidaan]

Yok hocam o kisim yanlis siraliyor soyleki tarih siralamasini yapinca o sayfada isimlerde tarihe gore degisiyor ama ucret kismi sabit kaliyor bu yuzden dogru siralama yapmiyor

 

[Necdet]

Halaa öyle mi?

 

[doganayfidaan]

düzeldi hocam allah razı olsun.

 

[doganayfidaan]

Hocam bi sorum daha olucaktı ANASAYFA da listbox var müşteri isimleri yazıyor hocam orda a harfine bastıgımda sadece ilk sıradaki a harfiyle başlıyan müşteri ismi çıkıyor. İkinci harfi nasıl yazdırabiliriz hocam.Örneğin Ahmet ,ali ,ayşe listemizde a ya bastığımda Ahmet gözüküyor ben ise AL yazıp aliyi bulmak istiyorum.