Историе изменение ячеек

[EducatedFool]

Ну так замените строку

If Target.Address <> [A1].Address Then Exit Sub

на строку

If Target.Row < 10 Or Target.Interior.ColorIndex <> 36 Then Exit Sub

[Артур Иваныч]

а что делать если такие ячейки:

    Dim li As Long, le As Long, lii As Long, lee As Long
    le = cells(9, Columns.Count).End(xlToLeft).Column
    lee = cells(Rows.Count, 3).End(xlUp).Row
        For lii = 10 To lee
            For li = 5 To le - 3
                If cells(lii, li).Interior.ColorIndex = 36 Then
                    cells(lii, li) = .................................................
                    cells(lii, le) = ...............................................
                End If
            Next li
        Next lii

cells(lii, li) = ................................... ..............
cells(lii, le) = ................................... ............
вот эти ячейки

[Артур Иваныч]

в том то и дело что сложность для меня во всех этих условиях и циклах
а хочется "историю" дать конкретным ячейкам в таблице...

[EducatedFool]

в том то и дело что сложность для меня во всех этих условиях и циклах

А кто Вас заставляет делать все эти условия и циклы???
Вы сами всё усложняете...

Выделите ячейки, историю которых надо изменять, присвойте выделенному диапазону имя, а потом проверяйте, попадает ли ячейка в именованный диапазон (одна строка кода)

[Артур Иваныч]

хм
попробую

[Артур Иваныч]

Так рассуждаем значит:
If Target.Row < 10 Or Target.Interior.ColorIndex <> 36 Then Exit Sub
определяет все ячейки страницы с 10ой строки и до конца листа и только жёлтые
хм...у меня видимо недостаток значий
а как задать цикл(диапазон определённых ячеек)?? ведь мне нужно столбцы от 5го до (Cells(9, Columns.Count).End(xlToLeft).Column - 3) - то есть до предпредпоследнего

[Артур Иваныч]

    If Target.Row < 10 Or Target.Interior.ColorIndex <> 36 Then Exit Sub
    If Target.Column > 5 Or Target.Column < le - 3 Then Exit Sub

но когда пишу так:
If Target.Column > 5 Or Target.Column < le - 3 And Target.Column <> le Then Exit Sub
не работает(

[SAS888]

If Target.Column > 5 Or Target.Column < le - 3 And Target.Column <> le Then Exit Sub

Какая-то нелепая запись.
Во-первых, если Target.Column < le - 3, то этого уже достаточно, чтобы было Target.Column <> le.
Во-вторых, под условие If Target.Column > 5 Or Target.Column < le - 3 подойдет, например, 1-й столбец. Ведь он же меньше, чем le - 3, а операнд у Вас ИЛИ.
Лучше объясните словами, какие ячейки и по каким признакам Вам нужно определить.
И еще. Иногда, лучше написать условия, при которых нужно выполнять процедуру, а не те, при которых делать Exit Sub. Например:

Private Sub Worksheet_Change(ByVal Target As Range)
    If [условие] Then
        'Ваши действия
    End If
End Sub

[Артур Иваныч]

Application.ScreenUpdating = False
    Dim li As Long, le As Long, lii As Long, lee As Long
    le = Cells(9, Columns.Count).End(xlToLeft).Column
    If Target.Row < 10 Or Target.Interior.ColorIndex <> 36 Then Exit Sub
    If Target.Column > 4 Or Target.Column < le - 3 And Target.Column = le Then
    Dim comm As String, s As String, i As Integer
    With Target
        On Error Resume Next: comm = .Comment.Text: .Comment.Delete: On Error GoTo 0: .AddComment
        a = Split(comm, Chr(10))
        If UBound(a) > 9 Then
            For i = LBound(a) + 1 To UBound(a): s = s & a(i) & Chr(10): Next
            .Comment.Text Text:=Left$(s, Len(s) - 1) & Target & " : " & "До периода " & Now & Chr(10)
        Else
            .Comment.Text Text:=comm & Target & " : " & "До периода " & Now & Chr(10)
        End If
        .Comment.Shape.TextFrame.AutoSize = True
    End With
    End If

спасибо)))

[Артур Иваныч]

Спасибо Ребята!
Эта вещь мне очень нужна была))