dim c as range
With Worksheets(1).cells
Set c = .Find("Szukana wartość", lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Pamiętaj, że find zwraca Ci obiekt typu range, który z kolei ma właściwość .address (interesujący Cię adres). Zwróc uwagę na parametry lookat, lookin i matchcase.
napisał: Kakat postów: 10
umieszczony: 19 lutego 2007 08:57
Witam,
mam takie szybkie pytanie:
mam arkusz z dużą ilością danych liczbowych. Dane te się nie powtarzają. Jak zrobić żeby żeby Excel wyszukiwał mi określoną daną i do textboxa wstawił mi adres komórki w której określona wartość się znajduje. Potrafię wyszukać tę wartość jednak mam kłopot z wpisem do textboxa jej adresu. Czyli np. jeżeli wartość 100 jest w A1, to chciałbym aby do textboxa została wpisana nie wartość 100, a adres gdzie jest ta wartość, czyli A1.