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)
Sheets("XML").Select
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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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) Sheets("XML").Select 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