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
Buenas tardes con todos:
En esta oportunidad les comparto una funcion udf la cual concatena varias celdas para formar una sentencia para SQL Server llamada Insert Into.
Los funcion tiene la siguiente sintaxis:
=GenerarSQL(Rango, Tabla)
Rango: Rango de celdas que contienen datos la cual representara los valores de un campo.
Tabla: Nombre de la tabla a la cual se le insertaran los registros.
Luego que se haya generado la sentencia se puede pegar en el analizador de consulta del SQL y ejecutarlo.
Espero me haya dejado entender.
En este enlace pueden encontrarlo mas detallado.
Saludos
Funcion_Para_Generar_Sentencia_Insert_Into_SQL_Server.xls