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

• #47190 Delila_1 veterán Sweetraver #47189

  Új Válasz 2021-08-09 16:50:41 #47190

  Ú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 Sweetraver #47189 üzenetére

  Sub dupla()
    Dim lapszam As Integer
    lapszam = Sheets.Count
    Sheets.Add.Name = "Munka" & lapszam + 1
    Range("A1").Formula = "=Munka" & lapszam & "!A1"
    Range("B1").Formula = "=Munka" & lapszam & "!B1"
End Sub

  Ez a kis makró új lapot szúr be. Az eddigi utolsó lapnév számát növeli 1-gyel (Munka1 után Munka2, azután Munka3 lesz az új lapnév), majd beírja a képleteket.

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