Jump to content


Recommended Posts

Sub cargaRecib()
Dim ws2, ws1 As Worksheet, Mat
Dim Q&

Set ws1 = ActiveSheet

'mio = ActiveWorkbook.Name
ws2 = "selecciona el libro a procesar"
MsgBox ws2, vbOKOnly

ws2 = Application.GetOpenFilename(Title:=ws2)
If ws2 = False Then Exit Sub
On Error GoTo 0
Set ws2 = Workbooks.Open(ws2)

If [B2] = "" Then
MsgBox "Libro u Hoja sin Informacion."
 End If

ReDim Matt(1 To 58)
Q = Range([B1], Cells(Rows.Count, "b").End(xlUp)).Rows.Count

Mat(1) = Application.Transpose(ws2.[B1].Resize(Q))

End Sub


Link to comment
Share on other sites


This topic is now archived and is closed to further replies.

  • Create New...

Important Information

Privacy Policy