Waarden plakken op basis van datum

JesperAFCA · 6 jun 2019

Hi,

Ik hoop dat iemand mij zou kunnen en willen helpen.

De waarden die ik in q5:t5 heb staan wil ik op basis van de datum in p5 plakken in de juiste rij in de kolommen b:e. Wie zou mij met behulp van een macro kunnen helpen?

SjonR · 6 jun 2019

zo?

Code:

Sub SjonR()
Cells(Application.Match(Range("P5"), Range("A:A"), 0), 2).Resize(, 4).Value = Cells(5, 17).Resize(, 4).Value
End Sub

of:

Code:

Sub SjonR()
Cells(Month(Range("P5")) + 6, 2).Resize(, 4).Value = Cells(5, 17).Resize(, 4).Value
End Sub

of:

Code:

Sub SjonR()
Cells(Month(Range("P5")) + 6, 2).Resize(, 4).Value = Range("Q5:T5").Value
End Sub

JesperAFCA · 8 jun 2019

Dank je wel!

Het is uiteindelijk de eerste oplossing geworden. Ik heb het toch wat anders ingedeeld uiteindelijk omdat ik hetzelfde sheet ook wil gebruiken in 2020 en zonder dat ik alles kwijt zou zijn. Heb een aparte tab "db" gemaakt en het daarin laten wegschrijven. En met VertZoeken opgehaald daaruit. Of is dat alles omslachtig?

Waarden plakken op basis van datum

JesperAFCA

Gebruiker

Bijlagen

SjonR

Verenigingslid

JesperAFCA

Gebruiker

Nieuwste berichten

Wij waarderen jouw privacy