Kodda Yardım / Cari Hesap

[iplikci_80]

Cari hesapları takip etmeye çalıştığım bu çalışmada, CARİLER kısmından istediğim carinin ismine çift tıkladığımda o cari açılıyor. Fakat açtığım caride herhangi bir işlem yapmaya çalıştığımda örneğin CARİLER sayfasındaki PERSONEL carisine çift tıklayıp açıp örneğin B17 hücresine bir tarih girmeye çalıştığımda EK' te ekran görüntüsünü gönderdiğim hatayı alıyorum, bu hatanın giderilmesi hususunda yardımlarınızı rica ediyorum.

 

[YUSUF44]

With ActiveSheet.Sort
.SetRange Range("B11:K100")
.Orientation = xlTopToBottom
.Apply
End With

Verileriniz 60. satıra kadar olduğu halde sıralamayı 100. satıra kadar yaptırıyorsunuz. 60 olarak sınırlarsanız sıkıntı çıkmayacaktır. Çünkü 61 ve altındaki satırlarda birleşmiş hücreler sıralama yapmanıza engel oluyor:

With ActiveSheet.Sort
.SetRange Range("B11:K60")
.Orientation = xlTopToBottom
.Apply
End With

 

[iplikci_80]

Yusuf Bey ilginize çok teşekkür ederim.