soter tal i en kolonne ud fra tal i en anden kolonne

en metode er at bruge denne makro
erstat 10-tallet i sub test med det tal du ønsker.



Option Base 1

Sub test()
FindIt (10)
End Sub

Sub FindIt(vfindwhat As Variant)
Dim vRng As Variant
Dim aResult()
Dim x As Long
Dim y As Long
    'Hent hele området ind i et variantarray vRng
    vRng = Range("A1:F" & Range("a65536").End(xlUp).Row)
    'Klargør resultatarray (dimensioneres som vrng's rækkeantal)
    ReDim aResult(UBound(vRng, 1))
    'Kør vRng igennem, check om vfindwhat findes i dimension 2 "kol B"
    For x = LBound(vRng, 1) To UBound(vRng, 1)
        If vRng(x, 2) = vfindwhat Then
        'hvis vfindwhat findes i dim 2 så opskriv tælleren y
        y = y + 1
        'overfør dim 4 "Kol D" til resultatarray
        aResult(y) = vRng(x, 4)
        End If
    Next
    'redim resultatarray til y-størrelse
    ReDim Preserve aResult(y)
    'indsæt resultatarray i kolonne H
    Range("H1:H" & y) = Application.Transpose(aResult)
    '0-stil vRng
    Set vRng = Nothing
End Sub