Ако правилно съм разбрал за Data Validation ! Моя куца проба :)
В отговор на:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("B1").Address Then
Dim ValidationList() As Variant, i As Integer
Dim WSht As Worksheet
i = 0
ReDim ValidationList(ActiveWorkbook.Sheets.Count - 1)
For Each WSht In ActiveWorkbook.Sheets
ValidationList(i) = WSht.Name
i = i + 1
Next WSht
With Range("B1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlEqual, Formula1:=Join(ValidationList, ",")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
End Sub
Макроса трябва да се сложи в Sheet-a в който е клетката дето трябва да се случва случката. Написал съм, че е B1 ти ще я смениш .... Според мен може да се направи да следи всчики клетки от Колона и да сменя Data Validation в повече клетки едновременно , Range("В1:B20") и пр.
Идеята е като кликнеш на клетката, обновява Листа и реално се избира от Актуален Лист. Дано да върши работа :)
P.S.
Верно от Интернет си дръпнах част от информацията.Редактирано от Minavasht_new-208743 на 23.04.14 21:06.