gegevens kopieren naar ander werkblad

[hryttel]

Beste Helpmij experts,

Hoe kan ik gegevens kopiëren naar ander werkblad waarbij de gegevens behouden moeten blijfen na het verwijderen van de bron gegevens.
Ik heb 2 excel werkmappen met in kolom A een uniek getal, dat getal kan in beide bestanden voorkomen.
De bedoeling is dat er gezocht word op dat unieke getal.
Als getal in A1 in wekblad2 in kolom A werkblad1 voor komt wil ik dat de rest van de rij 1 van werkblad2 toegevoegd wordt aan werkblad1 aan het eind van de rij waar het nummer voorkomt.


Groeten,
Henning

 

[Cobbe]

Met een voorbeeldbestandje was er wellicht al lang een oplossing.

 

[hryttel]

Goedemorgen Cobbe,

Hier kan je best gelijk hebben.
Het zijn twee afzonderlijke rapporten en ik heb ze als voorbeeld op twee tabbladen gezet.
Het gaat erom zoeken op het unieke nummer op Blad 1 in kolom A naar het zelfde nummer op Blad 2 in kolom A.
vervolgens moet de gegevens van Blad 2 vanaf kolom A tot Kolom I gekopieerd woeden en toegevoegd worden aan de regel waar die bij hoort.
Als de bron bestand verwijderd wordt moet het niet zo zijn dat ik dan de gegevens kwijt raakt.

Ik hoop dat het zo duidelijk is. Bekijk bijlage A garages 10 regels.xlsx

Groeten,
Henning

 

[Cobbe]

Met deze formule in K2 en doortrekken naar beneden en naar rechts tot kolom R, loopt dat aardig:

=INDEX(Blad2!B$2:B$10;VERGELIJKEN($A2;Blad2!$A$2:$A$10;0))

Bij het verlaten van Blad2 worden die formules omgezet in waarden.
Er kan nog een en ander gebeuren als foutafvang, maar zie maar eens of het resultaat in de buurt komt van wat je voor ogen hebt.

 

[VenA]

Een soortgelijke oplossing als Cobbe met Vert.zoeken.

=ALS.FOUT(VERT.ZOEKEN($A2;Blad2!$A$1:$I$10;KOLOM()-9;0);"")

En in de bladmodule van blad2

Private Sub Worksheet_Activate()
With Sheets("Blad1")
  .Range("K2:R10").Value = .Range("K2:R10").Value
End With
End Sub

 

[hryttel]

Cobbe, zo als gebruikelijk werkt perfect. :thumb: Opgelost

VenA ook bedankt, ga ik later mee stoeien.

Groeten,
Henning

 

[VenA]

Stoei ze. Je merkt het verschil wel als je in blad2 de gegevens verwijderd.

 

[hryttel]

VenA, Ja dan verdwijnen de gegevens ook...