Здраствуйте, проблема такая. Есть две ячейки, в одной адрес регистрации, в другой адрес места жительства, часто бывает что адреса одинаковые, можно автоматизировать дублирования адреса во вторую ячейку если адреса совпадают, к примеру в одной из ячеек поставить+ и адрес копируется во вторую ячейку, +нет не копируется.
Здраствуйте, проблема такая. Есть две ячейки, в одной адрес регистрации, в другой адрес места жительства, часто бывает что адреса одинаковые, можно автоматизировать дублирования адреса во вторую ячейку если адреса совпадают, к примеру в одной из ячеек поставить+ и адрес копируется во вторую ячейку, +нет не копируется.gorkogo-15
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 6 And Range("f" & Target.Row) = "" Then _ Range("f" & Target.Row) = Target.Offset(-1, 0).Value Cancel = True End Sub
[/vba]после ввода места регистрации двойной клик левой кнопки мыши по месту проживания
в модуль листа [vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 6 And Range("f" & Target.Row) = "" Then _ Range("f" & Target.Row) = Target.Offset(-1, 0).Value Cancel = True End Sub
[/vba]после ввода места регистрации двойной клик левой кнопки мыши по месту проживанияNic70y