X
ďťż

Mefisto...diabeł czy anioł?

Siemka... Kombinowałem sam, ale moja wiedza z VBA jest za mała abym sam tego dokonał :P Potrzebne mi makro (koniecznie makro - nie chce filtrować), które przeszuka 1 z góry określoną kolumnę z arkusza Arkusz1, gdy znajdzie szukaną wartość zaznaczy cały rząd i przekopiuje go do rzędu 10 w arkuszu Arkusz2. Następnie wyszuka kolejnej wartości, skopiuje cały znaleziony rząd i przekopiuje go do kolejnego wolnego rzędu z Arkusza Arkusz2. Proszę o pomoc... Sam kombinowałem jak, a w dowód tego moge zamieścić skrypt, który jest do niczego :P


Sub szukaj()
Dim a As String
Dim firstAddress As String
a = Cells(5, 2).Value
If a = "" Then Exit Sub
With Cells
    Set c = .Find(a, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False)
        If Not c Is Nothing Then
        firstAddress = c.Address
        If InStr(1, UCase(Range(firstAddress).Value), UCase(a)) > 0 Then
        Worksheets("Arkusz1").Cells(firstAddress).Select
        Selection.Copy
        Worksheets("Arkusz2").Range("A10").EntireRow.Select
        ActiveSheet.Paste
        End If
        Do
          Set c = .FindNext(c)
        If InStr(1, UCase(Range(c.Address).Value), UCase(a)) > 0 Then
        Worksheets("Arkusz1").Cells(firstAddress).EntireRow.Select
        Selection.Copy
        Worksheets("Arkusz2").Range("A10").EntireRow.Select
        ActiveSheet.Paste
        End If
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub

[ Dodano: 2008-02-19, 23:55 ]
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • katkaras.opx.pl

    • Drogi uzytkowniku!

    W trosce o komfort korzystania z naszego serwisu chcemy dostarczac Ci coraz lepsze uslugi. By moc to robic prosimy, abys wyrazil zgode na dopasowanie tresci marketingowych do Twoich zachowan w serwisie. Zgoda ta pozwoli nam czesciowo finansowac rozwoj swiadczonych uslug.

    Pamietaj, ze dbamy o Twoja prywatnosc. Nie zwiekszamy zakresu naszych uprawnien bez Twojej zgody. Zadbamy rowniez o bezpieczenstwo Twoich danych. Wyrazona zgode mozesz cofnac w kazdej chwili.

     Tak, zgadzam sie na nadanie mi "cookie" i korzystanie z danych przez Administratora Serwisu i jego partnerow w celu dopasowania tresci do moich potrzeb. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

     Tak, zgadzam sie na przetwarzanie moich danych osobowych przez Administratora Serwisu i jego partnerow w celu personalizowania wyswietlanych mi reklam i dostosowania do mnie prezentowanych tresci marketingowych. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

    Wyrazenie powyzszych zgod jest dobrowolne i mozesz je w dowolnym momencie wycofac poprzez opcje: "Twoje zgody", dostepnej w prawym, dolnym rogu strony lub poprzez usuniecie "cookies" w swojej przegladarce dla powyzej strony, z tym, ze wycofanie zgody nie bedzie mialo wplywu na zgodnosc z prawem przetwarzania na podstawie zgody, przed jej wycofaniem.