Hola,
Este código hace literalmente eso
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("B2")) Is Nothing Then
Application.EnableEvents = False
Me.Range("B3").ClearContents
With Me.Range("B3").Validation
.Delete
Select Case Me.Range("B2").Value
Case 1
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="Avion,Barco"
Case 3
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="Barco"
Case Else
End Select
End With
Application.EnableEvents = True
End If
End Sub
Por
Israel Cassales, · publicado
Hola a todos:
Quiero hacerle un regalo a mi nieta por su 20 cumpleaños y había pensado en comprarle un PC portatil.
Mi nieta es estudiante universitaria y lo necesita para su desempeño habitual (Apuntes, trabajos, videconferencias, clases virtuales,....música, cine)
Os dejo el enlace de Amazón para ver las características.
PC LENOVO IdeaPad 3
Me gustaría saber vuestra opinión al respecto, si lo creeis suficiente y si sabeis de alguna otra alternativa asequible (600 € max)
Gracias