MAKRO EXCEL - tworzenie nowych zakładek

[michosan]

Witam wszystkich forumowiczów!

Mam pilną sprawę, w związku z czym chciałbym was sie doradzić jak mam wykonać makro.
Stworzyłem tabelę z danymi finansowymi, która pokazuje dane dla 50 jednostek w zależności od wybranego numeru z rozwijanej listy.
Stworzyłem to za pomocą formuł wyszukaj pionowo i sum if. Tzn. jak wybiorę jednostkę nr. 1 excel zaciąga z tabel zbiorczych dla tej jednostki w konkretnym układzie.
Chciałbym stworzyć makro, które wykonuje takie obliczenie za mnie.
TJ. Wygeneruje 50 plików excelowych w zależności od numeru wybranego z listy. chciałby, by to sie robiło jednym kliknięciem.

Z góry wielkie dzięki za pomoc!

[Husar]

chcesz makro działające w excel czy calc, czy może w pliku excelowskim otwieranym w calc?

[michosan]

Excel

[Husar]

Po 1. Makra excelowe nie będą działać kiedy uruchomisz je w Calc.
Po 2. To nie to forum.
Po 3. Jak znajdę czas to poszukam odpowiednie makro w swoim "archiwum".

[michosan]

Dzięki:)

[Husar]

UWAGA! Makro nie będzie działać w Calc
Założyłem, że istnieje arkusz wzorcowy. Nazwałem ten arkusz w makrze "wzór". Jeśli nie chcesz kasować wzorcowego arkusza to skasuj linijkę Sheets("wzór").Delete

Kod: Zaznacz cały

Sub NowyArkusz()

Dim i As Byte, n As Byte
n = Val(InputBox("Podaj ile chcesz nowych arkuszy", "Nowe arkusze"))
For i = 1 To n
    Sheets("Wzór").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = i
Next i
Sheets("wzór").Delete
End Sub