Satır Kilitle Sorunu

[6729626]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D842]) Is Nothing Then Exit Sub
On Error GoTo SON
ActiveSheet.Unprotect
Range(Cells(Target.Row, "N"), Cells(Target.Row, "P")).Locked = False
If Target.Value = "İSTASYON" Then Cells(Target.Row, "P").Locked = True
If Target.Value = "SEKİÇEŞME" Then Cells(Target.Row, "N").Locked = True
If Target.Value = "BANKA" Then Cells(Target.Row, "N").Locked = True
ActiveSheet.Protect
SON:
End Sub

Yukarıdaki kodlarla "d" süünunda "İSTASYON" yazdığı zaman "n" sütününu kilitliyor kodlarda sorun yok.
Fakat aynı kodları sayfanın diğer bölümünda bulunan yani:
If Intersect(Target, [t8:t42]) Is Nothing Then Exit Sub ve "ad":""af" sutununuda kilitlemesini istiyorum ama tabi olmadı. Ayrıca "d" sutununda veya "t" sutununda bir değer yoksa karışısındaki kilitlediği yerleri tamamen nasıl kilitleyebilirim. Yardımlarınız için şimdiden teşekkürler hayırlı akşamlar.

 

[Orion1]

Aşağıdaki kod ile kodlar D8: D42 aralığında çalışıyor.Siz neyi soruyorsunuz?
Bazen karşılaştığımız sorularda ,kod yazmaktan çok soruyu anlamaya çalışıyoruz ,nedense.

If Intersect(Target, [D8: D42]) Is Nothing Then Exit Sub

 

[6729626]

Sorunum d8:d42 çalışıyor evet, ama ben aynı kodlarla aynı sayfada t8:t42 sutunu aralığındaki verilerle ad ve af sütünlarını kilitlemeye çalışıyorum ama olmadı.

 

[6729626]

Aşağıdaki kod ile kodlar D8: D42 aralığında çalışıyor.Siz neyi soruyorsunuz?
Bazen karşılaştığımız sorularda ,kod yazmaktan çok soruyu anlamaya çalışıyoruz ,nedense.

If Intersect(Target, [D8: D42]) Is Nothing Then Exit Sub

Sn Orion2 Önce ilginize teşekkürler.
Ben aşağıda zaten d8:d42 aralığında sorun olmadığını söylemiştim.
Ben şunu soruyorum aynı sayfada T8:T42 aralığını nasıl kilitelerim. Kodların yerlerini değiştiriyorum ama olmuyor.

 

[Orion1]

Sn Orion2 Önce ilginize teşekkürler.
Ben aşağıda zaten d8:d42 aralığında sorun olmadığını söylemiştim.
Ben şunu soruyorum aynı sayfada T8:T42 aralığını nasıl kilitelerim. Kodların yerlerini değiştiriyorum ama olmuyor.

Aşağıdaki kodu deneneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D842]) Is Nothing Then Exit Sub
On Error GoTo SON
ActiveSheet.Unprotect
Range(Cells(Target.Row, "N"), Cells(Target.Row, "P")).Locked = False
If Target.Value = "İSTASYON" Then Cells(Target.Row, "P").Locked = True
If Target.Value = "SEKİÇEŞME" Then Cells(Target.Row, "N").Locked = True
If Target.Value = "BANKA" Then Cells(Target.Row, "N").Locked = True
[B][COLOR="Red"]range("T8:T42").locked=true[/COLOR][/B]
ActiveSheet.Protect
SON:
End Sub

 

[6729626]

Teşekkürler Sn.Orion2

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D842]) Is Nothing Then Exit Sub
On Error GoTo SON
ActiveSheet.Unprotect
Range(Cells(Target.Row, "N"), Cells(Target.Row, "P")).Locked = False
If Target.Value = "İSTASYON" Then Cells(Target.Row, "P").Locked = True
If Target.Value = "SEKİÇEŞME" Then Cells(Target.Row, "N").Locked = True
If Target.Value = "BANKA" Then Cells(Target.Row, "N").Locked = True
ActiveSheet.Protect
SON:
End Sub

Yukarıdaki kodlarla "d" süünunda "İSTASYON" yazdığı zaman "P" sütününu kilitliyor kodlarda sorun yok.
Fakat aynı kodları sayfanın diğer bölümünda bulunan yani:
If Intersect(Target, [t8:t42]) Is Nothing Then Exit Sub ve "ad":""af" sutununuda kilitlemesini istiyorum ama tabi olmadı. Ayrıca "d" sutununda veya "t" sutununda bir değer yoksa karışısındaki kilitlediği yerleri tamamen nasıl kilitleyebilirim.

Yine yanlış anlattım özür dilerim. Ama sanırım benim Excel'de de bir sorun var Takrar kurayım