Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
[VBA Excel] Szukanie tekstu
639 views
Skip to first unread message
Umiar
Mar 15, 2008, 6:52:27 AM3/15/08
to
witam
mam taki problem do rozwiązania:
muszę znalezc w aktywnym arkuszu tekst, pobrac adres tej komórki i w tym
samym wierszu ale w innej kolumnie wpisac jakąs wartość.
Wpisywanie wartosci mam opanowane ale początek nie wiem jak dotknąc.
Prosze o pomoc.
Dziekuję z góry
mam taki problem do rozwiązania:
muszę znalezc w aktywnym arkuszu tekst, pobrac adres tej komórki i w tym
samym wierszu ale w innej kolumnie wpisac jakąs wartość.
Wpisywanie wartosci mam opanowane ale początek nie wiem jak dotknąc.
Prosze o pomoc.
Dziekuję z góry
pozdrawiam
Umiar
.viktor.
Mar 16, 2008, 6:40:37 AM3/16/08
to
Użytkownik "Umiar" <um...@poczta.inna.pl> napisał w wiadomości
news:47dbaaec$1...@news.home.net.pl...
With Worksheets(1).Range("a1:a500") 'Obszar w któym szukasz, możesz sobie
zmienic np jedna cała kolumna Range("A:A")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address ' to jest adres znalezionej komórki
Range(c.Address).Select
Do
c.Interior.Pattern = xlPatternGray50
Set c = .FindNext(c) ActiveCell.Offset(0,2).value =
"twoja wartosc" '(w 2 kolumnie od aktywnej komórki wpisz)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End WithPozdrawiam
0 new messages