Waarden overbrengen van bestand export uren

[prep]

Hallo,

Ik wil het bestand entries export vullen met de waarden zoals die vermeld staat op het export uren bestand.
( het betreft de kolommen E t/m S die overgehaald moeten worden )
Het bestand entries export bestaan uit steeds 14 regels die voor elke persoon terugkeren.
Zie de geel gemaakte kolommen.
Heeft iemand een idee hoe ik het bestand entries export op een makkelijke manier gevuld krijg met de gegevens
van het export uren bestand ?


Groet,
Pieter

 

[edmoor]

Ik zie geen "entries export" bestand en geen "export uren" bestand.
Alleen het bestand "2_salarissen vaste medewerkers mei 2020 bewerkt.xlsx‎"

 

[prep]

Sorry, ik was niet duidelijk.
Ik heb de twee bestanden samengevoegd op 2 tabbladen.


Groet,
Piter

 

[Mde]

en welke gegevens moeten waar komen vul eens enkele regels in.

 

[prep]

Zie hier voorbeeld met ingevulde gegevens

Zie hier voorbeeld.

 

[JEC.]

Als je deze runt als ik het goed begrijp

Sub jvrr()
    jv = Sheets(2).Range("E2:T27")
    
    For i = 1 To UBound(jv)
       For j = 1 To UBound(jv, 2)
          c00 = c00 & "-" & jv(i, j)
       Next
    Next
    
    Sheets(1).Cells(2, 7).Resize(UBound(jv) * UBound(jv, 2)) = Application.Transpose(Split(Mid(c00, 2), "-"))
End Sub

Of iets netter

Sub jvr()
    jv = Sheets(2).Range("E2:T27")
    ReDim ar(UBound(jv) * UBound(jv, 2)) As Variant
    
    For i = 1 To UBound(jv)
       For j = 1 To UBound(jv, 2)
          ar(x) = jv(i, j)
          x = x + 1
       Next
    Next

    Sheets(1).Cells(2, 7).Resize(x) = Application.Transpose(ar)
End Sub

 

[prep]

Dag Jveer,

Bedankt voor de reactie.
Hij doet wat hij doen moet.
Alleen ik moet me weer even verdiepen in Visual Basic.

Groet,
Pieter

 

[AlexCEL]

Met een hulpkolom en een INDEX/VERGELIJKEN formule...

En met Power Query ook wel wat mogelijk denk ik...

 

[HSV]

 c00 = c00 & "-" & [COLOR=#ff0000]CLng[/COLOR](jv(i, j))

Clng is een verkeerde keus bij decimale getallen.

 

[JEC.]

Eerst had ik het zonder waardoor getallen werden opgeslagen als tekst.
Krijg jij het voor elkaar om 0 waarden niet te laten zien(zonder celopmaak) en de waarden wel, als getal? Zonder extra loop uiteraard

Ik zou persoonlijk ook voor de tweede code gaan.

Edit: zie nu dat het wordt afgerond, clng weer verwijderd

 

[HSV]

bv.

c00 = c00 & "-" & Replace(jv(i, j), ",", ".")

Het kan ook zo in het geval van alleen maar getallen (geen controle per cel).

 = Application.Transpose(Split(Mid(Replace(c00, ",", "."), 2), "-"))

 

[JEC.]

Top!:thumb:
Alle conversies had ik geprobeerd, zonder resultaat. Zal deze zeker onthouden!

 

[prep]

Allen dank voor de aangeboden oplossingen.

Groet,
Pieter

 

[prep]

Beste Alexcel,

=ALS.FOUT(1/1/(INDEX(export_uren_20200520!$A$1:$S$27;VERGELIJKEN(C2;export_uren_20200520!$A$1:$A$27;0);VERGELIJKEN(L2;export_uren_20200520!$A$1:$S$1;0)));"")

Wat betekent de 1/1 in deze formule.
Slaat dat op de kolommen ?

Groet,
Pieter

 

[AlexCEL]

Dat is om 0-waarden weg te werken. Als de uitkomst van de INDEX 0 is, dan is het resultaat van 1/0 een foutmelding. De ALS.FOUT maakt er dan "" van. Als de uitkomst geen 0 is dan krijg je met 1/1/.. dezelfde uitkomst terug.

 

[prep]

Dank Axelcel,

Zou jij nog eens naar dit bestand willen kijken om dit te vullen.
Het is iets anders van opzet dan bevenstaande.
Het lukt mij niet met jou formule.

Alvast dank,

Groet,
Pieter

 

[AlexCEL]

Je moet zorgen dat de kolomnamen op tabblad export overeenkomen met die in de verborgen kolom op blad1. Dat, i.c.m. het personeelsnummer, is de zoeksleutel...
En in de formule moeten de haakjes goed staan binnen 1/(1/..), anders krijg je verkeerde resultaten.

 

[prep]

Hoi Axelcel,

Nogmaals bedankt voor je uitleg.

Groet,
Pieter