Copiar hacia abajo a partir de una celda
Buenas noches, estoy usando esta macro :
Sub Fila_libre_determinada()
filalibre = Range("J65536").End(xlUp).Row + 1
Cells(filalibre, 10) = ActiveSheet.Range("I13")
End Sub
Pero necesitaría y no logro solucionarlo, que en vez de la primera celda vacía, tenga la opción de poner, a partir de una celda determinada hacia abajo.
Un saludo
1 Respuesta
Respuesta de Victor Coello
1
Sub CONTROLSALDO_CLIENTES()
Range("i13").Select Selection.Copy
Range("j11").Select If Selection.Value Then Cells(Rows.Count, 10).End(xlUp).Offset(1, 0).Select ActiveSheet.Paste
End If End Sub
