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

• #18217 Delila_1 veterán Booci&Milka #18215

  Új Válasz 2013-06-09 18:25:05 #18217

  Ú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 Booci&Milka #18215 üzenetére

  Excelben tudok segíteni, majd átírod, ha nem egyezik a tiéddel.

  A termékek nálam az A17:A23 tartományban vannak, mellettük a hozzájuk tartozó kép neve a B oszlopban.

  

  Az A2 cellában egy érvényesítés van, ami a terméke nevét tartalmazza. A B2 cella FKERES függvénye megkeresi a kiválasztott termékhez tartozó kép nevét.

  A képeket a bekeretezett tartományba szúrtam be egymás fölé.
  A makrót a laphoz kell rendelned, és akkor a választást követően a hozzá tartozó kép lesz csak látható.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim kep$, k%
  If Target.Address = "$A$2" Then
  kep$ = Range("B2")
  For k% = 1 To ActiveSheet.Shapes.Count
  If ActiveSheet.Shapes(k%).Name = kep$ Then
  ActiveSheet.Shapes(k%).Visible = True
  Else
  ActiveSheet.Shapes(k%).Visible = False
  End If
  Next
  End If
  End Sub

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