de 2 laatste selecteren

[janusvl]

Ik ben nog steeds met exel en visual basic bezig en zit nu met het volgende

ik heb de regel Range("C2:C400").Select

nu moet die C automatich de eerst volgende lege kolom worden bijvoorbeeld D
Is er een mogelijkheid om dit met .End(xlToRight)...... te doen?

en de volgende regel moet niet de eerste lege cellen maar de laatste volle en eerste lege geselecteerd worden

Selection.AutoFill Destination:=Range("B2:C2"), Type:=xlFillDefault

iemand een idee

alvast bedankt


Janus

 

[janusvl]

is gelukt

ik heb het inmiddels al op weten te lossen

Range("A2").End(xlToRight).Offset(0, 0).Select
Dim g As String, f As String
g = ActiveCell.Address
Range("A400").End(xlToRight).Offset(0, 1).Select
f = ActiveCell.Address


Selection.AutoFill Destination:=Range(g & ":" & f)

da werkt ook

janus