Kilitli hücre

[ckayaz]

Sıralama yaparken eğer aradaki sütunlarda kilitli veya gizli sütun yoksa normal sıralama yapıyor. "a8" sütunundan "O47" sütununa kadar sıralama yaparken arada j8:j47 ile n8:n47 sütunu kilitli yaptığımda sıralama yapmıyor bunun için nasıl bir kod yazılır.
Yardımcı olursanız sevinirim


Private Sub CommandButton1_Click()

Dim CELAL
CELAL = "B8:Q48"
TESİSAT = "o8"
Range(CELAL).Sort key1:=Range(TESİSAT), order1:=2

End Sub

 

[ckayaz]

yine ustalardan beklediğimi alamadım kendim araştırdım Sayın Levent MENTEŞOĞLU'nun Bir cevabı ile olayı çözdüm


[vb:1:1cfe789514]Sub SIRALA()
activesheet.unprotect "1234"
Range("B6:F300").Sort Key1:=Range("B6")
MsgBox "BU İŞ BU KADAR ...)", vbInformation
activesheet.protect "1234"
End Sub
[/vb:1:1cfe789514]