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

• #3499 Delila_1 veterán Oly #3496

  Új Válasz 2008-04-30 17:20:00 #3499

  Ú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 Oly #3496 üzenetére

  Az alábbi makró elvégzi helyetted a munkát.

  Sub nev()
  Dim nev
  sor = 1
  Do While Cells(sor, 2) <> ""
  nev = Cells(sor, 2).Value
  Cells(sor, 1).Select
  ActiveWorkbook.Names.Add Name:=nev, RefersToR1C1:="=Munka1!R" & sor & "C1"
  sor = sor + 1
  Loop
  End Sub

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