Autocompletar con vba

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

"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- Ocultar texto de la cita -

- Mostrar texto de la cita -

Hola,
según entiendo al decir "autocompleten" te refieres que sea el mismo
contenido para cada columna no?, pues bien, este ejemplo te podría
servir.

Lo que hace es copiar la fila 2, seleccionar todo el rango hasta la
última celda de la columna E (sin seleccionar esta última) y pega el
contenido, después te manda a la siguiente celda en blanco de la
columna E.

Suerte!

Application.ScreenUpdating = False
Range("E2").Select
Range(Selection, Selection.End(xlDown)).Offset(, -1).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range("A2:D2").Copy
ActiveSheet.Paste
Application.CutCopyMode = False
Range("E2").Select
Selection.End(xlDown).Offset(1, 0).Select
Application.ScreenUpdating = True

un saludo
JJE

> "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- Ocultar texto de la cita -
>
> - Mostrar texto de la cita -

Hola...gracias por responder pero no funcionó



"" wrote:
> Hola,
> según entiendo al decir "autocompleten" te refieres que sea el mismo
> contenido para cada columna no?, pues bien, este ejemplo te podría
> servir.

> Lo que hace es copiar la fila 2, seleccionar todo el rango hasta la
> última celda de la columna E (sin seleccionar esta última) y pega el
> contenido, después te manda a la siguiente celda en blanco de la
> columna E.

> Suerte!

>     Application.ScreenUpdating = False
>     Range("E2").Select
>     Range(Selection, Selection.End(xlDown)).Offset(, -1).Select
>     Range(Selection, Selection.End(xlToLeft)).Select
>     Range("A2:D2").Copy
>     ActiveSheet.Paste
>     Application.CutCopyMode = False
>     Range("E2").Select
>     Selection.End(xlDown).Offset(1, 0).Select
>     Application.ScreenUpdating = True

> un saludo
> JJE

> > "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- Ocultar texto de la cita -

> > - Mostrar texto de la cita -- Ocultar texto de la cita -

- Mostrar texto de la cita -