none
modificar codigo macro excel RRS feed

  • Pregunta

  • 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 

    viernes, 18 de junio de 2010 19:16