cmdb samenvoegen van verschillen excel bestanden

[sylvester-ponte]

die eentjes zijn komen toch uit je fictieve tabellen.
daar staan waarden in.
die eentjes moeten toch die waarden krijgen?
in je voorbeeld kan ik aan die eentjes niet zien waar ze vandaan komen.
er staat boven 2e tab 3e kolom, maar die waarden heb je niet voor die eentjes ingevuld.

dat zou het voor mij veel duidelijker maken.
ik kan me niet voorstellen dat je daar nog een keer de zelfde waarden uit de zelf de rij wilt zien.

 

[VenA]

Ik begrijp je probleem niet. Zoals eerder geschreven kan je het beste de layout van de tabjes hetzelfde houden. Als je er meerdere kolommen aan wil toevoegen is dit ook geen probleem. In de tab 'Reslutaat' kolom C komt toch je device te staan. Je houdt dan nog steeds een tabel waarop je kan filteren. Als je per device gaat verspringen qua extra kolommen dan wordt het in mijn ogen een rommeltje.

Wat staat er daadwerkelijk in de kolom 'Device' van de verschillende tabjes. Is dit het type device zoals de tabnamen doen vermoeden of staat er zoiets als in jouw voorbeeldje. Als het laatste waar is waarom staat er dan in de tab 'Mobiel' niet mobiel1 , mobiel2 etc?

Met een iets andere code wordt op basis van de tabnaam het device type in de tab 'Resultaat' in kolom A gezet. De extra info wordt daar neergezet waar nodig. Op deze manier houdt je een tabel waar je voor verdere bewerkingen nog wat mee kan.

Sub VenA()
With Sheets("Resultaat")
    .Cells(1).CurrentRegion.Offset(1).Clear
    For Each sh In Sheets(Array("Token", "Laptop", "Mobiel"))
        ar = sh.Cells(1).CurrentRegion.Offset(1)
        ReDim ar1(1 To UBound(ar), UBound(ar, 2) + 1)
            For j = 1 To UBound(ar)
                For jj = 1 To UBound(ar, 2)
                    ar1(j, 0) = sh.Name
                    ar1(j, jj) = ar(j, jj)
                Next jj
            Next j
        .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 1).Offset(1).Resize(UBound(ar1) - 1, UBound(ar1, 2)) = ar1
    Next sh
End With
End Sub