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

  • Delila_1

    veterán

    válasz #05304832 #14963 üzenetére

    Az összefűzésből kihagyom az F oszlopot, az M oszlopba beíratom a SZUMHA függvényt, ennek az értékét másoltatom az F oszlopba.

    Sub Gyomlal_1()
    Dim sor%, usor%
    usor% = Range("A1").End(xlDown).Row

    'Adatok összefűzése az N oszlopba
    Range("N1") = "Összefűzve"
    Range("N2:N" & usor%) = "=A2&B2&C2&D2&E2&G2&H2&I2&J2&K2&L2"

    'Irányított szűrés az U oszlopba
    Range("N1:N" & usor%).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
    "U1"), Unique:=True

    'M oszlopba FKERES-sel darabszám, AE-be SZUMHA függvény
    Range("M1") = "Egyedi tétel"
    For sor% = 2 To usor%
    Range("M" & sor%) = Application.WorksheetFunction.VLookup(Range("N" & sor%), Range("U:AD"), 10, 0)
    Cells(sor%, "AE").FormulaR1C1 = "=SUMIF(C[-17],RC[-17],C[-25])"
    Next

    Range("AE2:AE" & usor%).Copy
    Range("F2").Select
    Selection.PasteSpecial Paste:=xlPasteValues

    'Azonos sorok törlése
    For sor% = usor% To 2 Step -1
    If Application.CountIf(Range("N:N"), Range("N" & sor%)) > 1 Then _
    Range("A" & sor% & ":M" & sor%).Delete shift:=xlUp
    Next

    'Segédoszlopok adatainak törlése
    Columns("M:AE").ClearContents
    End Sub

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

Hirdetés