Cześć,
próbuję zrobić makro, które będzie wypisywać nazwy wszystkich wózków mających określona nośność.
w pole wpisuje nośność
przycisk uruchamia makro i poniżej wyskakuje lista wszystkich wózków które są w stanie unieść dany ciężary
Sub WyszukajWszystkie2(Szukana As String, Zakres As Range, Nrkolumny As Integer, Wstaw As Range)
Dim i As Integer, j As Integer
For i = 1 To Zakres.Rows.Count
If Zakres.Cells(i, 2) > Szukana Then
Wstaw.Offset(0, j) = Zakres.Cells(i, Nrkolumny)
j = j + 1
End If
Next i
End Sub
Sub Wywołaj()
Call WyszukajWszystkie2(Range("C4"), Range("N8:P11"), 2, Range("C9"))
End Sub
Gdzie mam błąd, że ciągle zwraca mi wszystkie wartości?