Új hozzászólás Aktív témák

• #32225 Delila_1 veterán HREH #32224

  Új Válasz 2016-08-01 17:52:43 #32225

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz HREH #32224 üzenetére

  Írd be az első lap AA oszlopába a létrehozandó lapok elnevezését. Ha ez az oszlop foglalt, akkor egy másikba, a makróban meg írd át a

  lapnev = Cells(sor, "AA")

  sorban az AA-t a kiválaszott oszlopod betűjelére.

  Sub Nyolcvan_Lap() 'a Föld körül
Dim sor As Integer, lapnev As String

For sor = 1 To 80
lapnev = Cells(sor, "AA")
Sheets(1).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = lapnev
Next
End Sub

  A makrót modulba kell másolni, lásd a Téma összefoglalót.

Új hozzászólás Aktív témák