Kodda Revize Tarihe Göre Sıralama

[iplikci_80]

ThisWorkbook sayfasında var olan B11 hücresinden itibaren girilen verileri tarih sırasına sıralayan kodu çalıştıramıyorum. Bu kodun revize edilmesi hususunda yardımlarınızı rica ediyorum.

 

[Korhan Ayhan]

Kullandığınız kod bloğunun başında aşağıdaki satır kodun ŞABLON sayfasında çalışmasını engelliyor.

If ActiveSheet.Name = "CARİLER" Or ActiveSheet.Name = "ŞABLON" Then Exit Sub

Ayrıca sıralama işlemi yapan kod satırında da yazım hatası var.

Range("B11:J60" & s).Sort [B10], 1

Hem hücre aralığında son satır bilgisi vermişsiniz. Hem de "s" değişkeninin aldığı satır numarasını bu değer ile birleştirmişsiniz.

Örneğin işlem yaptığınız satır 22 ise bu satır şu hali alarak işlem yapmaya çalışmaktadır.

s=22

Range("B11:J60" & s).Sort [B10], 1
Range("B11:J60" & 22).Sort [B10], 1
Range("B11:J6022").Sort [B10], 1

Böylece hiç işlem yapmaması gereken satırları işleme dahil etmektedir. Eğer ilgili satırlar boş ise sorun yok. Ama veri varsa ve işleme dahil edilmemesi gerekiyorsa yanlış sonuç üretmesi kaçınılmazdır.

 

[iplikci_80]

Korhan Bey çok teşekkür ederim.