Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Makro - Grupowanie tabeli przestawnej

irnet · Starszy Forumowicz Posty: 42

Dzień dobry,
Nie mogę sobie poradzić z makrem którę będzie grupować dane w tabeli przestawnej na podstawie danych z komórek
Zarejestrowałem makro i chciałem go przerobić ale poległem

Cytat:

Sub Makro_tabela_przestawna()

Range("E1").Select
Selection.Copy
Selection.Group Start:=0, End:=5, By:=1
Range("E2").Select
Selection.Copy
Selection.Group Start:=0, End:=20, By:=1
Range("E3").Select
Selection.Copy
Selection.Group Start:=0, End:=20, By:=3

End Sub

W załączniku przesyłam zrzut jak to miałoby działać

Proszę o pomoc, dziękuje

Pozdrawiam, Irek

makro grupowanie tp.JPG

Plik ściągnięto 5 raz(y) 36.79 KB

umiejead · Wysłany: 20-07-2022, 13:01

Cytat:

Nie mogę sobie poradzić z makrem

Pokaż to makro.
.

irnet · Starszy Forumowicz Posty: 42

Cytat:

Sub Makro_tabela_przestawna()

Range("E1").Select
Selection.Copy
Selection.Group Start:=0, End:=5, By:=1
Range("E2").Select
Selection.Copy
Selection.Group Start:=0, End:=20, By:=1
Range("E3").Select
Selection.Copy
Selection.Group Start:=0, End:=20, By:=3

End Sub

Takie mi makro wyszło przy rejestracji makra.
Próbowałem zmieniać Start:=0, End:=5, By:=1 , ale działa to tylko jako "stała" cyfra a nie pobierana z konkretnej komórki

Pozdrawiam, Irek

ple4 · Wysłany: 21-07-2022, 10:40

A jakiejś przykłady tabeloidalnej w pliku xls nie zamieścisz ?

irnet · Starszy Forumowicz Posty: 42

Sorry, faktycznie plik więcej pokaże w czym mam problem i ułatwi rozwiązanie moje problemu
Przesyłam plik w załączniku

grupowanie_makro.xlsm

Pobierz Plik ściągnięto 23 raz(y) 151.01 KB

xfish · Wysłany: 22-07-2022, 10:51

Kod:

Sub Makro_tabela_przestawna()

Range("E2").Select
Selection.Group Start:=Range("J1"), End:=Range("J2"), By:=Range("J3")

End Sub

irnet · Starszy Forumowicz Posty: 42

Dziękuje bardzo za pomoc :beer

To co jest proste zawsze przysparza problemów ;-)