.thumb.jpg.ae86858be3c9f9c88ec51f9082efda27.jpg)
-
Posts
-
-
-
Prueba con esto: Sub TransponerA1SX42() Application.ScreenUpdating = False y = Columns("UT").Column For columna = 1 To Columns("SX").Column x = (columna - 1) * 42 + 1 Range(Cells(x, y), Cells(x + 41, y)).Value = _ Range(Cells(1, columna), Cells(42, columna)).Value Next Columns(y).Sort Key1:=Columns(y) End Sub -
Muchisimas gracias¡¡¡ me sirvio muchisimo, eres una crack en esto¡¡¡¡ -
Pfffffff eres un maestro al verdad.... que excelente apoyo¡
-
-
Recently Browsing
No registered users viewing this page.
Recommended Posts
Archived
This topic is now archived and is closed to further replies.