Добрый день, подскажите пож-та как переписать макрос так чтобы в столбце B проставлять значение "x" как и в столбце А (столбцы должны быть независимые) Спасибо. Пример во вложении.
Изначально пример нашел тут:
сам макрос:
Изначально пример нашел тут:
сам макрос:
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
Dim str As String
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
str = Target.Value
Application.EnableEvents = False
r = Cells(Rows.Count, 2).End(xlUp).Row
Range("A2:A" & r).ClearContents
Target.Value = str
End If
Application.EnableEvents = True
End Sub
|
