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

• Fferi50 Topikgazda

  2020-11-08 23:47:59 #45280

  Ú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

  válasz genlog üzenetére #45279

  Szia!
  Eseménykezelő makróval meg lehet oldani. Minta:
  
  Az A-D oszlopban van a lista.
  Az F-I oszlopban a kiválasztott konfiguráció (csak azért sárga az alap, hogy kitűnjön), az I6 cellában a konfiguráció ára.
  Az eseménykezelő makró:
  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim cl As Range, keres As Range
If Target.Column < 5 Then
Application.EnableEvents = False
Set keres = Cells(Target.Row, 1)
Set cl = Range("$F$2:$F$5").Find(what:=keres.Value, LookIn:=xlValues, lookat:=xlWhole)
cl.Offset(0, 1).Value = keres.Offset(0, 1).Value
Application.EnableEvents = True
End If
Cancel = True
End Sub
  Ezt a munkalap kódlapjára kell bemásolni. (Lapfülön jobb egérgomb - kód megjelenítése).
  A makró a G oszlopba teszi a kiválasztott márkát. A H és I oszlopban képleteke vannak.
  H2 képlete:=HAHIBA(FKERES($G2;$B$1:$D$12;2;0);"")
  I2 képlete: =HAHIBA(FKERES($G2;$B$1:$D$12;3;0);"")
  I6 cella képlete: =SZUM(I2:I5)
  A tartományokat természetesen mind a makróban, mind a képletben saját adataid szerint változtasd meg.
  DuplaKattintással az 1-4 oszlop celláin lehet választani. Ha máshova kattintanak, az nem hatásos.
  A kiválasztott konfiguráció elemeit a G oszlopban lehet törölni, csak ott, mert a többi oszlopban képlet van.
  Remélem, valami ilyesmire gondoltál.
  A munkafüzetet makróbarátként (xlsm) vagy binárisként (xlsb) kell mentened. Engedélyezni kell a makrókat is a biztonsági beállításoknál.
  Üdv.

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