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

• Fferi50 Topikgazda

  #50124

  #50122 Melorin

  2022-12-15 17:13:31

  Új Válasz

  Ú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

  

  Fferi50

  Topikgazda

  #50122 Melorin

  Szia!
  Szerintem is makrós megoldás kell:
  A rendelés táblád eseménykezelőjébe kell egy rövid makró, amelyik bemásolja az "adatbázisból" a képet.
  Pl.
  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
   If IsEmpty(Target) Then Exit Sub
   Application.EnableEvents = False
   Sheets("Adatbázis").Range("A1:A50000").Find(what:=Target.Row, LookIn:=xlValues, lookat:=xlWhole).Offset(0, 1).Copy Destination:=Target.Offset(0, 1)
   Application.EnableEvents = True
End If
End Sub
  Amikor a sor első cellájába érték kerül, megkeresi az adatbázisban és átmásolja a képet. A feltételezés itt az, hogy az adatbázisban az anyag azonosító az első oszlop és mellette van a kép továbbá a sor második cellájába kell másolni.
  Nincs benne hibakezelés, tehát ha olyan érték kerülne be, ami nincs az adatbázisban, akkor hibával megáll. Természetesen ezt lehet kezelni.
  Figyelem! Ebben az esetben makróbarátként kell mentened azt a fájlt, amivel dolgozol. A mások által nézett fájl már lehet makrómentes.
  Üdv.

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