Код |
---|
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("G:G,L:L")) Is Nothing Then
Dim B As String
B = Selection.Address
Range("G4") = Range(B)
Call FilterVOEN
End If
If Not Intersect(Target, Range("N:N")) Is Nothing Then
Call INFO
End If
If Not Intersect(Target, Range("G:L")) Is Nothing Then
Dim SRow As String
SRow = Selection.Row
Range("N" & SRow).ClearContents
End If
End Sub
|
Здравствуйте знатоки VBA!
Я выше представил код, который прописал в модуль листа.
Всё работает отлично, но есть одна небольшая загвоздка.
В завершающей части кода записана процедура, которая очищает ячейку в столбце N, при выделении ячеек в той же строке по столбцам от G по L. Что дописать чтоб это очищение происходило не по
выделению, а по
изменению в выше указанных ячейках? И если не сложно дайте пояснение пожалуйста. Спасибо!