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

• #50124 Fferi50 Topikgazda Melorin #50122

  Új Válasz 2022-12-15 17:13:31 #50124

  Ú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

  

  Fferi50

  Topikgazda

  válasz Melorin #50122 üzenetére

  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