условия в процедуре Worksheet_Change

[Nixxon]

Здравствуйте, форумчане, прошу помочь разобраться начинающему программисту с работой в процедуре
Worksheet_Change: написал макрос, который работает так, если значение в ячейке G2 пустое, то диапазон ячеек K2:P2 очищается, и так дальше для G3 и т.д.

не получается следующее: то же самое но для другого диапазона ячеек:
если значение в ячейке R2 пустое, то диапазон ячеек W2:AA2 очищается, и так дальше для R3 и т.д.

вот текст макроса:


Private Sub Worksheet_Change(ByVal Target As Range)
'V = Range("A2:B2").Value

K = Target.Column 'определение номера колонки вводимого значения
R = Target.Row 'определение номера ряда вводимого значения
'ADDR = "G" & K
'Addr2 = "K" & K & ":" & "O" & K ' определение диапазона ячеек, кот. надо удалять в дальшейшем
'Addr1 = "O" & K
'alb = "abcdefghj"
LeftColl = 11
RightCol = 15


If ((K < LeftColl) Or (K > RightCol)) Then
Exit Sub
End If

If Range("G" & R).Value = "" Then

Target.Select
Selection.ClearContents
Exit Sub
End If

LeftColll = 23
RightCol = 27


If ((K < LeftColl) Or (K > RightCol)) Then
Exit Sub
End If

If Range("R" & R).Value = "" Then

Target.Select
Selection.ClearContents
Exit Sub
End If


Заранее благодарен за помощь

[Watcher_1]

Код просто....
сильно не вдаваясь попробуйте так

Private Sub Worksheet_Change(ByVal Target As Range)
'V = Range("A2:B2").Value

K = Target.Column 'определение номера колонки вводимого значения
R = Target.Row 'определение номера ряда вводимого значения
Application.EnableEvents=False
'ADDR = "G" & K
'Addr2 = "K" & K & ":" & "O" & K ' определение диапазона ячеек, кот. надо удалять в дальшейшем
'Addr1 = "O" & K
'alb = "abcdefghj"
LeftColl = 11
RightCol = 15


If ((K < LeftColl) Or (K > RightCol)) Then
Application.EnableEvents=False
Exit Sub
End If

If Range("G" & R).Value = "" Then

Target.Select
Selection.ClearContents
Application.EnableEvents=False

End If

LeftColll = 23
RightCol = 27


If ((K < LeftColl) Or (K > RightCol)) Then
Application.EnableEvents=False
Exit Sub
End If

If Range("R" & R).Value = "" Then

Target.Select
Selection.ClearContents
Application.EnableEvents=False

End If

[RAN.]

Может так?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x&, y&
If Target.Count > 1 Then Exit Sub
If Target.Column = 7 Then
x = 4: y = 6
If Len(Target) Then Else Target.Offset(, x).Resize(, y).ClearContents
ElseIf Target.Column = 18 Then
x = 5: y = 5
If Len(Target) Then Else Target.Offset(, x).Resize(, y).ClearContents
End If
End Sub

[Nixxon]

Сообщение от Watcher_1

Код просто....
сильно не вдаваясь попробуйте так

Private Sub Worksheet_Change(ByVal Target As Range)
'V = Range("A2:B2").Value

K = Target.Column 'определение номера колонки вводимого значения
R = Target.Row 'определение номера ряда вводимого значения
Application.EnableEvents=False
'ADDR = "G" & K
'Addr2 = "K" & K & ":" & "O" & K ' определение диапазона ячеек, кот. надо удалять в дальшейшем
'Addr1 = "O" & K
'alb = "abcdefghj"
LeftColl = 11
RightCol = 15


If ((K < LeftColl) Or (K > RightCol)) Then
Application.EnableEvents=False
Exit Sub
End If

If Range("G" & R).Value = "" Then

Target.Select
Selection.ClearContents
Application.EnableEvents=False

End If

LeftCo = 23
RightCo = 27


If ((K < LeftCo) Or (K > RightCo)) Then
Application.EnableEvents=False
Exit Sub
End If

If Range("R" & R).Value = "" Then

Target.Select
Selection.ClearContents
Application.EnableEvents=False

End If

Спасибо за ответ, но что-то не работает, End Sub в конце кода дописал - но почему-то ника

[Nixxon]

Сообщение от RAN.

Может так?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x&, y&
If Target.Count > 1 Then Exit Sub
If Target.Column = 7 Then
x = 4: y = 6
If Len(Target) Then Else Target.Offset(, x).Resize(, y).ClearContents
ElseIf Target.Column = 18 Then
x = 5: y = 5
If Len(Target) Then Else Target.Offset(, x).Resize(, y).ClearContents
End If
End Sub

Спасибо за ответ, непонятно как это работает тк не ясно что означает x = 4: y = 6
и x = 5: y = 5

[IgorGO]

если смогли разобраться с 1, 7 и 18, то могли бы и с 4, 6, 5, 5.
а вообще - это расстояния от исходной ячейки до очищаемого диапазона и его размер.