• 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.

Formule maken

Status
Niet open voor verdere reacties.

Thuban123

Gebruiker
Lid geworden
5 sep 2012
Berichten
23
Beste hulpzame leden,
ik wil een formule die het volgende kan doen. Het voorbeeldbestandje geeft een beter inzicht.:

Ik wil de contractnummers die niet in blad1 tov blad2 voorkomen onder a17 krijgen met alle gegevens die rechts van de betreffende contractnummer staat.
 

Bijlagen

Laatst bewerkt:
Op dit forum is het wel toegestaan om te cross posten, maar geef hier wel aan dat de vraag ook op een ander forum actief is en de link erbij.
Dan kan de helper nazien of erop geantwoord is...

Worksheet.nl
 
Ik heb wel de oplossing als je tenminste één van beide vragen weghaalt op het andre forum.
 
Topic op werksheet gesloten.
Bij voorbaat dank voor je hulp:d
 
Laatst bewerkt door een moderator:
Via een macro'tje loopt dat goed:

Code:
Sub cobbe()
For Each cl In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
 If WorksheetFunction.CountIf(Sheets("Blad1").Range("A:A"), cl) = 0 Then
  cl.Resize(, 3).Copy Sheets("Blad2").Range("A" & Sheets("Blad2").Range("A" & Rows.Count).End(xlUp).Row + 1)
 End If
Next
End Sub
 

Bijlagen

Hartelijk dank voor je hulp.Ik ga het proberen uit te vogelen. Nogmaals dank!

Je code klopt naar mijn weten niet. Ik krijg dezelfde gegevens uit één blad weer in het huidige blad.
Hij kopieert dus als het ware wat ik al heb en plakt het. Ik wil juist de ontbrekende gegevens t.o.v. van het andere blad in het blad krijgen.
 
Laatst bewerkt door een moderator:
Dan draaien we het toch om:

Code:
Sub cobbe()
With Sheets("Blad1")
  For Each cl In .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
    If WorksheetFunction.CountIf(Sheets("Blad2").Range("A:A"), cl) = 0 Then
        cl.Resize(, 3).Copy Sheets("Blad2").Range("A" & Sheets("Blad2").Range("A" & Rows.Count).End(xlUp).Row + 1)  
    End If
  Next
End With
End Sub
 
Dan draaien we het toch om:

Code:
Sub cobbe()
With Sheets("Blad1")
  For Each cl In .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
    If WorksheetFunction.CountIf(Sheets("Blad2").Range("A:A"), cl) = 0 Then
        cl.Resize(, 3).Copy Sheets("Blad2").Range("A" & Sheets("Blad2").Range("A" & Rows.Count).End(xlUp).Row + 1)  
    End If
  Next
End With
End Sub

HARTELIJKE DANK COBBE!

Weet je misschien ook hoe ik de range kan aanpassen( welke kollommen die kopieert?).
 
Code:
cl.Resize(, 3).Copy

Dit stukje regelt het bereik, cl = de gevonden cel(rij)
(,3) of (0,3) = zelfde rij , 3 cellen naar rechts.

Dus moet je die 3 aanpassen naargelang je wens.
 
Code:
cl.Resize(, 3).Copy

Dit stukje regelt het bereik, cl = de gevonden cel(rij)
(,3) of (0,3) = zelfde rij , 3 cellen naar rechts.

Dus moet je die 3 aanpassen naargelang je wens.

Bedankt voor je hulp Cobbe, ik waardeer het zeer:thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan