1 votes

Copier les colonnes jusqu'à une limite

J'essaie de demander à VBA de copier toutes les cellules de la colonne "Data_FirstCoumn" jusqu'à la colonne "Data_Boundary".

Cependant, VBA continue de produire une erreur indiquant que "la méthode AutoFill de la classe Range a échoué".

Voici mon code pour fournir un contexte :

Sub Macro5()
Range("Data_FirstColumn").Select
Selection.AutoFill Destination:=Range("Data_Boundary"), Type:=xlFillDefault
Columns("Data_First:Data_Boundary").Select
End Sub

Gracias

1voto

Gary's Student Points 18946

Pensez-y :

Sub macro5()
    Range("A:A").Name = "Data_FirstColumn"
    Range("Z:Z").Name = "Data_Boundary"
    Range("Data_FirstColumn").Copy Range(Range("Data_FirstColumn"), Range("Data_Boundary"))
End Sub

1voto

Raystafarian Points 21292

Par votre erreur - vous avez besoin de la destination a inclure la source . Essayez :

Range("Data_FirstColumn").AutoFill Destination:=Range("Data_FirstColumn:Data_Boundary"), Type:=xlFillDefault

SistemesEz.com

SystemesEZ est une communauté de sysadmins où vous pouvez résoudre vos problèmes et vos doutes. Vous pouvez consulter les questions des autres sysadmins, poser vos propres questions ou résoudre celles des autres.

Powered by:

X