Saltar al contenido

Macro sencilla con condición


Recommended Posts

Tengo esta macro y lo único que no he conseguido es que una celda se desbloquee SÓLO cuando en esa misma celda apareza lo siguiente "Ingrese la Agencia" este texto aparece debido a que en dicha celda hay una fórmula que consiste en un buscar y si consigue error coloca "Ingrese la Agencia" entonces hasta ahora llevo lo siguiente, el problema ela macro que realicé, excel no la reconoce automáticamente es decir cuando cambio en la celda b12 aparece "ingrese la agencia" no se desbloquea la celda b12 esto es lo que he conseguido hasta ahora muchas gracias!

la primera macro la tengo ubicada en el objeto hoja presupuesto no se si debe estar allí o en el módulo tampoco se si hay una macro que haga lo que hacen las dos macros pero en una sola en vez de llamar a la macro bloqueo

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = ("b12") Then

If Target.Value = "Ingrese la Agencia" Then

Application.EnableEvents = False

Application.ScreenUpdating = False

Call Bloqueo

Application.EnableEvents = True

Application.ScreenUpdating = True

End If

End If

End Sub

2)

Sub Bloqueo()

With Worksheets("Presupuesto")

.Unprotect Password:="321"

.Range("B12").Select

Selection.Locked = False

.Protect Password:="321", userinterfaceonly:=True, DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowInsertingRows:=True

.EnableOutlining = True

End With

End Sub

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.