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

• #32091 Delila_1 veterán Juditta_56 #32090

  Új Válasz 2016-07-18 07:32:15 #32091

  Ú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 Juditta_56 #32090 üzenetére

  Képlettel eléggé nehézkes, de egy rövid makró villámgyorsan beírja a neveket. A makrót modulba kell tenni, lásd a téma összefoglalót.

  Sub Lapnevek()
Dim oszlop As Integer, uoszlop As Integer

uoszlop = Sheets(1).Cells(200, Columns.Count).End(xlToLeft).Column

For oszlop = uoszlop To 3 Step -1
If Cells(200, oszlop) <> "" Then Cells(201, oszlop) = Sheets(Cells(200, oszlop)).Name
Next
End Sub

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