[mrpandominik]

Kolejne pytanie o VBA. Napisałem sobie makro, które dzieli mi tabelę po pewnym parametrze na pliki. Problem w tym, że nie zachowuje się formatowanie tabeli.

Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Zachowują się kolory i czcionki, ale całkowicie rozjeżdżają się szerokości kolumn. Jest na to jakaś rada?
#vba #programowanie #excel

[DarkAlchemy]

@mrpandominik: możesz próbować wcześniej odczytać szerokości kolumn i potem je wklepać do nowego arkusza:

Sub test2()
Columns(6).ColumnWidth = Columns(3).ColumnWidth
End Sub

Ustawia szerokość 6 kolumny na taką wartość jaką ma kolumna 3

[brak_nicku]

@mrpandominik: wklej ponownie z parametrem xlPasteColumnWidths

[mrpandominik]

@brak_nicku: właśnie próbowałem ale to też u mnie nie działa

[mrpandominik]

@DarkAlchemy: liczba kolumn kopiowanych się zmienia. Teraz jest ich 30. tyle dodatkowych zmiennych jeszcze dodatkowo spowolni pracę.

[brak_nicku]

@mrpandominik: "u mnie to nie działa". A u mnie działa... Jak chcesz konkretniejszą poradę, to wrzuć gdzieś spreparowany przykładowy plik z kodem, który nie działa.

[patatier]

@mrpandominik columns("x:y").autofit

[mrpandominik]

@patatier: I dokładnie o to chodziło!! Super, dziękuję! ( ͡° ͜ʖ ͡°)