VBA range problemen

[Shebje]

Dag allen,

Ik ben wat aan het stoeien voor het eerst met VBA/Macro's.
Heb er zelf een opgenomen maar loop tegen een issue aan met een range selectie.
De macro doet een aantal zaken en daarna moet hij de datum van de eerste rij naar beneden door trekken tot er geen gegevens meer zijn. Dit zelfde geld voor het weeknummer
Hier gaat het ergens nu nog mis Selection.AutoFill Destination:=Range("K2:K1000")
Hoe kan ik dit zo instellen dat hij dit alleen doet bij cellen waar iets in cel J staat.
Dit zelfde geldt dan voor dit stukje Selection.AutoFill Destination:=Range("L2:L1000")



Zie code hieronder


ub Macro8()
'
' Macro8 Macro
'

'
Columns("I:I").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("H:H").Select
Selection.TextToColumns Destination:=Range("H1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(6, 1)), TrailingMinusNumbers:= _
True
Range("H1").Select
ActiveCell.FormulaR1C1 = "Jaar"
Range("I1").Select
ActiveCell.FormulaR1C1 = "Maand"
Range("J1").Select
ActiveCell.FormulaR1C1 = "Dag"
Range("K1").Select
ActiveCell.FormulaR1C1 = "Datum"
Range("L1").Select
ActiveCell.FormulaR1C1 = "Week"
Range("K2").Select
ActiveCell.FormulaR1C1 = "=DATE(RC[-3],RC[-2],RC[-1])"
Range("K2").Select
Selection.AutoFill Destination:=Range("K2:K1000")
Range("K:K").Select
Range("L2").Select
ActiveCell.FormulaR1C1 = "=WEEKNUM(RC[-1],21)"
Range("L2").Select
Selection.AutoFill Destination:=Range("L2:L1000")
Range("L:L").Select
Range("K12").Select
End Sub

 

[edmoor]

Plaats een voorbeeld documentje.

 

[Shebje]

Plaats een voorbeeld documentje.

Staat erbij.

Macro staa1 nu op Blad1.
Daarin moet hij alleen de datum en weeknummer doortrekken naar daar waar info staat. Nu was ik aan het prutsen en kopieert hij netjes tot cel 1000

 

[edmoor]

Je bedoelt de kolommen K en L?
En wat bedoel je met info?

 

[Shebje]

Je bedoelt de kolommen K en L?
En wat bedoel je met info?

ja die bedoel ik.
Hij moet de datum die daar komt staan doorvoeren naar de cellen waar info staat.
Nu voert hij de datum en het weeknummer door tot cel 1000 in die rij. Dit moet zijn tot waar er ook nog info staat in kolommen A t/m J.
Nu geeft hij overal getal aan waar geen data is om weer te geven.
Dit geeft weer problemen weer in het andere tabblad.
Probleem is dat de data die er ingevoerd wordt in Blad1 elke x kan verschillen van grootte.

 

[edmoor]

Er staat in de kolommen K en L al veel info: 30-11-2021 en 48.
Moet dan de datum in K2 worden doorgetrokken naar K39?
En moet die datum dan oplopen of moet deze 18-1-2022 blijven?
Dezelfde vraag dan voor kolom L.

 

[Shebje]

Er staat in de kolommen K en L al veel info: 30-11-2021 en 48.
Moet dan de datum in K2 worden doorgetrokken naar K39?
En moet die datum dan oplopen of moet deze 18-1-2022 blijven?
Dezelfde vraag dan voor kolom L.

De datum die er komt de staan is gewoon simpel combineren van de drie gegevens ervoor.
Kwestie van formule doortrekken echter alleen tot waar er info staat zelfde voor kolom L die kijkt weer naar kolom K.
En aangezien ik 10 regels erin kan kopieren op dag a kan dit op dag b ook 1000 zijn of meer.
Wil graag alleen de gebruikte rijen waar ook echt datums etc in komen te staan gebruiken .

 

[edmoor]

Zet de formules erin en maak het blad op zoals je wilt.
Dan is het doortrekken via VBA erg eenvoudig.
Nu blijft het gissen omdat er zoveel mogelijkheden zijn.

 

[Haije]

Of maak van je gegevens een Excel tabel, die je dan weer aanvult. In een tabel worden dan de formules automatisch doorgetrokken tot waar er info is