Condicionante, bloqueo y eliminación de celdas
Quisiera que me apoyen en generar una macro para la condicionantes de SI/NO.
Cuando la celda B2 es SI, se pueda registrar información en las celdas F4:F7 y H4:H7 pero que se bloquee la celda B4 y elimine información si se tiene.
Y si la celda B2 es NO, se pueda registrar información en las celdas B4 pero que se bloquee las celdas F4:F7 y H4:H7 y elimine información si se tiene.
Adjunto imagen para que me puedan apoyar.
Para bloquear usa
If range("b2")= "SI" then
range("F4:F7, H4:H7").Locked=false
range("B4").clear
range("B4").Locked=true
end if
Visita https://macrosenexcel.com descarga cientos macros gratis que te pueden ayudar o dar una idea sobre como automatizar tu proyecto.
1 respuesta más de otro experto
Supongo que quieres algo así:
Sub SI()
ActiveSheet.Unprotect
Cells.Select
Selection.Locked = False
Range("F4:F7,H4:H7").Select
Selection.ClearContents
Selection.Locked = False
Range("B4").Select
Selection.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub NO()
ActiveSheet.Unprotect
Cells.Select
Selection.Locked = False
Range("B4").Select
Selection.Locked = False
Range("F4:F7,H4:H7").Select
Selection.ClearContents
Selection.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
If UCase(Target.Value) = "SI" Then
SI
ElseIf UCase(Target.Value) = "NO" Then
NO
End If
End If
End SubDebes de poner el código en la hoja donde vas a hacer esos movimientos.
Hola Daniel:
El proceso ejecuta correctamente, pero hay una pequeñitos adiciones al momento de ejecutar me selecciona toda la hoja hay forma de colocarlo en la celda B2 y si hay posibilidad de colocarlo contraseña.
Muchas gracias por tu tiempo.
Saludos.
Hola Daniel:
Consulta adicional que al ejecutar me bloquee las celdas que he dicho que deben estar bloqueadas, por ejecuta y los deshabilitan.
Saludos,
De acuerdo a lo que pides así queda:
Sub SI()
ActiveSheet.Unprotect "aqui pones tu contraseña"
Cells.Select
Selection.Locked = False
Range("F4:F7,H4:H7").Select
Selection.ClearContents
Range("B4").Select
Selection.Locked = True
ActiveSheet.Protect "aqui pones tu contraseña"
Range("B2").Select
End SubTengo que seleccionar la hoja para poder aplicar el bloqueo posteriormente.
Se borra la información de los rangos F4:F7 y H4:H7 si no es lo que querías solo hay que remplazarlo, se bloquea la celda B4.
Sub NO()
ActiveSheet.Unprotect "aqui pones tu contraseña"
Cells.Select
Selection.Locked = False
Range("F4:F7,H4:H7").Select
Selection.ClearContents
Selection.Locked = True
ActiveSheet.Protect "aqui pones tu contraseña"
Range("B2").Select
End SubPasa casi lo mismo solo que se seleccionan los rangos F4:F7 y H4:H7 se elimina el contenido y se bloquea.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then If UCase(Target.Value) = "SI" Then SI ElseIf UCase(Target.Value) = "NO" Then NO End If End If End Sub
Se llama la macro según sea el caso.
Hola Daniel:
Te adjunto mi archivo que estoy trabajando con la macro, si observas al ejecutar y/o a poner la condicionante de SI/NO cuando finaliza el proceso se selecciona toda la hoja cuando no debería, porque ejecuta otra macro, a la vez quisiera que la hoja esté bloqueada y que solo los campos en blanco están deshabilitados.
https://mega.nz/#!vmAFlYaY!FdaDpqQ9YF2aTc9Yc8ezWtG60Wk5xnZC_IHlSBSj5YM
espero me puedas ayudar con este proceso.
Gracias.
Hola programador Ezequiel. Habrá alguna forma para hablar por pv. Gmail, facebook. - Luishao Shimura Nakata