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

• #35506 Fferi50 Topikgazda Capella #35504

  Új Válasz 2017-06-18 13:19:48 #35506

  Ú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

  

  Fferi50

  Topikgazda

  válasz Capella #35504 üzenetére

  Szia!

  Ha J2 cellában egy cím keletkezik a képlet alapján akkor egyszerűen:
  Application.Goto Reference:=Range(Range("J2").Value)
  A Goto aktíválja is az adott cellát.

  Így az összes többi sor teljesen felesleges, elegendő ez az egy.
  Ha pedig az éppen aktuális celládban van a kívánt cím akkor:
  Application.Goto Reference:=Range(Selection.Value)

  Üdv.

• #35505 poffsoft veterán Capella #35504

  Új Válasz 2017-06-18 13:18:36 #35505

  Ú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

  

  poffsoft

  veterán

  válasz Capella #35504 üzenetére

  A J2 tartalma egészen pontosan milyen formátumban tartalmazza az utolsó cella címét? R1C1, vagy A1 vagy más? Ha A1 a formátum:
  Sub GotoLastCell()
'
' GotoLastCell Makró
'
' Billentyűparancs: Ctrl+n
'
' Range("J2").Select
' Selection.Copy
' Application.Goto Reference:="R3135C6"
' ActiveCell.Select
' Application.CutCopyMode = False
Range(Range("J2")).Select

End Sub

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