VBA formule horizontaal doortrekken

[DEY]

Help!!
Graag uw hulp nodig voor het volgende:
In rij 30 (variabel) zijn weeknummers.

Rijen 1 tot en met 7 zijn laatst bijgewerkt tot met kolom AQ.

Wie kan mij helpen met een VBA script!
Rijen 1t/m 7 zoeken naar laatste kolom cel en dan met vba doortrekken naar de laatste cel van rij 30

 

[popipipo]

=ALS(C$30="";"";B2+1)

Je kunt ook deze formule in Cel C2 zetten en daarna doortrekken naar rechts zover je wilt.

 

[DEY]

Dank je wel, maar ik zoek echt een VBA script. De formule is in de cellen zijn als voorbeeld.
Eenmaal de script zal ik weer toepassen op verschillende Sheets.

 

[AHulpje]

Zoiets:

Option Explicit

Sub Doortrekken()
    Dim colWeken As Integer
    Dim colData As Integer
    colWeken = Range("A30").End(xlToRight).Column
    colData = Range("A1").End(xlToRight).Column
    Range(Cells(1, colData), Cells(7, colData)).AutoFill Destination:=Range(Cells(1, colData), Cells(7, colWeken)), Type:=xlFillDefault
End Sub

 

[DEY]

Dit is super!!!

Ik heb nog een laatste vraagje.

Wat als ik niet vanuit A1 wil doortrekken maar vanuit de laatste cel in rij 1?

Alvast mijn dank voor jullie moeite.

 

[AHulpje]

Dat doet de macro al, of wil je alleen rij 1 doortrekken?

 

[DEY]

Ja super!!

Ik heb het door.

Dank je wel.

Klasse.

 

[snb]

Of gebruik de ingebouwde faciliteiten van Excel:

Sub M_snb()
   ListObjects.Add 1, Cells(1).CurrentRegion
   Cells(2, 3).Copy Cells(2, 3).Resize(, Rows(30).SpecialCells(2).Count - 2)
End Sub