Добрый день!
Товарищи помогите пжл
Необходимо чтобы выбор был не в одном столбце а в нескольких столбцах и все с разными данными
т.е здесь данные берутся из А и выбираются в С, а требуется еще добавить из В в D например
как это сделать?
Товарищи помогите пжл
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range) Dim arr, i As Long, sRez As String, Valid On Error Resume Next If (Intersect([c3:c1000], Target) Is Nothing) Then Exit Sub If Target.Value = "" Then Exit Sub Valid = Target.Validation.Formula1 If Valid <> "" Then Target.Validation.Delete Exit Sub End If arr = Sheets("маты").[a2:a1000].Value For i = 1 To UBound(arr) If InStr(UCase(arr(i, 1)), UCase(Target.Value)) > 0 Then sRez = Replace(arr(i, 1), ",", ".") & "," & sRez Next Target.Validation.Add Type:=xlValidateList, Formula1:=sRez Target.Select |
Необходимо чтобы выбор был не в одном столбце а в нескольких столбцах и все с разными данными
т.е здесь данные берутся из А и выбираются в С, а требуется еще добавить из В в D например
как это сделать?