Foro Excel

Hola

Estoy intentando montar un formulario y me encuentro con el siguiente problema que no sé si será posible resolver.

En una parte de mi formulario tengo.

Campo a Modificar - Es una lista desplegable con dos valores DESCRIPCION y PROCESO
Valor Nuevo - El valor que quiero que luego se grabe (con una macro) en la tabla final.

Bien. Mi idea es que hacer que el campo VALOR NUEVO sea una lista desplegable si CAMPO a MODIFICAR es PROCESO y que se aun campo LIBRE (sin validacíón) si CAMPO a MODIFICAR es DESCRIPCION. ¿Lo veis posible?

Muchas gracias,

Bueno:

mira a ver si el adjunto te da una idea, aunque sea sin macros, que de eso no tengo ni papa idea.

Si la celda B2 contiene 'Proceso', en la celda B5 podrás elegir los procesos.
Si la celda B2 contiene 'Descripción' (esta celda está validada a esos dos valores), entonces, en [B5] escribes lo que te dé la gana.

Espero que te sirva.

Muchas gracias,

Al final lo resolvi así (no me preguntes la lógica porque fue una mezcla de ideas tras mucho buscar... )

Private Sub Worksheet_Change(ByVal Target As Range)

datos = "J8"

If Not Application.Intersect(Target, Range(datos)) Is Nothing Then

Listas

End If
End Sub

Siendo Listas:

Dim celda As String

celda = Range("J8")

If celda = "CATEGORÍA" Then

Range("J10").Select

With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=categorias"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True

End With

Else
If celda = "DESCRIPCIÓN" Then

Range("J10").Select


With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With


Else

If celda = "PROCESO" Then

Range("J10").Select

With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Procesos"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True

End With

Else

If celda = "AMBITO" Then

Range("J10").Select

With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Ambitos"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True

End With

Else
If celda = "SOCIEDAD" Then

Range("J10").Select

With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Sociedades"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True

End With

Else

If celda = "DEPENDENCIA" Then

Range("J10").Select


With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

Else

If celda = "" Then

Range("J10").Select


With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With



End If
End If
End If
End If
End If
End If
End If

End Sub