memodeltoro

calvuch respondió: Prueba esto Sub ab() Dim i As Integer Application.ScreenUpdating = False For i = 1 To 250 Cells(2, i).Formula = "=" & Cells(1, i).Address DoEvents Next Application.ScreenUpdating = True MsgBox "Terminado" End Sub esta macro pone en fila 2 las...

v_344 respondió: Que ondas memo!... Ok... no puedes hacer lo que dices como lo dices... pero, si lo puedes hacer mediante fórmula. La fórmula es trasponer y la utilizarías así: =TRANSPONER(Hoja2!C2:F2)...pones todo el rango de columnas en la fila 2 que kieres despues...