İki ayrı kod satırını birleştirme

[olc007]

İyi akşamlar. Aşağıdaki iki ayrı satırını nasıl birleştiririz?

Sheets("----GİRİŞ----").Unprotect "0000"
If Target.Row = 4 And Target.Column = 26 And Target.Value <> "" Then Range("AA4, AB4, AC4, Q35:Y35").Locked = True
If Target.Row = 4 And Target.Column = 26 And Target.Value <> "" Then Range("AA4, AB4, AC4, Q35:Y35").ClearContents
Sheets("----GİRİŞ----").Protect "0000"

 

[Necdet]

Merhaba,

Aşağıdaki gibi deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Sheets("----GİRİŞ----").Unprotect "0000"
    If Target.Row = 4 And Target.Column = 26 And Target.Value <> "" Then
        Range("AA4, AB4, AC4, Q35:Y35").ClearContents
        Range("AA4, AB4, AC4, Q35:Y35").Locked = True
    End If
    Sheets("----GİRİŞ----").Protect "0000"
 
End Sub

Çok az farkla biraz daha kısaltılmış olarak aşağıdaki gibi de kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Sheets("----GİRİŞ----").Unprotect "0000"
    If Target.Row = 4 And Target.Column = 26 And Target.Value <> "" Then
        With Range("AA4, AB4, AC4, Q35:Y35")
            .ClearContents
            .Locked = True
        End With
    End If
    Sheets("----GİRİŞ----").Protect "0000"
    
End Sub

 

[olc007]

Teşekkür ederim Necdet Bey.