Temat: problem Excelowski - kopiowanie wybranych wierszy

Witajcie,
mam multum tabel o tej samej konstrukcji i walczę z napisaniem makra które znajdowało by wiersze w tych tabelach zaczynające się od tego samego naglówka np UVB i kopiujace cały wiersz (jakies 26 pozycji) znajdujące sie po tym nagłówku do innego arkusza i tak przez 365 dni.
Jakbyś miał jakikolwiek pomysł to byłbym wdzięczny.
Pozdrawiam

Temat: problem Excelowski - kopiowanie wybranych wierszy

To nie wydaj esię być zbyt skomplikowane, ale potrzebnych byłoby trochę więcej szczegółów. Gdzie są te tabele? W jednym arkuszu? I dla każdego nagłówka ma być osobny arkusz?
Może spróbuj podrzucić jakiś wzór pliku?

Temat: problem Excelowski - kopiowanie wybranych wierszy

Marzanna Szulta:
To nie wydaj esię być zbyt skomplikowane, ale potrzebnych byłoby trochę więcej szczegółów. Gdzie są te tabele? W jednym arkuszu? I dla każdego nagłówka ma być osobny arkusz?
Może spróbuj podrzucić jakiś wzór pliku?

Też wydaje mi się to proste, ale jednak nie mogę tego sensownie ogarnąć.

Tak, tabele są w jednym arkuszu.

Chciałbym aby kopiowane wiersze wklejały się jeden pod drugim w jednym arkuszu.

Temat: problem Excelowski - kopiowanie wybranych wierszy

Dla każdego nagłówka osobny arkusz? Czy wszystkie nagłówki, pogrupowane, w tym samym arkuszu? Czy między tabelami są jakieś odstępy?

Temat: problem Excelowski - kopiowanie wybranych wierszy

Marzanna Szulta:
Dla każdego nagłówka osobny arkusz? Czy wszystkie nagłówki, pogrupowane, w tym samym arkuszu? Czy między tabelami są jakieś odstępy?

Wszystkie takie same nagłówki (z 26 pozycjami za nimi) w jednym arkuszu, po kolei, pod sobą.

Między tabelami są odstępy 1 wiersza.

przykladowy plik: http://www.sendspace.pl/file/3678a0b50a4fb35d2c90fe8Anana Sowicz edytował(a) ten post dnia 13.01.13 o godzinie 18:33

Temat: problem Excelowski - kopiowanie wybranych wierszy

Wyszło mi takie makro. Jeżeli dane wyjściowe nie są w Arkuszu3 - to musisz zmienić nazwę w makrze. Początek tabeli odczytuję od komórki o nazwie Parameter - tak jest najłatwiej.
Kod wygląda tak:

Option Explicit

Public Sub PorzadkujNaglowki()

Dim OstatniWiersz As Long

Dim Ilewierszy As Long

Dim Komorka As Range

Dim JakiAdres

Dim JakaNazwa As String

Dim NowaTab As Boolean

Dim i As Long

Dim j As Long



Worksheets("arkusz3").Activate

OstatniWiersz = ActiveSheet.UsedRange.Rows.Count

Application.ScreenUpdating = False

For i = 1 To OstatniWiersz

     

     Set Komorka = Worksheets("arkusz3").Cells(i, 1)

     JakiAdres = Komorka.Address

      If Komorka.Value = "Parameter" Then

             For j = 2 To 1000

             JakaNazwa = Komorka.Offset(j, 0).Value

             JakaNazwa = Replace(JakaNazwa, "/", "_")

             If JakaNazwa <> "" Then

                 If CzyArkusz(JakaNazwa) = False Then

                    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = JakaNazwa

                    Ilewierszy = 1

                   Else

                    Sheets(JakaNazwa).Activate

                    Ilewierszy = ActiveSheet.UsedRange.Rows.Count + 1

                  End If

                                     

                    Sheets("ARKUSZ3").Activate

                    Rows(i + j & ":" & i + j).Select

                    Selection.Copy

                    Sheets(JakaNazwa).Activate

                    Range("A" & Ilewierszy).Select

                    ActiveSheet.Paste

                    Sheets("Arkusz3").Activate

                    Range(JakiAdres).Activate

                Else

                  GoTo Nastepna

              End If

             

         Next j

       End If

Nastepna:

 Next i

 SendKeys "{esc}"

 Application.ScreenUpdating = True

End Sub

Private Function CzyArkusz(Nazwa As String) As Boolean

Dim Arkusz

For Each Arkusz In ThisWorkbook.Worksheets

    If Arkusz.Name = Nazwa Then

       CzyArkusz = True

       Exit Function

    End If

Next

CzyArkusz = False

End Function

Mam nadzieję, że dobrze Cię zrozumiałam i o to właśnie chodziło.
Chwilkę to trwa, wiec nie przejmuj się klepsydrą. Na czas wykonywania makra jest wyłączone odświeżanie ekranu.

Temat: problem Excelowski - kopiowanie wybranych wierszy

dziekuje za włożony trud :)

wyskakuje mi taki błąd: ''Metoda Select z klasy Range nie powiodła się''

PS. wpadlem na trochę mozolny sposób z filtrami, ale daję radę :)Anana Sowicz edytował(a) ten post dnia 14.01.13 o godzinie 01:20

Temat: problem Excelowski - kopiowanie wybranych wierszy

Czy na pewno Twój arkusz z danymi wyjściowymi nazywa się Arkusz3? I skopiowałaś dokładnie makro?
U mnie naprawdę działa, tworzy i dopisuje kolejne wiersze w arkuszach.
Uruchom makro i gdy wyskoczy Ci błąd , przejdź do debugowania - w której linii Ci się to pojawia?