¿Cómo seleccionar cierto rango de celdas en un libro diferente con Macros?
Necesito seleccionar información de otro libro de Excel con una macro, he intentado con éste código, pero me da error:
Sub Toma04() 'Seleccionar rango de celdas en el nuevo archivo
Miarchivo = Application.GetOpenFilename
Workbooks.Open Miarchivo
ini = InputBox("Celda inicial")
fin = InputBox("Filas")
Set cel = Range(ini)
Range(cel, Cells(cel.Row + fin, cel.Column)).Select
End Sub
1 Respuesta
Respuesta de James Bond
1
No entiendo donde da el error, funciona bien solo le hice algunas mejoras
Sub Toma04() 'Seleccionar rango de celdas en el nuevo archivo
Miarchivo = Application.GetOpenFilename
Workbooks.Open Miarchivo
ini = InputBox("Selecciona la celda", "AVISO")
fin = InputBox("Filas")
If fin = Empty Or ini = Empty Then End
Set cel = Range(ini).CurrentRegion
With cel
.Resize(fin, .Columns.Count).Select
End With
End Sub
