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

gegevens kopieren naar ander werkblad

Status
Niet open voor verdere reacties.

hryttel

Gebruiker
Lid geworden
9 mrt 2008
Berichten
85
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
 
Met een voorbeeldbestandje was er wellicht al lang een oplossing.
 
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
 
Met deze formule in K2 en doortrekken naar beneden en naar rechts tot kolom R, loopt dat aardig:
Code:
=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.
 

Bijlagen

Een soortgelijke oplossing als Cobbe met Vert.zoeken.
PHP:
=ALS.FOUT(VERT.ZOEKEN($A2;Blad2!$A$1:$I$10;KOLOM()-9;0);"")

En in de bladmodule van blad2

Code:
Private Sub Worksheet_Activate()
With Sheets("Blad1")
  .Range("K2:R10").Value = .Range("K2:R10").Value
End With
End Sub
 
Cobbe, zo als gebruikelijk werkt perfect. :thumb: Opgelost

VenA ook bedankt, ga ik later mee stoeien.

Groeten,
Henning
 
Stoei ze. Je merkt het verschil wel als je in blad2 de gegevens verwijderd.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan