Раскрывающийся список значений, макросом.

[Flangini]

Сообщение от EducatedFool

А что, поиск по форуму не работает?[/B]

Прошу прощенье инет ограниченный, досиживаю последние Кб.

[EducatedFool]

Sub test()
    FormatConfirmationCell [a2:a100]
End Sub

Sub FormatConfirmationCell(ByRef ra As Range)
    Dim cell As Range
    For Each cell In ra.Cells
        With cell
            .HorizontalAlignment = xlCenter
            With .Validation    ' формируем выпадающий список
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation, Operator:= _
                     xlBetween, Formula1:=cell.Value & ", Выполнено, Не выполнено"
                .IgnoreBlank = True: .InCellDropdown = True
            End With
            .FormatConditions.Delete    ' условное форматирование
            .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""Выполнено"""
            .FormatConditions(1).Interior.ColorIndex = 35    '4
            .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""Не выполнено"""
            .FormatConditions(2).Interior.ColorIndex = 38    '3
        End With
    Next cell
End Sub

[Flangini]

Sub LCV(ByVal Target As Range)
FormatConfirmationCell_D2 [???]
End Sub

Sub CAR(ByVal Target As Range)
FormatConfirmationCell_D1 [???]
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Value = "CAR" Then Call CAR 
    If Target.Cells.Value = "LCV" Then Call LCV

'В столбце С можно выбрать либо CAR либо LCV в зависимости от этого в столбце D должен появиться список Волга_1, Волга_2 или же ГАЗ_1, ГАЗ_2. Если вместо ??? поставить d1 : d1000 всё работает идеально, единственное, что макрос пробегает весь диапазон d2 : d1000 - это занимает время, а как можно чтобы макрос выполнялся только для той ящейки столбца D напротив которой в яцейке С выбранно значение?

End Sub

Sub FormatConfirmationCell_D1(ByRef ra As Range)
    Dim cell As Range
    For Each cell In ra.Cells
        With cell
            cell.HorizontalAlignment = xlCenter
            With .Validation
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation, Operator:= _
                     xlBetween, Formula1:=cell.Value & "Волга_1, Волга_2"
                .IgnoreBlank = True: .InCellDropdown = True
            End With
        End With
    Next cell
End Sub

Sub FormatConfirmationCell_D2(ByRef ra As Range)
    Dim cell As Range
    For Each cell In ra.Cells
        With cell
            cell.HorizontalAlignment = xlCenter
            With .Validation    
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertInformation, Operator:= _
                     xlBetween, Formula1:=cell.Value & "ГАЗ_1, ГАЗ_2"
                .IgnoreBlank = True: .InCellDropdown = True
            End With
        End With
    Next cell
End Sub

[Flangini]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Single
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("b2:b1000")) Is Nothing Then
With Target(1, 0)
.Value = Date
End With
End If
Target.Cells.Rows = a 'Как изменить эту страку чтобы получить номер строки выделенной ячейки, чтобы потом запустить выполнение FormatConfirmationCell в этой строке, столбец известен - D
FormatConfirmationCell [???]
End Sub