(10/07/2019, 09:28)halily yazdı: birleştirilmiş hücreler için tüm aralığı seçmek gerekiyormuş)
mesela "j" sütunundakiler bağımsız olduğu için "range("J2")" demek yeterliyken
"B" sütunundaki çift hücreler alttaki tek hücreyle birleştiği için "range("B2:B3")" demek gerekiyormuş
Kod:With Sayfa1
If .ProtectContents = True Then .Unprotect "1453"
For x = 4 To 10002 Step 2
.Range("j" & x).Locked = False
.Range("B" & x & ":B" & x + 1).Locked = False
Next
.Protect "1453"
End With
üstat emeklerine sağlık bu kod bile işimi gördü diğerlerini de kullanacağım.
iyi çalışmalar dilerim emekleriniz için tekrar çok teşekkür ederim.