Witam, mam makro zastępujące funkcję wyszukaj.pionowo. Wykorzystuje w nim funkcję Vlookup, ale dla interesujących mnie danych wyskakuje błąd o treści "pobranie właściwości vlookup klasy worksheetfunction nie jest możliwe". Wydaje mi się, że przyczyną jest niezgodność typów danych, ale jak to obejść?
Proszę o pomoc. Poniżej cały mój kod:
Sub PacPZU()
Dim i As Double, ostWrs As Double
Dim a As String, nazwa As String
nazwa = ThisWorkbook.Name
ChDir (ThisWorkbook.Path)
Sheets("ZP24").Select
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Range("E1").Select
ActiveSheet.Paste
Range("A1").Select
With Workbooks(nazwa).Sheets(2)
Sheets(2).Select
ostWrs = .Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To ostWrs
If WorksheetFunction.CountIf(Workbooks(nazwa).Sheets(1).Range("C:E"), .Cells(i, "A")) > 0 Then
.Cells(i, "B") = WorksheetFunction.VLookup(.Cells(i, "A"), Workbooks(nazwa).Sheets(1).Range("C:E"), 3, 0)
Else
.Cells(i, "B") = "Brak"
End If
Next i
End With
Sheets("ZP24").Select
Columns("E:E").Select
Selection.ClearContents
Range("A1").Select
Sheets("PacPZU").Select
End Sub
