Keresés

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

  • Fferi50

    Topikgazda

    válasz genlog #45279 üzenetére

    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