[d.....i]

#excel #vba

Mireczki, problem.

Mam userform, chcę, żeby ukrywało mi wszystkie wiersze poza tymi, gdzie wartość w konkretnym textbox = wartość komórki.

Mam makra na konkretne wyrażenia, które działa:

Sub PokazRAIF()
Rows("2:5000").EntireRow.Hidden = False
For Each cl In Range("B2:B5000")
If UCase(Left(cl.Value, 3)) <> "RAI" Then
cl.EntireRow.Hidden = True
End If
Next cl
End Sub

(Musiałem zrobić <>, bo na = nic się nie działo, nie wiem dlaczego.)

----------------------------

A tutaj kod dla przycisku:

Private Sub SzukajMiasto_Click()

For Each cl In Range("C2:C1000")
If cl.Value <> MiastoText.Value Then
cl.EntireRow.Hidden = True
End If
Next cl

End Sub

Chowa mi wszystkie wiersze. Nie mogę znaleźć żadnej konkretnej informacji, ale może ktoś z Was mi pomoże.

[dziaru]

If cl.Value <> MiastoText.Value Then

@dwadaszki: sprawdz czy tam zadnych spacji nie ma

[d.....i]

@dziaru: To był powód, przy imporcie danych z pliku na końcu porobiły się spacje. Takie trywialne... dzięki wielkie za pomoc!