EXCEL - VBA - Przeciąganie funkcji + tabela przestawna

Witam!

Problem mój polega na błędnym funkcjonowaniu poniższego makra, a mianowicie:

- z niewiadomych przyczyn "przeciąganie" funkcji (...Range("D2:D" & OstSpend)...) działa prawidłowo dopiero przy dwukrotnym uruchomieniu makra,

- potem mam problem z tabelą przestawną - może błąd wynika z powyższego problemu, dlatego na chwilę obecną tabelę oznaczyłem w formie komentarza.


Jestem początkującą osobą w tej dziedzinie dlatego będę wdzięczny za pomoc ekspertów.

W załączniku xls do testów.

Zmień żeby ostatnia komórkę pobrało np. z kolumny 1 lub najpierw niech wstawi nowe kolumny później OstSpend

clubs napisał:

Zmień żeby ostatnia komórkę pobrało np. z kolumny 1 lub najpierw niech wstawi nowe kolumny później OstSpend

Opcji pierwszej nie potrafię (chętnie bym się dowiedział od Ciebie jakim sposobem osiągnąć ten cel).

Druga opcja zadziałała - wielkie dzięki, tylko zastanawiam się dlaczego taki wpływ na to miały nowe kolumny?
Pytam ponieważ główne makro mam dosyć rozbudowane (różne operacje na wielu plikach) i raczej nie uniknę problemów tego typu.


Reasumując 50% problemu jest rozwiązane, pozostaje mi jeszcze tabela przestawna.

Dodatkowe info: tabelę wstawiałem przy pomocy nagrywania.

Jeżeli
dałeś na początku kodu to na tą chwile kolumna 6 (F) jest pusta

clubs napisał:

Jeżeli

Kod: text

Zaloguj się, aby zobaczyć kod

dałeś na początku kodu to na tą chwile kolumna 6 (F) jest pusta

Zanim zobaczyłem Twoją odpowiedź udało mi się dojść do tego samego wniosku, mimo wszystko dzięki


Jeśli chodzi o tabelę przestawną to problem rozwiązałem, inny zakres pivota lub błąd nazewnictwa zdublowanych kolumn poprzez wcześniejsze uruchomienie makra.

Sprawdzę w dniu jutrzejszym czy na "dużych" plikach wszystko zadziała jak należy.