hoe kan ik een bepaald aantal cellen selecteren in VBA?

[gobby]

hallo,

Ik ben momenteel bezig om een macro te schrijven maar zit met een probleem.
op een bepaald moment moet hij een aantal cellen selecteren van bv kolom B tot kolom Q.
hoe kan ik dat in de vba zetten?

dit is wat ik nu al heb en het probleem bevind zich in de lijn:
"Range(Range("B" & ActiveCell.row), Range("IV" & ActiveCell.row).End(xlToLeft)).Select Selection.Copy"



Sub Macro8()
'
' Macro8 Macro
'
Workbooks.Open Filename:="G:\QC\VAS\vas overzicht\Vas template.xlsx"
ActiveWorkbook.CustomViews("Facturatie vas").Show
vas3 = 4
Do Until IsEmpty(Range("R" & vas3))
Range("R" & vas3).Select
If (ActiveCell.Value = "Finished") Then
Range(Range("B" & ActiveCell.row), Range("IV" & ActiveCell.row).End(xlToLeft)).Select Selection.Copy
Windows("Facturatie VAS test.xls").Activate
Range("A65535").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Windows("Vas template.xlsx").Activate
Else
End If
vas3 = vas3 + 1
Loop
vas2 = 4
Do Until IsEmpty(Range("R" & vas2))
Range("R" & vas2).Select
If (ActiveCell.Value = "Finished") Then
Range("S" & vas2).Select
ActiveCell.FormulaR1C1 = "YES"
Else
End If
vas2 = vas2 + 1
Loop
Windows("Facturatie VAS test.xls").Activate
End Sub


bedankt
Kevin

 

[Warme bakkertje]

Maak gebruik van Resize bv

Range("B" & Activecell.row).Resize(,20).Copy

waar de 20 het aantal kolommen betreft dat er uitgebreid moet worden.

 

[gobby]

Rudy,

bedankt voor je reactie, het werkt perfect

mvg
Kevin

 

[gobby]

Nog een vraagske,

Hoe kan ik een volledige rij selecteren en verwijderen?

mvg
Kevin

 

[Warme bakkertje]

Range("B" & Activecell.row).Entirerow.Delete

 

[snb]

of

rows(6).delete

of

rows(activecell.row).delete

of

activecell.entirerow.delete