Problemas al seleccionar por segunda vez
Publicado por Avedillo (6 intervenciones) el 11/07/2007 18:11:02
Hola
Gracias a la ayuda de Abraham he conseguido hacer el siguiente código que me copia la hoja en una nueva, me la coloca y luego desde una hoja oculta donde tengo el formulario limpio lo vuelve a copiar en la hoja del usuario:
Private Sub CommandButton1_Click()
Cells.Select
Selection.Copy
Sheets("BLOQUE_3").Select
Sheets.Add
ActiveSheet.Paste
ActiveSheet.Move After:=Sheets("BLOQUE_3")
Sheets("oculta").Visible = True
Cells.Select <---------------------------------------- ahí me da problemas y no me selecciona
Selection.Copy
Sheets("BLOQUE_3").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("oculta").Visible = False
End Sub
pero cuando tiene que seleccionar las celdas de nuevo me da error. Alguno sabe porque y como resolverlo.
Gracias
Gracias a la ayuda de Abraham he conseguido hacer el siguiente código que me copia la hoja en una nueva, me la coloca y luego desde una hoja oculta donde tengo el formulario limpio lo vuelve a copiar en la hoja del usuario:
Private Sub CommandButton1_Click()
Cells.Select
Selection.Copy
Sheets("BLOQUE_3").Select
Sheets.Add
ActiveSheet.Paste
ActiveSheet.Move After:=Sheets("BLOQUE_3")
Sheets("oculta").Visible = True
Cells.Select <---------------------------------------- ahí me da problemas y no me selecciona
Selection.Copy
Sheets("BLOQUE_3").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("oculta").Visible = False
End Sub
pero cuando tiene que seleccionar las celdas de nuevo me da error. Alguno sabe porque y como resolverlo.
Gracias
Valora esta pregunta
0