Saltar al contenido

Transpose


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)


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

 

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.