¿Se puede realizar una macro que crea una hoja nueva y le escriba un código en dicha hoja?

Buenos días expertos, mi consulta es si se puede crear una hoja nueva y ponerle condigo a esta misma hoja. Lo que necesito es que después de crear una hoja me escriba algo así:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("c3:c5203")) Is Nothing Then
Cancel = True
       MsgBox "no se puede"
End If
End Sub

Esto es que si le doy doble click me ejecute una macro.

¿Se puede poner estoy automáticamente en una hoja nueva mediante macro?

Muchas gracias

1 Respuesta

Respuesta
1

Esto se puede realizar desde el evento NewSheet (nueva hoja) o desde el evento SheetBeforeDoubleClick, ambos en el objeto ThisWorkbook o Este libro.

En el primer caso se ejecutará para TODAS las hojas que insertes y quizás esa no sea entonces la mejor solución.

En el 2do caso, solo se ejecutará en las hojas que le indiques a la macro. Si ya sabés cómo se llamará la o las hojas que vas a crear nuevas, podés copiar esto (en mi ejemplo solo se ejecuta en hojas llamadas ENE y FEB):

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Sh.Name <> "ENE" And Sh.Name <> "FEB" Then Exit Sub
If Not Application.Intersect(Target, Range("c3:c5203")) Is Nothing Then
Cancel = True
MsgBox "no se puede"
End If
End Sub

Pd) Todos los eventos explicados en mi manual Programación VBA 2007+

Sdos

Elsa

Hola Elsa muchas gracias algo asi ocupo, pero hay alguna forma de que me ejecute la macro a todas la hojas que comienzan con la palabra "ACT".

Esto debido a que creo nuevas hojas con la palabra "ACT" enlazado a un numero consecutivo. ejemplos "ACT1", "ACT2", "ACT3" etc.

Espero me entiendas bien muchas gracias

En ese caso cambia la comparación:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Left(Sh.Name, 3) <> "ACT" Then Exit Sub
If Not Application.Intersect(Target, Range("c3:c5203")) Is Nothing Then
Cancel = True
MsgBox "no se puede"
End If
End Sub

Sdos

Elsa

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Hacer que se ejecute la misma macro hojas distinta

Tengo un proyecto que hace que en una de las hojas, si se modifica la celda a1, se ejecute una macro, y me gustaría que si se modificase esa misma celda de cualquiera de las otras hojas, se ejecutase la misma macro. El código que tengo en esa hoja...
1 respuesta

Asignar un valor a una celda de un rango con clic

Encontré la respuesta en otra pregunta que hizo otra persona pero yo quiero hacer los mismo pero definiendo solamente un rango de celdas a las cuales aplicar esta función. Por ejemplo yo quiero que se aplique esta función solamente al rando de celdas...
1 respuesta

Control de cambios

Otra vez molestando d2enri. Te pregunto ahora por un control de cambios que deseamos llevar en la base de datos, pero tenemos una macro que solo nos da la hora del cambio, pero no nos dice en que celda fue el cambio y no guarda histórico; solo se...
2 respuestas

Cambiar indistintamente el valor que comparten dos celdas ( II)

Lamentablemente la solución que me dió Elsa no me vale del todo: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Range("B" & Target.Row) = Target.Value ElseIf Not...
1 respuesta

! Macro para validar datos!

Tengo una inquietud necesito una macro que pueda hacer una búsqueda entre dos hojas una de las hojas es una lista con un números cosencutivos (folio)(hoja2) y en la otra un formato(hoja1), lo que quiero que haga esta macro es que me verifique el...
1 respuesta

Actualizar datos en base de datos

¿Cómo agrego la opción de que antes de realizar una búsqueda nueva, o bien agregando un botón nuevo, actualice cualquier dato que se modifique, directamente en la base? En lectura simple sería: Hoja Búsqueda: Si se modifica cualquier dato, en rango...
1 respuesta

Como ocultar filas a través del valor de una celda

¿Tengo una tabla en la cual donde necesito que: cuando a1 sea igual a 0 oculte el rango a1:c3; y de igual forma si a4 fuera igual a 0, oculte el rango b4:c7. Para ello necesito que se ejecute la macro automáticamente, sin necesidad de incrporarle un...
1 respuesta

Como hacer que una macro se ejecute al coincidir el valor de dos celdas

Necesitaría saber si es posible que una macro se ejecute automáticamente una sola vez cuando el valor de dos celdas ubicadas en hojas distintas coincida.
1 respuesta