Makro Çalışmıyor

[iplikci_80]

Arkadaşlar çalışmayı kapatıp açınca sıralama yapan bir makro var. Ama çalıştırmadım. Yardımlarınızı bekliyorum.

 

[Merhum İdris SERDAR]

.

Birleştirilmiş hücre yoksa çalışır.

.

 

[iplikci_80]

İdris Bey ilginize teşekkür ederim, birleştirilmiş hücre yok gördüğüm kadarı ile yalnız kod hatalı sanırım, çalışmayı kapatıp açınca D sütunundaki tarihlere göre sıralayacak bir koda ihtiyacım var, rica etsem yardımcı olur musunuz.

 

[Merhum İdris SERDAR]

.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    Cancel = True
    Range("D4:O" & Rows.Count).Sort Range("D4"), xlAscending
End Sub

Şeklinde deneyin.

.

 

[iplikci_80]

İdris Bey çok teşekkür ederim fakat sonuç alamdım.