Несколько вопросов по VBA

[Graveyard]

Доброго времени суток!

Задача стоит в следующем: есть Excel документ, в первом столбце на ячейках есть выбор определенных значения (занят/не занят/отсутствует), необходимо что бы при выборе какого либо значения соответсвующая строчка перекрашивалась в определенный цвет.

Проблема заключаеться в том что я не знаю двух моментов:
1. Как автоматически выполнить код ТОЛЬКО для строки в которой поставили/изменили значение первой ячейки.
2. И каким образом в функцию покраски строки передать номер строки в первом столбце

Заранее благодарю за ответы

[SAS888]

В модуль нужного листа вставьте код, выполняемый по событию изменения значения требуемых ячеек. Например:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Column = 1 Then
        '
        'Ваш код при изменении значения в столбце "A"
        '
        'Target.Row - номер строки в которой произошло изменение
    End If
End Sub

[Graveyard]

Благодарю!
Но т.к. я откровенно фиговый программист то код получился малясь избыточным

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim z As Integer
If Worksheets("Нива").Cells(Target.Row, 1).Value = "продана" Then
    For z = 2 To 10
    Worksheets("Нива").Cells(Target.Row, z).Interior.ColorIndex = 1
    Next z
ElseIf Worksheets("Нива").Cells(Target.Row, 1).Value = "резерв" Then
For z = 2 To 10
    Worksheets("Нива").Cells(Target.Row, z).Interior.ColorIndex = 6
    Next z
ElseIf Worksheets("Нива").Cells(Target.Row, 1).Value = "удо" Then
    For z = 2 To 10
    Worksheets("Нива").Cells(Target.Row, z).Interior.ColorIndex = 7
    Next z
ElseIf Worksheets("Нива").Cells(Target.Row, 1).Value = "транзит " Then
    For z = 2 To 10
    Worksheets("Нива").Cells(Target.Row, z).Interior.ColorIndex = 8
    Next z
ElseIf Worksheets("Нива").Cells(Target.Row, 1).Value = "стоянка " Then
    For z = 2 To 10
    Worksheets("Нива").Cells(Target.Row, z).Interior.ColorIndex = 9
    Next z
ElseIf Worksheets("Нива").Cells(Target.Row, 1).Value = "т/р" Then
    For z = 2 To 10
    Worksheets("Нива").Cells(Target.Row, z).Interior.ColorIndex = 10
    Next z
End If
End Sub

И меня интересует два момента:
1. Можно ли как либо этот кусок

    For z = 2 To 10
    Worksheets("Нива").Cells(Target.Row, z).Interior.ColorIndex = 10
    Next z

Организовать в виде функции
2. Как можно избавиться от привязки к названию листа

[Graveyard]

Благодарю!
Но т.к. я откровенно фиговый программист то код получился малясь избыточным

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim z As Integer
If Worksheets("Нива").Cells(Target.Row, 1).Value = "продана" Then
    For z = 2 To 10
    Worksheets("Нива").Cells(Target.Row, z).Interior.ColorIndex = 1
    Next z
ElseIf Worksheets("Нива").Cells(Target.Row, 1).Value = "резерв" Then
For z = 2 To 10
    Worksheets("Нива").Cells(Target.Row, z).Interior.ColorIndex = 6
    Next z
ElseIf Worksheets("Нива").Cells(Target.Row, 1).Value = "удо" Then
    For z = 2 To 10
    Worksheets("Нива").Cells(Target.Row, z).Interior.ColorIndex = 7
    Next z
ElseIf Worksheets("Нива").Cells(Target.Row, 1).Value = "транзит " Then
    For z = 2 To 10
    Worksheets("Нива").Cells(Target.Row, z).Interior.ColorIndex = 8
    Next z
ElseIf Worksheets("Нива").Cells(Target.Row, 1).Value = "стоянка " Then
    For z = 2 To 10
    Worksheets("Нива").Cells(Target.Row, z).Interior.ColorIndex = 9
    Next z
ElseIf Worksheets("Нива").Cells(Target.Row, 1).Value = "т/р" Then
    For z = 2 To 10
    Worksheets("Нива").Cells(Target.Row, z).Interior.ColorIndex = 10
    Next z
End If
End Sub

И меня интересует два момента:
1. Можно ли как либо этот кусок

    For z = 2 To 10
    Worksheets("Нива").Cells(Target.Row, z).Interior.ColorIndex = 10
    Next z

Организовать в виде функции
2. Как можно избавиться от привязки к названию листа

[SAS888]

Если этот код находится в модуле нужного листа, то ссылку на лист делать нет необходимости. Т.е. примерно так:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

    If Target.Column = 1 Then
        Select Case Cells(Target.Row, 1)
            Case "продана"
                Range(Cells(Target.Row, 2), Cells(Target.Row, 10)).Interior.ColorIndex = 1
            Case "резерв"
                Range(Cells(Target.Row, 2), Cells(Target.Row, 10)).Interior.ColorIndex = 6
            Case "удо"
                Range(Cells(Target.Row, 2), Cells(Target.Row, 10)).Interior.ColorIndex = 7
            Case "транзит "
                Range(Cells(Target.Row, 2), Cells(Target.Row, 10)).Interior.ColorIndex = 8
            Case "стоянка "
                Range(Cells(Target.Row, 2), Cells(Target.Row, 10)).Interior.ColorIndex = 9
            Case "т/р"
                Range(Cells(Target.Row, 2), Cells(Target.Row, 10)).Interior.ColorIndex = 10
        End Select
    End If
    
End Sub

[Graveyard]

Еще раз благодарю за ответ, извините за дабл пост =)

[Graveyard]

Еще раз доброго времени суток!
У меня есть новый вопрос:
Что есть: Excel документ-таблица с несколькими листами, на каждом листе кроме двух второй столбец является датой. Требуеться что бы при прошествии 30 дней цвет ячейки поменялся на другой. Макрос отрабатывает только при октрытии.
Вопросы:
1. Можно ли написать единый код для нескольких страниц в Auto_open и как это сделать
2. Все это ЖЕЛАТЕЛЬНО, но не обязательно согласовать, с кодом выше

Насколько я понял надо делать что то типа:
Private Sub Workbook_Open()
Dim m As Date
Dim z As Date
Dim x As Date
m = Date
z = Worksheets("Лсит1").Cells(12, 2).Value - береться дата
x = m - z - высчитывается разница
If x > 30 Then
Worksheets("Лист1").Cells(1, 1).Interior.ColorIndex = 10
Else
Worksheets("Лист1").Cells(1, 2).Interior.ColorIndex = 0
End If
End Sub

Если можно реализовать с меньшими затратами, буду рад поправкам. Заранее благодарю за ответы!