¿Cómo puedo condicionar una celda para que acepte unos valores determinados con Microsoft Excel?

Hola, ante todo agradecerte tu interés por compartir tus conocimientos.
Mis preguntas son:
Cómo puedo hacer para condicionar que si en una celda (ejemplo A1)se introduce:
a) Un valor numérico la siguiente celda (ejemploB1)únicamente admita valores numéricos.
b) Una POR la siguiente celda (ejemploB1)únicamente admita los valores SI y NO.
c) Un nulo la siguiente celda (ejemploB1) admita el valor POR de color verde.
Muchas gracias por adelantado.
Saludos

1 respuesta

Respuesta
1
Este es el código que tienes que poner en el evento "Change" del Worksheet.
O sea, que haces Alt+F11 y te vas a hacer doble click encima del nombre de la hoja que te interesa controlar
Borras lo que te salga a la derecha (el SelectionChange) y pones esto:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
'caso que no haya nada
If Range("A1").Value = "" Then
Range("B1").Select
Selection.ClearContents
Selection.Font.ColorIndex = 10
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="X"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
'caso que se haya escrito un numero
ElseIf IsNumeric(Target) Then
Range("B1").Select
Selection.ClearContents
Selection.Font.ColorIndex = 0
With Selection.Validation
.Delete
.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="-100000", Formula2:="100000"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
'caso que se haya escrito una X
ElseIf Range("A1").Value = "X" Then
Range("B1").Select
Selection.ClearContents
Selection.Font.ColorIndex = 0
With Selection.Validation
.Delete
'en las celdas K1 y K2 tiene que estar escrito SI y NO, puedes ponerlo de color blanco para que no se vea
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$K$1:$K$2"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
End If
End Sub
Modifícalo a tu gusto y pon mensajes entrantes y de error, que siempre quedan bien.
Gracias mil, he podido solucionar el problema, y he aprendido algo más sobre Excel(para mi un gran desconocido). Espero que mañana, mi jefe no tenga ninguna otra idea luminosa, para implementar la hoja de excel.
Muchas gracias de nuevo.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Validación de datos dentro de código vba

'Usar validacion de datos dentro de un formulario vba ' 'Hola es mi primer consulta dentro del foro, por cierto antes de ser miembro pude solucionar 'muchos inconvenientes con este formulario, por este motivo necesito hacerte una consulta 'con...
1 respuesta

Pasar información de un textbox a una celda en excel

Yo de nuevo Que códigos debo utilizar para pasar o pegar la información de un textbox a una celda en excel, pero el textbox se encuentra en una hoja de excel y la información la necesito pegar en una celda en excel, en el mismo libro pero en otra...
1 respuesta

Bloquear una casilla o no dependiendo del valor de otr

Tengo que proteger contra escritura una casilla en función del valor de otra, por ejemplo si mi casilla A1 vale "dital" la casilla B1 debe bloquarse contra escritura. Sin embargo si mi casilla A1 vale Analógico B2 debe estar sin bloquear y en ella yo...
1 respuesta

Arrojar varios datos desde un criterio de búsqueda

Lo que necesito es: Yo tengo una columna (A1) con varios nombres de "Clientes", estos en algunos casos están repetidos y al frente en B1 tienen un # que es la factura de un producto "X", lo que quiero es buscar cualquier cliente en una celda de otra...
3 respuestas

Generar una SubLista de una Lista

¿Serían tan amables de ayudarme a resolver un problema que tengo? Deseo listar de una Lista muy larga de respuestas, una Sublista que cumpla con una condición. Tengo una Lista muy larga de Preguntas diferentes y cada una tiene sus respuestas,...
3 respuestas

Crear una lista desplegable dependiendo de otra

Actualmente se crear una lista desplegable en una celda, me gustaría complicar un poco más esta opción creando una lista desplegable condicionando la celda a otro dato anterior de otra lista desplegable. Pongo un ejemplo para aclararlo si no me he...
1 respuesta