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
Buenos días:
El almacenamiento en OneDrive lo uso hace un buen tiempo.
Sin embargo ahora se me presenta el caso de que debo compartir achivos y carpetas.
1. La persona debe tener instalado OneDrive en su PC, notebook o móvil ?
2. Si tiene instalada ya la aplicación es suficiente con eso ó debe poseer una cuenta en OneDrive ?
3. Todo esto ha de ser muy sencillo pero estoy muy perdido compartiendo archivos en una dirección de correo por ejemplo.
4. Todas las aclaraciones y sugerencias (aunque no estén solicitadas aquí) me será de suma utilidad.
Muchas gracias desde ya.
Rubén