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

• #29089 Delila_1 veterán modflow #29086

  Új Válasz 2015-10-17 17:40:13 #29089

  Ú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 modflow #29086 üzenetére

  A listából kiválasztást a laphoz rendelt makró figyeli.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$C$3" Then Ugras Target
  End Sub

  Ez meghívja a modulba írt, Ugras nevű makrót, és átadja a kiválasztott értéket.
  Ez a makró hajtja végre az ugrást az általad megadott lapra, és a megadott cellára. A Case utasításokban bármi más feladatot is megadhatsz.

  Sub Ugras(ide)
  Select Case tg
  Case "alma"
  Sheets("AAA").Activate: Range("A1").Select
  Case "körte"
  Sheets("BBB").Activate: Range("C5").Select
  Case "szilva"
  Sheets("CCC").Activate: Range("B10").Select
  Case "naspolya"
  Sheets("DDD").Activate: Range("H12").Select
  End Select
  End Sub

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