Porovnání a párování dat v excelu pomocí VBA

[roka]

Zdravím, mohl bych požádat o pomoc s makrem na porovnání dat v excelu a odhaleni nespárovaných položek.

Jde o to, že mám výstupy ze dvou různých systémů, ty jsem dal do dvou různých sloupců v jednom sheetu a potřeboval bych je porovnat a zobrazit pouze ty které jsou nespárované.

Pokud je ve sloupci A např. 5 hodnot "100,00" a ve sloupci B jsou pouze 3 hodnoty "100,00", tak ve výsledku by tedy mělo být ve sloupci A 2 hodnoty "100,00" jako nespárované a ve sloupci B nebude žádná hodnota "100,00".

Moc děkuji za pomoc.
roka

[Reklama]

[arasid]

mno moc z tvojho popisu nechapem co ces.. jedna moznost je pouzit klasicky vlookup, ale ak to ces hned vypisat, tak mozes pouzit aj taketo jednoduche makro, ja to pouzivam na porovnanie hodnot v stlpcoch A a B a vypisanie rozdielnych do stlpca C:

Kód: Vybrat vše

Private Sub CommandButton1_Click()

Dim hod As String
Dim bunka As String
Dim i As Long
Dim j As Integer

j = 3

    For i = 1 To 5000
    bunka = Cells(i, 2)                                                   'hodnota stlpca B
           
            If bunka = "" Then
            MsgBox "Hotovo.. Pocet najdenych zaznamov: " & j - 3
            Exit Sub
            End If
           
    hod = Application.CountIf(Range("A:A"), bunka)            'porovnanie hodnot A a B
       
        If hod = 0 Then
            j = j + 1
            Cells(j, 3) = bunka                'vzpisanie rozdielnej hodnoty ktora sa nachadza v B ale nie v A
               
        End If
       
    Next i
   
End Sub

Samozrejme vypisuje len hodnoty zo stlpca B, ale to si mozes upravit.. tiez tam mozes pridat premenna(s bukou i).entirerow.copy a premenna2(s bunkou j).entirerow.paste ak ces aby ti vypisalo cele riadky..
To mas take zakladne lamacke riesenie, ako odo mna