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

• #36374 Delila_1 veterán Krogoth #36373

  Új Válasz 2017-10-25 10:02:39 #36374

  Ú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 Krogoth #36373 üzenetére

  Sub Lapnevek()
Dim lap As Integer

For lap = 1 To Sheets.Count
Sheets(lap).Name = Sheets(lap).Range("E2")
Next
End Sub

  Ez a nyúlfarknyi makró (modulba bemásolva) megoldja.

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