Forums Últimos mensajes - Powered by IBM
 

Autocompletar con vba

05/01/2008 - 16:36 por Mauricio | Informe spam
Hola al grupo,
en una hoja tengo en la primera fila desde (A2:D:2) los datos de
A B C D
E
TEMA FECHA DURACION(Hrs.) MODERADOR ASISTENTES
Reunion 02/01/2007 2 ALBERTO 2030

2040

2050
Luego através de un formulario ingreso los codigos de asistentes en la
columna E...lo que quiero es que al terminar de ingresar los asistentes en la
columna E a través de un boton las columnas (A:D:) se autocompleten hasta el
limite donde llegó la columna E..he estado probando varias opciones pero
estoy un poco atrancado..cualquier soporte agradezco de antemano...esto es lo
ultimo que venía probando para cada columna...pero me sale un error
Set SourceRange = Worksheets("Sheet1").Range("A65536").End(xlUp)
Set fillRange = Worksheets("Sheet1").Range("A65536").End(xlUp)
SourceRange.AutoFill Destination:=fillRange
 

Leer las respuestas

#1 Mauricio
05/01/2008 - 22:08 | Informe spam
"Mauricio" wrote:

Hola al grupo,
en una hoja tengo en la primera fila desde (A2:D:2) los datos de
A B C D
E
TEMA FECHA DURACION(Hrs.) MODERADOR ASISTENTES
Reunion 02/01/2007 2 ALBERTO 2030

2040

2050
Luego através de un formulario ingreso los codigos de asistentes en la
columna E...lo que quiero es que al terminar de ingresar los asistentes en la
columna E a través de un boton las columnas (A:D:) se autocompleten hasta el
limite donde llegó la columna E..he estado probando varias opciones pero
estoy un poco atrancado..cualquier soporte agradezco de antemano...esto es lo
ultimo que venía probando para cada columna...pero me sale un error
Set SourceRange = Worksheets("Sheet1").Range("A65536").End(xlUp)
Set fillRange = Worksheets("Sheet1").Range("A65536").End(xlUp)
SourceRange.AutoFill Destination:=fillRange



He Probado este código y me soluciono para la primera columna...es decir
autorellena la columna B a medida que voy anexando datos en la columna A
...sin embargo si esta secuencia la repito para las demas columnas (C,D,E) no
terminan en orden siempre la columna B avanza 2 filas más que las
otras...agradezco su pronta ayuda

Selection.FillDown
Range("B65536").End(xlUp).Offset(1).Select

Preguntas similares