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

• #12442 Delila_1 veterán poffsoft #12441

  Új Válasz 2012-01-05 12:00:41 #12442

  Ú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 poffsoft #12441 üzenetére

  Ha 10 alatt van a LAPok száma, ez is megoldás lehet:

  ActiveCell.Select
  x = "LAP" & Right(ActiveSheet.Name, 1) - 1
  ActiveCell.FormulaR1C1 = "=" & x & "!RC[34]"
  ActiveCell.Offset(1, 0).Range("A1").Select

  de biztosan van egyszerűbb kivitel. Minden esetben az A2 cellára kell állni a futtatás után?

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