Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: wyszukiwanie
Alwin




Typ: neutral
Postów: 2
Zarejestrowany: Oct 2004
wyszukiwanie

Witam Wszystkich

Mam taki problem mam pewien kod w Worksheet_Change Arkusza ktory chodzi, ale mam problem z wyszukiwaniem danych.
np. mam wiersz 4 gdzie w komorce A4 zanajduje sie "a" przechodze do wiersza 7 i teraz powinien zaczac szukanie od wiersza 7 w gore czyli az natrafi na komorke gdzie znajduje sie "a".
Oczywiscie tych wierszy z "a" jest wiecej, a ja potrzebuje zeby zaczal wyszukiwanie z aktualnego wiersza do pierwszego napotkanego mniejszego od aktywanego
ale namieszalem

Dzieki i Pozdrawiam

24-10-2004 17:08
Pokaż profil Alwin  Wyślij email do Alwin   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
Nie jest to piękne, ale działa!


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim i As Integer
Dim strTmp As String

If Target.Row = 1 Then Exit Sub

i = Target.Row

Do While i >= 1
    strTmp = ActiveSheet.Range("A" & i)
    If strTmp Like "*a*" Then
        ActiveSheet.Range("A" & i).Select
        Exit Do
    End If
    i = i - 1
Loop
End Sub


[Post edytowany dnia 24-10-2004 21:18 przez losmac]


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

24-10-2004 21:16
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Alwin




Typ: neutral
Postów: 2
Zarejestrowany: Oct 2004
dziekowka za szybka odpowiedz

ale rozwiazalem swoj problem jedna linija przy ktorej spedzilem pol dnia

szukany = Cells(Target.Row, 1).End(xlUp).Offset(1, 0).Row - 1

Ale naprawde dzieki ci Losmac przyda sie na przyszlosc

24-10-2004 22:05
Pokaż profil Alwin  Wyślij email do Alwin   
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1