MS Excel VBA - filtrowanie i kopiowanie komórek z jednego arkusza do drugiego

2
1
54

W tabeli mam umieszczone konkretne dane (jak na obrazu).

chciałabym, aby:

1). wszystkie dane np. z KAT.1, KAT.2 itd. były kopiowane i przenoszone do kolejnych arkuszy: Arkusz KAT.1, Arkusz KAT.2 itd.,

(nowych arkuszy nie chcę tworzyć, ponieważ będą one stworzone na stałe).

2). jeżeli nie ma jakiejś KAT. to ma pominąć i wykonywać krok dalej,

3). liczba kategorii jest stała i wiadoma (jest ich zawsze 7 i zawsze nazywają się tak samo).

Próbowałam stworzyć makro na zasadzie filtrowania, jednak kiedy w kolumnie "kategoria" brakuje którejś z KAT, to niestety nie działa jak powinno.

(np. brakuje KAT.2 i w arkuszu do którego miała trafiać KAT.2 trafiają dane z KAT.1 - to jest oczywiste, bo wrzuca wcześniej skopiowane dane, jednakże strasznie mi to utrudnia pracę).

Zapytał
@ Aneta_Kotleszka | 16.03.2017
- 1
- 0
- 1

0

Jeśli można kopiować razem z nagłówkami (czyli rozrzucać po kategoriach dokładnie w takim samym układzie) można zastosować poniższe makro:

Sub KATEGORIE()

Dim Nr_kol, Ost_w, i As Integer
Dim rng, x As String

Nr_kol = 4 'nr kolumny w której są nazwy kategorii

Ost_w = Cells(Rows.Count, Nr_kol).End(xlUp).Row

rng = "$A$1:$E$" & Ost_w

For i = 1 To 7

    x = "KAT." & i

    ActiveSheet.Range(rng).AutoFilter Field:=4, Criteria1:=x, _
            Operator:=xlAnd

    Rows("1:" & Ost_w).Copy

    Sheets(x).Range("A1").PasteSpecial xlPasteValues

Next i

ActiveSheet.Range(rng).AutoFilter Field:=4

End Sub

Jeśli ma jednak kopiować bez nagłówków, to daj znać - pomyślę nad innym (ładniejszym) rozwiązaniem. :)

Skomentuj

Odpowiedział
@ Monika-Kwiatkowska | 20.03.2017
- 0
- 0
- 8

Pytanie