Remark koppelen aan nummers

[frans kooijman]

Hi,
Ik heb een (lastige?) vraag, maar vaak zijn er in Excel wel oplossingen, dus ik probeer het even...

Zie graag de bijlage.
In kolom B heb ik nummers staan.
Periodiek moet ik het bestand bijwerken met nieuwe nummers uit een ander sytteem,
waardoor ik het bestand met "Opslaan als" opsla.
Hierdoor verspringen ook de regels, want er komen nieuwe nummers boven, tussen en onder te staan.

Nu zoek ik een mogelijkheid om de opmerkingen van kolom C te koppelen aan de nummers van kolom B,
zodat in het nieuwe bestand deze opmerkingen op achter de nummers komt te staan.

1 voor 1 kopiëren kost te veel tijd (groot bestand)
Alles in 1 keer kopiëren van kolom C en pasten in kolom C van het nieuwe bestand kan niet, want
door nieuwe toegevoegde nummers komen de remarks niet meer op de juiste regels terecht.

Iemand een briljant idee???

Frans

Bekijk bijlage Forum vraag.xlsx

 

[emields]

Geen cellen invoegen maar rijen invoegen voor de nieuwe gegevens.

 

[frans kooijman]

Thanks, maar het is een download uit een ander programma.
Daar worden inderdaad rijen (niet cellen) uit toegevoegd automatisch bij exporteren naar Excel.

Marie van Rij 3 wordt dan in het nieuwe bestand bv rij 8.

Maar hoe krijg ik de opmerking (die niet in het andere programma staat en dus niet geexporteerd wordt)
uit het oude bestand naar het juiste regelnummer in het nieuwe bestand?

Kan ik met een formule in kolom C iets doen, bv koppelen aan het nummer in kolom B?
Marie houdt namelijk wel hetzelfde nummer (wordt mee geexporteerd).

Thanks
Frans

 

[JeanPaul28]

En hoe ziet er zo een download bestand er dan uit.
En leg de stappen uit die je nu doet om dat bestand te importen, in een excel voorbeeld

 

[frans kooijman]

OK, zie graag de bijlage, met daarin de beschrijving.

Dank alvast,
Frans

Bekijk bijlage Forum vraag.xlsx

 

[snb]

Pas het nieuwe bestand aan met de oude gegevens

Sub M_snb()
   sn = sheets("nieuw").usedrange
   sp = sheets("oud").usedrange

   for j=1 to ubound(sn)
     for jj=1 to ubound(sp)
       if sn(j,2)=sp(jj,2) then exit for
     next
     if jj<=ubound(sp) then sn(j,3)=sp(jj,3)
   next
   
   sheets("nieuw").usedrange=sn
   sheets("oud").delete
   sheets("nieuw").name="oud"
End Sub

 

[frans kooijman]

....dank je, maar ik krijg het niet werkbaar (kennelijk doe ik iets fout, sorry...):

Ik heb het oude bestand met Opslaan als opgeslagen in een nieuw bestand, zie de nieuwe bijlage.
In het tabblad nieuw heb ik de macro gehangen en vervolgens het bestand opgeslagen incl. macro

Maar kolom C blijft leeg?

Frans

Bekijk bijlage Forum vraag v2.xlsm

 

[emields]

en hoe doe je die macro werken? ik zie nergens een knop.

 

[frans kooijman]

...begrijp ik niet? Moet ik ergens verwijzen naar de macro?
Ik heb gewoon Alt + F11 gedaan, tabblad nieuw geopend en daar je macro in geplakt.

Maar kennelijk moet ik nog iets doen?

Frans

 

[emields]

een macrostart nu een maal niet uit zijn eigen.(soms)

 

[jempi10]

Of is dit een oefening op vert.zoeken?

Werkt ook.

 

[frans kooijman]

...Ik krijg de macro niet werkend. In het voorbeeld werkt het wel perfect, maar als ik de knop copy/paste
in het live bestand krijg ik de error dat het subscript buiten het bereik valt.
...Sorry....waar pas ik het bereik aan in de macro?

Liever - omdat ik zoals je ziet beginnend ben met de macro - heb ik inderdaad een formule met verticaal zoeken.
Kan je aan de hand van het voorbeeld van de bijlage een verticaal zoeken formule voor de C-kolom maken?
Dan kan ik die in het live bestand pasten?

Frans

 

[jempi10]

zet deze in C2 en trek door :

=ALS.FOUT(VERT.ZOEKEN(A2;oud!$A:$C;3;0);"")

 

[snb]

Ik dacht dat de ID's in kolom B stonden.

 

[frans kooijman]

Ja, dat verticaal zoeken is perfect, dat zocht ik.

Toch nog een vraagje:
=ALS.FOUT(VERT.ZOEKEN(A2;oud!$A:$C;3;0);"")
De 3 begrijp ik, 3e kolom.
Maar wat is de 0 in de formule? Waar verwijst die naar?

Frans

 

[emields]

dat het te zoeken resultaat exact moet overeenkomen als er een 1 staat neemt hij het dichts bijgelegen.
en lees dit eens
http://www.gratiscursus.be/excel_cursus/excelles19c.htm

 

[jempi10]

Bedankt snb, uw voorstel is inderdaad beter;
kolom B is uniek.

De formule wordt dus :

=ALS.FOUT(VERT.ZOEKEN(B2;oud!$B:$C;2;0);"")

De 0 duid aan dat het gegeven exact moet zijn, een 1 bij benadering.
Probeer het uit en u zult het resultaat zien.

snb: bedankt voor de macro, heb bijgeleerd.

 

[snb]

@jempi

Daarvoor is een forum ook bedoeld.
Dank voor je feedback.:thumb:

 

[frans kooijman]

Dank iedereen, het is gelukt met de formule!
Ben er erg blij mee.

Frans