Kolommen gelijk

[JanWL]

Hallo,

Ik heb 2 kolombereiken om te vergelijken. A+B met D+E. Is er een formule of macro die deze artikelnummers met elkaar kan vergelijken en kan sorteren op dezelfde rij.

Ik hoop dat iemand mij kan helpen alvast bedankt.

Met vriendelijke groet,

Jan-Willem van Laar

 

[Wigi]

En hoe moet het resultaat er dan uitzien?

 

[JanWL]

Beste Wigi,

Dat de gelijkwaardige artikelcodes en producten kolomAB en DE op de zelfde rij komen te staan.

Ik hoop dat je hier wat mee kan.

Mvg

JanWL

 

[Albatros]

Hoi,

Het enige wat ik kan bedenken, is om mbv. een vertikale zoekfunctie de waarden naast elkaar te krijgen, eventueel op een ander tabblad.

Albatros

 

[Wigi]

Option Explicit

Sub OpGelijkeHoogte()

    Dim rLinks As Range
    Dim rRechts As Range
    Dim r As Range
    Dim rFoundCell As Range
    
    Set rLinks = Range("A4").CurrentRegion
    Set rRechts = Range("D4").CurrentRegion
    
    rLinks.Copy
    rLinks(1).Offset(rLinks.Rows.Count + 3).PasteSpecial xlValues
    Application.CutCopyMode = False
    
    Set rLinks = Range("A4").Offset(rLinks.Rows.Count + 3).CurrentRegion
    
    For Each r In rRechts.Columns(1).Cells
        
        Set rFoundCell = rLinks.Columns(1).Find(what:=r.Value, LookIn:=xlValues, lookat:=xlWhole)
        
        If Not rFoundCell Is Nothing Then
            
            With rFoundCell
                .Offset(, 3).Value = r.Value
                .Offset(, 4).Value = r.Offset(, 1).Value
            End With
            
        End If
        
    Next
    
    Range("A1").Select
    
End Sub

Wigi

 

[Wigi]

Hmmm effe te moeilijk gedacht :evil:

Zet dit in C4:

=ALS(AANTAL.ALS($D$4:$D$13;A4);VERT.ZOEKEN(A4;$D$4:$E$13;2;0);"")

En trek door naar beneden.

Wigi