koşula bağlı satır kilitlemek

yusuf09 · 07-04-2017, 15:52

Herkese selamlar. Kod yazma konusunda fazla bilgim yok. Aşağıdaki işlemi yapmak için ne yapmam gerekiyor?

D7 boş ise E7:O7 arasındaki hücrelerin kilitlenmesi ve aynı işlem D507 ye kadar devam etmesi yani D sütunundaki boş hücrenin olduğu E den O ya kadar olan satır kilitlenmeli nasıl bir vba yazılmalı. Ayrıca bu fonksiyonu yerine getirecek ön koşul A sütununun ilgili satırının dolu olması boşsa işlem yapmaması.

yusuf09 · 07-04-2017, 15:57

şematik olarak işlem aralığını ve aşamalarını aşağıda özetledim;

a7 dolu ise ve d7 boş ise e7 : o7 arası hücreler kilitlensin
a8 dolu ise ve d8 boş ise e8 : o8 arası hücreler kilitlensin
a9 dolu ise ve d9 boş ise e9 : o9 arası hücreler kilitlensin
...
a507 dolu ise ve d507 boş ise e507 : o507 arası hücreler kilitlensin.

**Ömer** · 07-04-2017, 16:01

Merhaba,

Bu şekilde deneyin.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

Sub Kilitle()

    Dim i As Long

    ActiveSheet.Unprotect
    
    For i = 7 To 507
        With Range("E" & i & ":O" & i)
            If Cells(i, "D") = "" Then
                .Locked = True
                .FormulaHidden = True
             Else
                .Locked = False
                .FormulaHidden = False
            End If
        End With
    Next i
              
    ActiveSheet.Protect
    
End Sub

Not: 2. mesajınızı yeni gördüm. Ben 1.mesajınıza göre düzenlemiştim.

.

yusuf09 · 07-04-2017, 16:12

teşekkür ederim. yeni kod bekleyeyim mi yoksa bu kod işimi görür mü? bu kodu yazılı kodlar arasına nasıl yerleştiririm?

**Ömer** · 07-04-2017, 16:16

Kodlardaki if satırını aşağıdakiyle değiştirin.

If Cells(i, "A") <> "" And Cells(i, "D") = "" Then

.

yusuf09 · 07-04-2017, 16:28

teşekkürler

07-04-2017, 15:52	#1
yusuf09 Giriş: 06/04/2017 Şehir: giresun Mesaj: 74 Excel Vers. ve Dili: 2010	koşula bağlı satır kilitlemek Herkese selamlar. Kod yazma konusunda fazla bilgim yok. Aşağıdaki işlemi yapmak için ne yapmam gerekiyor? D7 boş ise E7:O7 arasındaki hücrelerin kilitlenmesi ve aynı işlem D507 ye kadar devam etmesi yani D sütunundaki boş hücrenin olduğu E den O ya kadar olan satır kilitlenmeli nasıl bir vba yazılmalı. Ayrıca bu fonksiyonu yerine getirecek ön koşul A sütununun ilgili satırının dolu olması boşsa işlem yapmaması.

07-04-2017, 16:01	#3
Ömer Moderatör Giriş: 18/08/2007 Şehir: Kuşadası Mesaj: 19,101 Excel Vers. ve Dili: Excel 2010 Türkçe	Merhaba, Bu şekilde deneyin. Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar) Sub Kilitle() Dim i As Long ActiveSheet.Unprotect For i = 7 To 507 With Range("E" & i & ":O" & i) If Cells(i, "D") = "" Then .Locked = True .FormulaHidden = True Else .Locked = False .FormulaHidden = False End If End With Next i ActiveSheet.Protect End Sub Not: 2. mesajınızı yeni gördüm. Ben 1.mesajınıza göre düzenlemiştim. . __________________ . FORUM KURALLARI

07-04-2017, 16:16	#5
Ömer Moderatör Giriş: 18/08/2007 Şehir: Kuşadası Mesaj: 19,101 Excel Vers. ve Dili: Excel 2010 Türkçe	Kodlardaki if satırını aşağıdakiyle değiştirin. If Cells(i, "A") <> "" And Cells(i, "D") = "" Then . __________________ . FORUM KURALLARI

Konu Araçları
Yazıcı Çıktısını Göster Sayfayı E-posta ile Yolla
Görünüm Modları
Düzenli Mod Karışık Moda Geç Konu Moduna Geç

07-04-2017, 15:57	#2
yusuf09 Giriş: 06/04/2017 Şehir: giresun Mesaj: 74 Excel Vers. ve Dili: 2010	şematik olarak işlem aralığını ve aşamalarını aşağıda özetledim; a7 dolu ise ve d7 boş ise e7 : o7 arası hücreler kilitlensin a8 dolu ise ve d8 boş ise e8 : o8 arası hücreler kilitlensin a9 dolu ise ve d9 boş ise e9 : o9 arası hücreler kilitlensin ... a507 dolu ise ve d507 boş ise e507 : o507 arası hücreler kilitlensin.

07-04-2017, 16:12	#4
yusuf09 Giriş: 06/04/2017 Şehir: giresun Mesaj: 74 Excel Vers. ve Dili: 2010	teşekkür ederim. yeni kod bekleyeyim mi yoksa bu kod işimi görür mü? bu kodu yazılı kodlar arasına nasıl yerleştiririm?

07-04-2017, 16:28	#6
yusuf09 Giriş: 06/04/2017 Şehir: giresun Mesaj: 74 Excel Vers. ve Dili: 2010	teşekkürler