Możesz funkcję wyszukaj poziomo użyć w makro:
Sub wyszukaj()
On Error GoTo blad
Sheets("Arkusz1").Range("A1") = WorksheetFunction.HLookup(Sheets("Arkusz1").Range("B1"), Sheets("Arkusz2").Range("A1:Z2"), 2, 0)
Exit Sub
blad:
Sheets("Arkusz1").Range("A1") = "Brak"
End Sub |