SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Таблицу с примером положил сюда
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim frm As String
frm = ""
If Target.Address = "$A$10" Then
For Each c In Range(Range("B1"), Range("H1")).Cells
If c.Value = Target.Value Then
RowCulture = c.Column
Exit For
End If
Next
For i = 2 To 7
If Cells(i, RowCulture).Value = "+" Then
frm = frm & "," & Cells(i, 1).Text
End If
Next i
With Range("B10").Validation
.Delete
.Add Type:=xlValidateList, Formula1:=frm
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = False
End With
End If
End Sub
|
|
