Как подставить значение буфера обмена в функцию Cells.Find?

[Hugo121]

Например так проще, вообще без выделения пытался под Вашу задачу с циклом сделать:

Sub abcd()
    ind2 = 1    'начинать с нуля в этом примере нельзя! (Cells(ind2, 1) не пройдёт с 0)

    For ind = 1 To 10    'цикл по листу, что ищем
        x = Sheets(1).Cells(1, ind).Value
        Set y = Sheets("database").Cells.Find(What:=x, LookIn:= _
                                              xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
                                              xlNext, MatchCase:=False)
        If Not y Is Nothing Then 'обезопасимся от ненахождения
            Sheets("update").Cells(ind2, 1).Value = Sheets("database").Cells(y.Row, y.Column).Value
            ind2 = ind2 + 1
        End If
    Next
End Sub

[Hugo121]

Ах да, там ведь надо пока есть значения... Тогда так например:

Sub abcde()
    ind2 = 1    'начинать с нуля в этом примере нельзя! (Cells(ind2, 1) не пройдёт с 0)
x = 1
    While x <> ""
    ind = ind + 1
        x = Sheets(1).Cells(1, ind).Value
        Set y = Sheets("database").Cells.Find(What:=x, LookIn:= _
                                              xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
                                              xlNext, MatchCase:=False)
        If Not y Is Nothing Then 'обезопасимся от ненахождения
            Sheets("update").Cells(ind2, 1).Value = Sheets("database").Cells(y.Row, y.Column).Value
            ind2 = ind2 + 1
        End If
   Wend
End Sub