Új hozzászólás Aktív témák

• #35682 Carasc0 őstag Delila_1 #35681

  Új Válasz 2017-07-06 18:17:04 #35682

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Carasc0

  őstag

  válasz Delila_1 #35681 üzenetére

  Köszönöm tökéletesen működik!

  Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [I16:I35]) Is Nothing Then
If Target >= 3 Then
Cells(Target.Row, "AZ") = "I"
Cells(Target.Row, "AZ").Locked = True
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [I16:I35]) Is Nothing Then
If Target >= 5 Then
Cells(Target.Row, "BE") = "I"
Cells(Target.Row, "BE").Locked = True
End If
End If
End Sub

  Így viszont már nem! Ugyanis nekem több tartományra kéne érvényesítenem a dolgot. A BE oszlopos tartománynál már más a kritikus érték. Így nem engedi.

Új hozzászólás Aktív témák