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

• #13503 m.zmrzlina senior tag Delila_1 #13499

  Új Válasz 2012-04-20 09:34:05 #13503

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Delila_1 #13499 üzenetére

  Fire és Delila köszönöm a megoldást. Működik.

  Eredetileg ugyan nem így (makróval) terveztem hanem a Hivatkozás beszúrása> Dokumentum adott pontja menüpont segítségével de azzal a módszerrel a hivatkozott cella a "kliensterület" jobb alsó sarkába került (vagy máshová de nem a bal felsőbe). Gondolom a trükk a Scroll:=True-ban van de ezt nem lehet közvetlenül használni a munkalapon.

• #13500 Delila_1 veterán Delila_1 #13499

  Új Válasz 2012-04-19 18:14:43 #13500

  Ú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 Delila_1 #13499 üzenetére

  Későn vettem észre, hogy ugyanannak a lapnak egy másik cellájára kell ugrani. Természetesen hagyd ki a Sheet(2)-t.

  Ha több ilyen elrugaszkodási pontod van, Select Case szerkezetben adhatod meg a kiindulási pontot. A példa szerinti ugrások B1-ből D3-ba, vagy B4-ből G5-be:

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Select Case Target.Address
  Case "$B$4"
  Application.Goto Range("G5"), Scroll:=True
  Case "$B$1"
  Application.Goto Range("D3"), Scroll:=True
  End Select
  End Sub

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