lege cellen aanvullen met informatie die in sheet aanwezig is.

[alletwee]

Goedemiddag allemaal.
ik heb een lijst met ruim 5000 regels en sommige email adressen komen daar twee x in voor
ik heb de lijst al gesorteerd en wat ik wil kun je zien in het voorbeeld.
bij een van de twee dubbele e-mail adressen staan er verder geen cellen ingevuld maar ik zou daar graag ook de inhoud zien van de bijbehorende regel met hetzelfde mail adres
Ik hoop dat het voorbeeld het duidelijk maakt.
In groen wat ik heb, in oranje wat ik graag zou willen zien gebeuren

Wie kan mij verder helpen?

Alvast mijn dank
Frans

 

[edmoor]

Zoiets?
Bekijk bijlage Kopie van vraagstuk.xlsm

 

[JEC.]

Ook eentje die op 5000 regels vermoedelijk nog steeds snel is:

PS: werkt ook als de regels niet direct onder elkaar staan.

Sub jvr()
 jv = Sheets(1).Cells(1).CurrentRegion
    With CreateObject("scripting.dictionary")
       For i = 2 To UBound(jv)
          If Not .Exists(jv(i, 1)) Then
             .Item(jv(i, 1)) = Array(jv(i, 1), jv(i, 2), jv(i, 3), jv(i, 4), jv(i, 5), jv(i, 6), jv(i, 7))
          Else
             .Item(.Count) = .Item(jv(i, 1))
          End If
       Next
      Sheets(1).Cells(12, 1).Resize(.Count, 7) = Application.Index(.items, 0, 0)
    End With
End Sub

 

[AD1957]

nog een optie

Private Sub CommandButton1_Click()
i = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("A3:A" & i)
    If c.Value = c.Offset(-1).Value Then
       c.Offset(-1).Resize(, 7).Copy c
    End If
Next c
End Sub

 

[Timshel]

Waarom wil je dubbele records? Is het niet zinvoller de rijen met mailadressen zonder gegevens te verwijderen?

 

[alletwee]

Zoiets?
Bekijk bijlage 358278

Bedankt alvast maar als ik je bestand wil openen en macro's inschakel dan krijg ik daarna een melding dat mijn versie van excel dat ik dit alleen kan openen als alleen lezen.
Ik werk met Excel voor mac, versie 16.43 met microsoft 365 licentie

 

[edmoor]

Een Mac heeft slechts zeer beperkte ondersteuning voor VBA.
Dat gaat 'm dan dus niet worden ben ik bang.

 

[JEC.]

Zsm overstappen naar windows

 

[alletwee]

Een Mac heeft slechts zeer beperkte ondersteuning voor VBA.
Dat gaat 'm dan dus niet worden ben ik bang.

En ik heb geen toegang tot een windows machine, helaas.........

 

[JEC.]

De dictionary zal ook niet werken waarschijnlijk.

Dan blijft een formule over:

=OFFSET($A2:$G2;-(COUNTIF($A$2:A2;A2)>1);)

 

[AlexCEL]

Met Power Query een fluitje van een cent.

De dubbele waarden kunnen er ook zo nog uitgehaald worden maar ik heb eventjes precies je vraag beantwoord.