Opgelost gegevens wegschrijven op een variabele lokatie

[ome robbie]

Ik ben voor mijn werk een bestandje aan het maken waarbij bepaalde gegevens als basis gebruikt worden. Echter als hiervan afgeweken moet worden, dan moeten deze afwijkingen bij het juiste rolnummer opgeslagen worden.

in het voorbeeld wals nr 1 moet anders geslepen worden (zie wijziging).
Deze gegevens dienene dan in het tabblad totaal bij wals nr 1 (kolom a) worden weggeschreven in kolommen n t/m s in de regel van het juiste walsnummer.

Bij het de volgende keer opvragen van deze wals, dienen deze gevens dan in de kolom k van het werkscherm zichtbaar te worden. Is dit mogelijk? zo ja, kan iemand me een begin aangeven.

Het bestand heeft een macro waardoor het gegevens uit andere bestanden ophaalt. Dat zal wel niet werken, maar het gaat ook om bovenstaande.

 

[AHulpje]

Je bestand bevat geen macro maar wel een paar formules, bijvoorbeeld:

=ALS(EN(C9="han";C11="beige";C13=2;C8="spl");settings!H2;ALS(EN(C9="han";C11="beige";C13=3;C8="spl");settings!H3;ALS(EN(C9="uip";C11="geel";C13=2;C8="spl");settings!H4;ALS(EN(C9="uip";C11="geel";C13=3;C8="spl");settings!H5;ALS(EN(C9="egberts";C11="groen";C13=2;C6=1;C8="spl");settings!H6;ALS(EN(C9="egberts";C11="groen";C13=2;C6=2;C8="spl");settings!H7;ALS(EN(C9="egberts";C11="groen";C13=2;C6=3;C8="spl");settings!H8;ALS(EN(C9="egberts";C11="groen";C13=3;C6=1;C8="spl");settings!H9;ALS(EN(C9="egberts";C11="groen";C13=3;C6=2;C8="spl");settings!H10;ALS(EN(C9="egberts";C11="groen";C13=3;C6=3;C8="spl");settings!H11;ALS(EN(C9="egberts";C11="groen";C13=2;C6=1;C8="wpl");settings!H12;ALS(EN(C9="egberts";C11="groen";C13=3;C6=1;C8="wpl");settings!H13;ALS(EN(C9="han";C11="lgroen";C13=2;C6=1;C8="wpl");settings!H17;ALS(EN(C9="han";C11="lgroen";C13=3;C6=1;C8="wpl");settings!H18;ALS(EN(C9="uip";C11="transp";C13=2;C6=1;C8="wpl");settings!H19;ALS(EN(C9="uip";C11="transp";C13=3;C6=1;C8="wpl");settings!H20;ALS(EN(C9="egberts";C11="groen";C13=3;C6=2;C8="wpl");settings!H23;ALS(EN(C9="egberts";C11="groen";C13=3;C6=3;C8="wpl");settings!H24;ALS(EN(C9="egberts";C11="lila";C13=2;C6=1;C8="spl");settings!H25;ALS(EN(C9="egberts";C11="groen";C13=2;C6=2;C8="wpl");settings!H26;ALS(EN(C9="egberts";C11="groen";C13=2;C6=3;C8="wpl");settings!H27;ALS(EN(C9="uip";C11="geel";C13=3;C6=1;C8="wpl");settings!H28;""))))))))))))))))))))))

Zou die niet graag onderhouden.
Dus de wijzigingen in kolom L op werkblad "werkscherm" moeten als volgt worden opgeslagen in werkblad "totaal", klopt dat?
L6 naar P3
L7 naar Q3
L8 naar O3
L9 naar N3
L10 naar R3
L11 naar ?
L12 naar ?
En op welk moment moet dat gebeuren, via een button?

 

[peter59]

En het geheel is ook nog d.m.v. power query in geladen.
Het lijkt mij dus verstandiger om hierop voort te borduren.

 

[ome robbie]

Dus de wijzigingen in kolom L op werkblad "werkscherm" moeten als volgt worden opgeslagen in werkblad "totaal", klopt dat?
L6 naar P3
L7 naar Q3
L8 naar O3
L9 naar N3
L10 naar R3
L11 naar ?
L12 naar ?
En op welk moment moet dat gebeuren, via een button?

bovenstaande klopt als op werkblad c4=1 C4 bepaalt welke regel dit moet komen op het blad "totaal" C4 verwijst naar de regel in kolom a op het blad "totaal".

Het zou fijn zijn als het m.b.v. een button kan.

 

[AHulpje]

De hele lange formules in G6:G10 en E15 zoeken allemaal naar dezelfde rij in werkblad settings, dus van die formules heb je er eigenlijk maar één nodig. Daarmee bepaal je de rij en kun je dus G6:G10 vullen met de gewenste kolom uit die rij.

Omdat je niet meldt of L11 en L12 ook moeten worden meegenomen mag je die indien gewenst zelf toevoegen.

 

[ome robbie]

Bedankt voor de service. Hier kan ik wel wat mee.

 

[AHulpje]

Toch nog maar even wat aan die lange formules gedaan. Die staat nu alleen nog in G5. De formules in G6:G10 en E15 zijn daardoor ietsje kleiner geworden.

 

[peter59]

Of?? Zonder ellelange formules.

 

[snb]

Na een beetje puzzelen:

Sub M_snb()
  sn = Cells(6, 12).Resize(5)
  Sheet2.Columns(1).Find(Range("C4"), , -4163, 1).Offset(, 13).Resize(, 5) = Array(sn(3, 1), sn(4, 1), sn(2, 1), sn(1, 1), sn(5, 1))
End Sub

PS. Verwijder alle samengevoegde cellen.