• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

getallen van 2 kolommen gelijk maken aan elkaar.

Status
Niet open voor verdere reacties.
Zo zou het kunnen.

In C1
Code:
=ALS(AANTAL.ALS($B$1:$B$115;A1)>0;A1;"")

En doortrekken tot waar nodig.
 
super ! dat deed inderdaad wat het moet doen.
maar nu zit ik nog met 1 probleem ik heb er nu bijvoorbeeld namen achter.
om het makkelijk te maken heb ik er even letters ABCDEFGHJK enz van gemaakt.

nu moeten de letters ook mee komen.

het probleem waar ik tegenaan loop is dat ik een object heb die uit 2 cellen bestaat
cel1 is voor object nummer
cel2 is voor object naam

nu moet dit gelijk worden getrokken dus cel nummer en naam samen
aan een 3de cel dat is dus gewoon 1 tm bijv 1000

dus object nummer 1 moet dan op celnummer 1 komen met meegenomen de de naam erbij nu heb ik even makkelijk gedaan en het een letter gegeven.

hopelijk is hier ook een oplossing voor want dit is het eindelijke doel.
ik heb het voorbeeld bestand even toegezonden.
ik zal tevens het bestand toevoegen wat ik orgineel aan het bewerken ben.

dus voorbeeld 2 is om het even makkelijk te presenteren.
maar in orgineel 1 moet het allemaal gebeuren.

ik hoop dat iemand mij hier kan helpen.
 

Bijlagen

Code:
Sub Tst()
    Columns("B:C").Sort Range("B1"), xlAscending
    sq = Range("B1:C" & Cells(Rows.Count, 2).End(xlUp).Row)
    Columns("B:C").ClearContents
    For Each cl In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        For i = 1 To UBound(sq)
           If cl = sq(i, 1) Then
                cl.Offset(, 1) = cl
                cl.Offset(, 2) = sq(i, 2)
            End If
        Next
    Next
End Sub
 
Code:
Sub Tst()
    Columns("B:C").Sort Range("B1"), xlAscending
    sq = Range("B1:C" & Cells(Rows.Count, 2).End(xlUp).Row)
    Columns("B:C").ClearContents
    For Each cl In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        For i = 1 To UBound(sq)
           If cl = sq(i, 1) Then
                cl.Offset(, 1) = cl
                cl.Offset(, 2) = sq(i, 2)
            End If
        Next
    Next
End Sub

bedankt voor uw antwoord . nu mijn vraag waar en hoe moet ik deze code toevoegen of vraag ik dan wat doms...
 
ALT+F11 >> Invoegen >> Module >> Code plakken
Om te starten ALT+F8 >> Macronaam zoeken en selecteren >> Uitvoeren.
Je kan ook een knop aanmaken op je tabblad en de macro daaraan verbinden.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan