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

• #30212 Delila_1 veterán Morphy #30211

  Új Válasz 2016-01-23 07:41:17 #30212

  Ú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 Morphy #30211 üzenetére

  Az A1 cellába tettem az érvényestést, az I oszlopban vannak a terméknevek, mellettük a hozzájuk tartozó képek nevei.

  

  Az A1 cellához fűzz megjegyzést, töröld ki belőle a szöveget.

  A makrót a lapodhoz rendeld (a téma összefoglaló szerint). Írd át a két, csillagokkal jelzett sorban az útvonalat, és a képek kiterjesztését – ha szükséges.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim kep, utvonal As String, kiterj As String
  
  utvonal = "D:\Képek\" '*****
  kiterj = ".jpg" '*****
  
  If Target.Address = "$A$1" Then
  kep = utvonal & Application.WorksheetFunction.VLookup(Target, Range("I:J"), 2, 0) & kiterj
  Target.Comment.Shape.Fill.UserPicture kep
  End If
  End Sub

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