Hola grupo.
Tengo una macro que me copia un rango establecido de una hoja a otra trasponiendo los valores. Hasta ahora me ha servido porque siempre he copiado el mismo numero de filas cada vez de la columna G (de 13 en 13). Ahora necesito adaptarlo a que me copie un
rango de filas (siempre secuencial) simpre que el contenido de la culumna A sea el mismo. Por ejemplo en la columna A hay codigos A1:A5 es el codigo 1, pues me seleccionaria el contenido de la g1:g5 y lo copia trasponiendolo en la hoja 2, A6:A13,
puies me copia el contenido del rango g6:g13 y lo pega en la siguiente fila libre trasponiendolo. Mi codigo actual es
Sub Macro1()
Dim I As Integer
Dim I1 As Integer
I1 = 0
For I = 1 To 60 Step 13
Sheets("Hoja3").Select
Range("G" & I & ":" & "G" & (I + 12)).Select
Selection.Copy
Sheets("Hoja2").Select
Range("A1").End(xlUp).Offset(I1, 0).Select
I1 = I1 + 1
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Next I
End Sub
Me pueden ayudar??
Gracias de antemano
