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

• #13499 Delila_1 veterán m.zmrzlina #13497

  Új Válasz 2012-04-19 17:56:03 #13499

  Ú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 m.zmrzlina #13497 üzenetére

  Vegyük, hogy a Munka1 lap B4 cellájába tennéd a linket.
  Ne tedd be, csak egy szöveget írj oda, ami utal az ugrás helyére.
  A lap kódlapjára:

  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$B$4" Then _
  Application.Goto Sheets(2).Range("U66"), Scroll:=True
  End Sub

  felhasználva Fire előbbi hozzászólását.

• #13498 Fire/SOUL/CD félisten m.zmrzlina #13497

  Új Válasz 2012-04-19 17:47:28 #13498

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz m.zmrzlina #13497 üzenetére

  nem tudom, hogy ezt a linkel hogy hozod össze, de az biztos, hogy így lehet(ha jól értettem, amit kérdeztél) Itt az U66-os cella lesz a kliens terület bal felső sarkába görgetve.

  Application.Goto Range("U66"), Scroll:=True

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