Поиск столбца по условию

[Irasen]

Здравствуйте!
Пожалуйста помогите с макросом, который бы находил на определённом листе, например с именем "Данные" определённый столбец, например с заголовком "Среднее", и подтягивал из него данные в столбец "Значения" с помощью функции "ВПР".
Заранее благодарен.

[Hugo121]

Sub Macro1()
    Dim r As Range
    Set r = Sheets("Данные").UsedRange.Rows(1).Find("Среднее", , xlValues, xlWhole)
    If Not r Is Nothing Then
        With Sheets(1)
            .[b2].FormulaR1C1 = "=VLOOKUP(RC[-1],Данные!R2C1:R11C5," & r.Column & ",0)"
            .[b2].AutoFill Destination:=.Range("B2:B" & .[a2].End(xlDown).Row)
        End With
    End If
End Sub

[Irasen]

...работает...огромное спасибо!...

[Irasen]

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

Sub Macro1()
    Dim r As Range
    Set r = Sheets("Данные").UsedRange.Rows(1).Find("Среднее", , xlValues, xlWhole)
    If Not r Is Nothing Then
        With Sheets(1)
            .[b2].FormulaR1C1 = "=VLOOKUP(RC[-1],Данные!R2C1:R11C5," & r.Column & ",0)"
            .[b2].AutoFill Destination:=.Range("B2:B" & .[a2].End(xlDown).Row)
        End With
    End If
End Sub

...небольшое замечание...
...макрос работает...но лишь только тогда, когда столбец "Среднее" не меняет своего местоположения...возможно ли сделать дополнение, что бы данные из этого столбца подтягивались независимо от его месторасположения...предполагается, что перед ним будут добавлятся столбцы...например с данными истёкшего месяца...

[Hugo121]

Да, "недокрутил"...

Sub Macro2()
    Dim r As Range
    Set r = Sheets("Данные").UsedRange.Rows(1).Find("Среднее", , xlValues, xlWhole)
    If Not r Is Nothing Then
        With Sheets(1)
            .[b2].Formula = "=VLOOKUP(A2,Данные!$A$2:" & .Cells(Sheets("Данные").[a2].End(xlDown).Row, r.Column).Address & "," & r.Column & ",0)"
            .[b2].AutoFill Destination:=.Range("B2:B" & .[a2].End(xlDown).Row)
        End With
    End If
End Sub

[KApSuL]

ребят, а мне не поможете?
у меня похожая ситуация вроде бы
http://www.programmersforum.ru/showthread.php?t=238385