Copiar fila G y H desde la celda G9, no ejecuta
Tengo la siguiente macro:
Sub Copia_Tipo()
If ActiveSheet.Index = 10 Then
CUO = Hoja2.Range("M1")
Worksheets(Hoja2). Range("G1:H1"). Copy
Worksheets(Hoja2).Range("G9:H" & CUO). PasteSpecial xlPasteAll
Worksheets(Hoja2).Range("G9").Select
End If
End Sub
Al ejecutar para que copie la celda G1:H1 desde la cedla G9, no me permite me sale un error.
Pido su ayuda en dar solucion a ello.
A la vez cabe indicar que la macro es parte de una macro que se ejecuta de otra hoja por eso selecciono la hoja2.
2 Respuestas
Por lo que veo en tu imagen ese error te sale porque estas seleccionando la hoja con "Sheets" el cual se dirige al nombre de la hoja no al numero.
Hoja2 en tu foto no se llama Hoja2, el nombre no se ve por el cartel
"Hoja2 (Con.. " eso es lo que se ve.. tu tienes que poner adentro del "Sheets("") el nombre que esta adento de los parentesis osea el nombre que ves tu desde excel, en este caso en la imagen solo se ve "CON"
O podrías usarlo así, y de esta forma...
Sub Copia_Tipo()
'If ActiveSheet.Index = 10 Then
CUO = Hoja2.Range("M1")
Hoja2. Range("G1:H1"). Copy
Hoja2.Range("G9:H9" & CUO). PasteSpecial xlPasteAll
Hoja2.Range("G9").Select
'End If
End SubColocando solo el nombre "HOJA2" de esta forma si te estas refiriendo al nombre interno de la hoja
Cambie "G9:H" por "G9:H9"
Te falto poner entre comillas el nombre de la hoja
Sub Copia_Tipo()
If ActiveSheet.Index = 10 Then
CUO = Hoja2.Range("M1")
Sheets("Hoja2"). Range("G1:H1"). Copy
Worksheets("Hoja2").Range("G9:H" & CUO). PasteSpecial xlPasteAll
Worksheets("Hoja2").Range("G9").Select
End If
End Sub
Buenas tardes james:
Me sale este error:
Espero me puedas ayudar.
Saludos.
Ese error sale cuando un objeto no esta presente o no existe, por ejemplo la hoja2