UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

Por favor antes de hacer su consulta lean "Recomendaciones para hacer preguntas." Den Click aquí

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Marioo19


Buenos días.

Estoy intentando crear una macro que haga lo siguiente:


  • Seleccione la ultima fila con texto
  • La arrastre (arrastrando fechas, formulas, etc) a la siguiente fila.


A base de retales de código que tenia, tengo un par de cosas que os dejo a continuación (con los comentarios de lo que hacen), pero me faltan algunas cosas para completar y que funcione correctamente, aver si me podeis ayudar.


Sub prueba()
'
' prueba Macro
' %%%%Esta parte me busca la ultima fila en la que hay texto escrito, y me guarda la fila en la variable ult (ej, ultima fila 10, ult=10)

    Dim ult As Integer
    ult = Cells(Rows.Count, 1).End(xlUp).Row
    MsgBox ult

' ahora en ult tenemos el numero de la ultima fila escrito

%%% Esta otra parte del código, me coje la fila de celdas de a10 a f10, y me la rellena en la 11
    

    Range("A10:F10").Select
    Selection.AutoFill Destination:=Range("A10:F11"), Type:=xlFillDefault
    Range("A10:F11").Select
End Sub

El problema que tengo, es conseguir conectar las dos partes del codigo, ando un poco perdido en esto y no consigo hacerlo correctamente.

Alguna idea que podais ayudarme?

Muchisimas gracias por adelantado

Igtelo

avatar
Hola Mario.

Aquí te va, el Msgbox no tiene caso. Ejecútala por pasos para entender su funcionamiento.

Código:
Sub prueba()
Dim ult As Integer

ult = Cells(Rows.Count, 1).End(xlUp).Row
Range("A" & ult, "F" & ult).AutoFill Destination:=Range("A" & ult, "F" & ult + 1), Type:=xlFillDefault

End Sub

Otra opción: Hecha a andar el grabador de macros, activa "Referencias relativas", después analiza como te dejó el código, hazlo por pasos...

Saludos
Ignacio Téllez

Marioo19


Funciona perfectamente, muchisimas gracias por la pronta respuesta!

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.