Macro ocultar botón

buenos días me pregunto si me podrías ayudar con algo

tengo una hoja1 que actúa como remisión principal en la cual realizo los cálculos luego de hacer los cálculos en la misma hoja1 hay un botón que su función es crear una copia idéntica de la hoja1 en otra hoja

lo que no se es como ocultar el botón de la hoja idéntica en el momento que presiono en la hoja1 para que solamente la hoja1 quede con el botón y no la idéntica

este es el código del botón

Private Sub Remisiona_Click() If Range("E4").Value = "" Then MsgBox "Colegio Vacío o Erróneo", vbCritical, "ERROR" Else Sheets("Ciclo1").Copy After:=Sheets(ActiveWorkbook.Sheets.Count) ActiveSheet.Name = Range("E4").Value End If End Sub

gracias

Respuesta
1

Lo que se me ocurre es que el mismo macro que copia la hoja, esta se encargue de eliminar el botón en la copia, puedes probar algo asi:

Private Sub Remisiona_Click() If Range("E4").Value = "" Then MsgBox "Colegio Vacío o Erróneo", vbCritical, "ERROR" Else Sheets("Ciclo1").Copy After:=Sheets(ActiveWorkbook.Sheets.Count) ActiveSheet.Name = Range("E4").Value End If

ActiveSheet.Shapes.Range(Array("Remisiona")).Select
Selection.Delete

End Sub

1 respuesta más de otro experto

Respuesta
1

Te dejo el código modificado para que elimine el botón en la copia de la hoja

Sub Remisiona_Click()
''Modificada por FSerrano en 120608
''para diegopaula en TodoExpertos.com
''adicionada la linea que elimina el botón en la copia de la hoja
If Range("E4").Value = "" Then
     MsgBox "Colegio Vacío o Erróneo", vbCritical, "ERROR"
Else
     Sheets("Ciclo1").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
     ActiveSheet.Name = Range("E4").Value
     ActiveSheet.Shapes(1).Delete
End If
End Sub

Supuse que es el único botón que está en la hoja copiada, pero si quieres tener mayor precisión puedes hacer referencia con el nombre correspondiente, me explico: si suponemos que el boton se llama Button1 la línea quedaria de esta forma

ActiveSheet.Shapes("Button1").Delete

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas