Macro voor automatisch doortrekken

[Roobin]

goedemorgen,
zit met mijn beperkte kennis van VBA met het volgende probleem:

Tabel:
Week Mar HRM CC FM
45 6 0
46 9 1
47 9 1

In de cellen staan formules(verwijzingen). Nu wil ik met 1 klik (macro) automtisch week 48 erbij laten trekken.

heb het volgende reeds gemaakt ( opgenomen):

    Range("P3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.AutoFill Destination:=Range("P3:R5"), Type:=xlFillDefault
    Range("P3:R5").Select

Maar ik wil dus dat de range niet vaststaat maar dat de selectie slechts voor 1 regel (per week 1) naar beneden wordt getrokken.

Kan iemand mij helpen?

hartelijk dank.

groet Robert

 

[snb]

[P3].entirerow.copy [P4]

 

[Roobin]

bedankt snb.
maar: Wat als ik p4 wil kopieren naar p5? en p5 naar p6, etc.

en het liefst wil ik ook niet een hele rij kopieren maar het gebied dat ik heb geselecteerd?

groet Robert

 

[Wigi]

Maar ik wil dus dat de range niet vaststaat maar dat de selectie slechts voor 1 regel (per week 1) naar beneden wordt getrokken.

en het liefst wil ik ook niet een hele rij kopieren maar het gebied dat ik heb geselecteerd?

Dus als ik het goed begrijp, wil je een bereik selecteren, en dat 1 regel doorvoeren?

En dat 1 keer per week...

Een macro schrijven en op een knop klikken of zo, gaat langer duren dan Ctrl-D te typen. Dat is de sneltoetscombinatie om naar onder door te voeren.

Wigi

 

[Roobin]

dank wigi. gelijk heb je!

enige punt is dat ik 20 tabs heb met overzichten, dus de macros onderelkaar zou willen zetten en met 1 klik 20 klikken besparen.
Daarbij geeft ctrl-d niet hetzelfde effect: week 47 blijft week 47; er wordt niet 'automtisch' doorgetrokken

 

[Idle]

Robert,

Je hebt het woord 'Week' volgens mij in P1 staan. Dan kun je dit doen:

Sub Macro1()
 '
' Macro1 Macro
' De macro is opgenomen op 12-11-2008 door Idle.
'
' Sneltoets: CTRL+SHIFT+M
'

Dim rij, kolom, week As Integer

kolom = 16 'kolom P
rij = 3

'eerste vakje zonder week vinden in kolom P
Do While Cells(rij, kolom).Value <> ""
  rij = rij + 1
Loop

'weeknummer van het vakje erboven erin zetten en 1 erbij optellen
Worksheets("Blad1").Cells(rij, kolom).Value = _
  Worksheets("Blad1").Cells((rij - 1), kolom).Value + 1

'formules ernaast op dezelfde manier naar beneden kopiëren
Do While kolom <> 21 'kolom U
  kolom = kolom + 1
  Worksheets("Blad1").Cells(rij, kolom).FormulaR1C1 = Worksheets("Blad1").Cells((rij - 1), kolom).FormulaR1C1
Loop

End Sub

 

[Roobin]

SUPERRRR veel dank!

met deze basis kan ik ook in de andere worksheets de macro zo aanpassen! GE-WEL-DIG!

Groet Roobin