Поиск на другом листе

[agregator]

Здравствуйте, уважаемые программисты. Нужно на листе "Сводка", при заполнении ячейки в столбце Таб. №, заполнить ячейку в столбце Водитель данными из листа "Данные". Напишите пожалуйста как это сделать.
Написанный код не находит ячейку с нужным таб. №.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F3:F100")) Is Nothing Then
If Target(1, 1).Value = 0 Then 'Очищаю соседнюю ячейку
    On Error Resume Next
    Intersect(Intersect(Intersect(Target, [F3:F100]), _
                        Target.Worksheet.UsedRange.SpecialCells(xlCellTypeBlanks)).EntireRow, _
                        [g:g]).ClearContents
Else
'Заполняю соседнюю ячейку данными с листа "Данные"
TN = Target(1, 1).Value
    With Sheets("Данные")
         m = 60
    While Cells(m, 9) <> TN
        m = m - 1
    Wend
V = Cells(m, 10)
    End With

Target(1, 2).Value = V

End If
End If
End Sub

[roplius]

Упростил макрос. Но эту задачу можно без макросов решить

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 6 Then Exit Sub
Target(1, 2).FormulaR1C1 = [g2].FormulaR1C1
If IsError(Target(1, 2)) Then Target(1, 2) = "" Else Target(1, 2) = Target(1, 2).Value
End Sub

[agregator]

Roplius, спасибо за помощь, всё работает как надо, решение хорошее.
И всёже может кто нибудь подсказать, можно ли заставить работать мой код.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F3:F100")) Is Nothing Then
'Заполняю соседнюю ячейку данными с листа "Данные"
TN = Target(1, 1).Value
    With Sheets("Данные")
         m = 60
    While Cells(m, 9) <> TN
        m = m - 1
    Wend
V = Cells(m, 10)
    End With

Target(1, 2).Value = V

End If
End Sub

Т.е. если данные находятся на листе "Сводка", то вот такой код работает

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F3:F100")) Is Nothing Then
'Заполняю соседнюю ячейку данными с листа "Данные"
TN = Target(1, 1).Value

         m = 60
    While Cells(m, 9) <> TN
        m = m - 1
    Wend
V = Cells(m, 10)


Target(1, 2).Value = V

End If
End Sub

Как сделать, чтобы работало с данными расположенными на другом листе?

[nilem]

А если точечки перед Cells поставить:

With Sheets("Данные")
    m = 60
    While .Cells(m, 9) <> TN
        m = m - 1
    Wend
    V = .Cells(m, 10)
End With

[roplius]

А если точечки перед Cells поставить:

Должно сработать

[agregator]

nilem и roplius, спасибо за подсказку. Поставил точки и всё заработало.

[putinka]

очень нужна ваша помощь!
задачка простейшая) но решить не получатся... массив+формула не достаточно, советуют гиперссылки, но у меня не получается( мне кажется, удобнее был бы макрос..

Суть задачки: в Книге есть несколько Листов,
нужно с первого листа ("общий_список") выбрать строки в зависимости от значения столбца "вариант",
и разместить на соответствующих листах (при необходимости нужно создать доп.лист).

*файл прилагается

[nilem]

Вот, вроде работает.

[putinka]

"вроде" )))))
очень здорово работает!!!!!!!!!!
nilem, СПАСИБО ОГРОМНОЕ! за помощь и оперативность!!!!!!!!!!!!!!!