Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Autorrellenar con macro

20/01/2006 - 12:11 por Martin | Informe spam
Ayuda Hacer una pregunta
Hola a todos, necesito una macro que me vaya a la ultima fila con datos de
la columna B y alli me seleccione la fila hasta la columna HG y una vez
seleccionada me arrastre para autorrellenar la fila siguiente. Con esto:


Sheets("hoja1").Select

Windows("libro1.xls").Activate
Range("B" & Rows.Count).End(xlUp).Offset(0, 0).Select


llego a la ultima celda de la columna B, pero no se como selecionar la fila
y arrastrar con una macro,

Gracias por anticipado por la ayuda.

Saludos. Martin.
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 KL
20/01/2006 - 13:19 | Informe spam
Hola Martin,

Si quieres copiar los datos de A a HG, entonces prueba esto:

Sub test()
With Sheets("Hoja1")
Set rng = .Cells(.Rows.Count, "B"). _
End(xlUp).Offset(, -1).Resize(, 215)
End With
rng.AutoFill rng.Resize(2)
End Sub

y si tiene que ser de B a HG, entonces:

Sub test()
With Sheets("Hoja1")
Set rng = .Cells(.Rows.Count, "B"). _
End(xlUp).Resize(, 214)
End With
rng.AutoFill rng.Resize(2)
End Sub

Saludos,
KL


"Martin" wrote in message news:43d0c54c$0$15781$
Hola a todos, necesito una macro que me vaya a la ultima fila con datos de
la columna B y alli me seleccione la fila hasta la columna HG y una vez
seleccionada me arrastre para autorrellenar la fila siguiente. Con esto:


Sheets("hoja1").Select

Windows("libro1.xls").Activate
Range("B" & Rows.Count).End(xlUp).Offset(0, 0).Select


llego a la ultima celda de la columna B, pero no se como selecionar la fila
y arrastrar con una macro,

Gracias por anticipado por la ayuda.

Saludos. Martin.



Preguntas similares

 

Busqueda sugerida :