Mefisto...diabeł czy anioł?

Witam,

Mam arkusz w którym wpisuje ilo¶c arkuszy które siê ma siê utworzyæ
np 10 i to dzia³a


Sub generuj_trasy()

ile_tras = InputBox("Podaj ile tras ma byæ wygenerowanych : ")
Range("D1").Formula = ile_tras

Dim nazwa As Integer
nazwa = Range("D1")

For ile = 1 To nazwa
Sheets("Wzór").Select
Sheets("Wzór").Copy Before:=Sheets(1)
ActiveSheet.Name = (nazwa - ile) + 1
Sheets("Dane_trasa").Select
Next ile

End Sub


i chcê stworzyæ makro które mi wklei do wygenerowanej ilo¶ci arkuszy dane z arkusza wzór

Dzieki wielkie za pomoc
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • katkaras.opx.pl