AccessTr.neT

(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.

ÖD )
iyi çalışmalar
kolay gelsin
ama yine de sorayım: sorun halledildi mi?

(10/07/2019, 12:33)halily yazdı: [ -> ]ÖD )
iyi çalışmalar
kolay gelsin
ama yine de sorayım: sorun halledildi mi?

evet üstat halledildi.
bir örneğini size de gönderirim.
tekrardan çok teşekkür ederim

üstat son halini gönderecektim ama dosya nereden gönderiliyor bulamadım.
buradan bakarsın.

https://s2.dosya.tc/server10/wnbvrd/ANKE....xlsm.html
[attachment=30457]

Teşekkürler sayın @comp_wolf

(12/07/2019, 17:59)halily yazdı: [ -> ]Teşekkürler sayın @comp_wolf

DOSYANIN SON HALİ

https://www.dosya.tc/server21/94wusa/ANK....xlsm.html