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

• #16190 lappy őstag Töki bácsi #16189

  Új Válasz 2013-01-14 16:03:47 #16190

  Ú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

  

  lappy

  őstag

  válasz Töki bácsi #16189 üzenetére

  A laphoz kell rendelned ezt a rövid makrót: lapfülön jobb klikk, kód megjelenítése, a jobb oldalon kapott üres lapra másold be.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then
  If Target = 1 Then
  ActiveSheet.Shapes("Picture 1").Visible = True
  ActiveSheet.Shapes("Picture 2").Visible = False
  End If
  If Target = 2 Then
  ActiveSheet.Shapes("Picture 1").Visible = False
  ActiveSheet.Shapes("Picture 2").Visible = True
  End If
  End If
  End Sub

  A "Picture 1" és "Picture 2" nevében a számot írd át a saját képeid sorszámára.

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