Witam,
Mocuję się z następującym problemem:
Chcę wstawić pusty wiersz na końcu zdefiniowanej tabeli. Nie chcę tego robić poprzez wstawianie wiersza w samej tabeli, gdyż rozwala mi to formatowanie arkusza (część arkusza pod tabelą przesuwa się w dół natomiast część arkusza, która nie znajduje się pod tabelą pozostaje na tej samej wysokości), tylko poprzez wstawianie całego wiersza.
I właśnie tu pojawia się problem, bo Excel ma możliwość wstawienia wiersza tylko powyżej zaznaczenia.
Gdy robię to poniższym makrem:
wiersz = ActiveSheet.Range("A14").End(xlDown).Row
ActiveSheet.Rows(wiersz & ":" & wiersz).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
to wstawia mi wiersz powyżej ostatniego,
natomiast, gdy dodam przesunięcie:
wiersz = ActiveSheet.Range("A14").End(xlDown).Offset(1,0).Row
to wstawia mi wiersz pod ostatnim wierszem tabeli, ale już poza tabelą (bez formatowania tabelowego).
Wiem, że dałoby się to załatwić kombinuj ac coś z kopiowaniem i wstawianiem wierszy, ale być może da się jakoś prościej.Wie ktoś jak to rozwikłać?
Z góry dzięki,
Pozdrawiam. |