macro copíar celdas de una hoja a otra

[tomaxto]

Estimados soy nuevo en esto de la programacion VBA, trate de hacer una macro que genere un bucle que copie las columnas de una matriz de largo definido y la pegue en otra hoja. Despues esta copie los resultados obtenidos en otra ubicacion y los pegue en otra posicion( en la misma hoja).

 Public Sub copiar1() Dim i As Integer
  For i = 1 To 121
    Worksheets("Hoja4").Range(Cells(1, i), Cells(165, i)).Copy
    Worksheets("Hoja2").Range(Cells(6, 5), Cells(170, 5)).PasteSpecial xlPasteAll
    Worksheets("Hoja2").Range(Cells(9, 36), Cells(21, 36)).Copy
    Worksheets("Hoja2").Range(Cells(9, 44 + i), Cells(21, 44 + i)).PasteSpecial xlPasteValues
    Worksheets("Hoja2").Range(Cells(27, 36), Cells(39, 36)).Copy
    Worksheets("Hoja2").Range(Cells(27, 44 + i), Cells(39, 44 + i)).PasteSpecial xlPasteValues
  Next i
End Sub

Me genera un error Subindice fuera de intervalo.
Ojala alguien me pueda ayudar.
Muchas gracias de antemano.
Saludos.

 

[AngelJ]

¡Hola, y bienvenido al foro! Ese error ocurre cuando uno refiere a algo que no existe. Esta seguro que en ese libro existen Hoja2 y Hoja4?

 

[tomaxto]

No tengo muy claro que tengo que poner ahi ¿es el nombre generico de la hoja ?? ¿ o el nombre que yo le puse a esa hoja en mi libro?. De todas formas si cambio el nombre me genera un error Definido por la aplicacion o objeto.

 

[AngelJ]

No tengo muy claro que tengo que poner ahi ¿es el nombre generico de la hoja ?? ¿ o el nombre que yo le puse a esa hoja en mi libro?.

Se pueden usar los dos. Si quiere usar el nombre que le puso es así: Worksheets(“Nombre”).Range…. Si quiere usar el nombre genérico es así: Sheet1.Range…

De todas formas si cambio el nombre me genera un error Definido por la aplicacion o objeto.

Worksheets("Hoja4").Range(Cells(1, i), Cells(165, i)).Copy

Ya veo que causo este error. En este ejemplo la porción roja refiere a celdas en la hoja Hoja4. Pero la porción verde refiere a celdas en la hoja activa. Ese error ocurre cuando Hoja4 no es la hoja activa. Este código soluciona este problema porque ‘Cells’ refiere a las hojas correctas.

Public Sub copiar1()
    Dim i As Integer
    For i = 1 To 121
        Range(Sheet4.Cells(1, i), Sheet4.Cells(165, i)).Copy
        Range(Sheet2.Cells(6, 5), Sheet2.Cells(170, 5)).PasteSpecial xlPasteAll
        Range(Sheet2.Cells(9, 36), Sheet2.Cells(21, 36)).Copy
        Range(Sheet2.Cells(9, 44 + i), Sheet2.Cells(21, 44 + i)).PasteSpecial xlPasteValues
        Range(Sheet2.Cells(27, 36), Sheet2.Cells(39, 36)).Copy
        Range(Sheet2.Cells(27, 44 + i), Sheet2.Cells(39, 44 + i)).PasteSpecial xlPasteValues
    Next i
End Sub

 

[AngelJ]

Perdón, no savia que los nombres de las hojas también se traducen en VBA. En vez de Sheet4.Cells, creo que tiene que ser Hoja4.Cells.

 

[tomaxto]

Ahi funciono . Muchas gracias por su ayuda. Adjunto el codigo por si le sirve a alguien. Saludos.

Sub copiar2()    Dim i As Integer
    For i = 3 To 122
        Hoja4.Range(Hoja4.Cells(1, i), Hoja4.Cells(165, i)).Copy
        Hoja2.Range(Hoja2.Cells(6, 5), Hoja2.Cells(170, 5)).PasteSpecial xlPasteAll
        Hoja2.Range(Hoja2.Cells(9, 36), Hoja2.Cells(21, 36)).Copy
        Hoja2.Range(Hoja2.Cells(9, 42 + i), Hoja2.Cells(21, 42 + i)).PasteSpecial xlPasteValues
        Hoja2.Range(Hoja2.Cells(27, 36), Hoja2.Cells(39, 36)).Copy
        Hoja2.Range(Hoja2.Cells(27, 42 + i), Hoja2.Cells(39, 42 + i)).PasteSpecial xlPasteValues
    Next i
End Sub