¿Cómo arrastrar el valor de una celda cuando ésta no es fija?
Tengo un problema para conseguir crear mi macro. Lo que pasa es que quiero arrastrar el valor de la última celda con datos de la columna K, hasta la última fila con datos en la columna B. El problema viene en que esa última celda con datos de la columna K no está siempre en la misma celda, sino que puede variar hacia arriba o hacia abajo, al igual que los datos de la columna B ( hasta donde queremos arrastrarla).
Yo tengo esto, pero no me funciona:
Sub arrastredos()
Range("K1").End(xlDown).Select
UltimaFila = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
Selection.AutoFill Destination:=Range("K1:K" & UltimaFila), Type:=xlFillCopy
End SubSi alguien me puede ayudar con esto le estaría muy agradecido.
1 Respuesta
Respuesta de Dante Amor
[Ho la y bienvenido a TodoExpertos!
Revisa si alguna de las siguientes opciones es lo que necesitas
Sub arrastredos()
With Range("K" & Rows.Count).End(3)
.Copy Range(.Cells(1), Range("K" & Range("B" & Rows.Count).End(3).Row))
End With
End Sub
Sub arrastredos_1()
With Range("K" & Rows.Count).End(3)
.AutoFill Range(.Cells(1), Range("K" & Range("B" & Rows.Count).End(3).Row)), xlFillCopy
End With
End Sub
Sub arrastredos_2()
Dim UltimaFila As Long
Range("K1").End(xlDown).Select
UltimaFila = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
Selection.AutoFill Destination:=Range(Selection, "K" & UltimaFila), Type:=xlFillCopy
End Sub
