UDF para llenar campo tabla access

[GR77]

Saludos a todos

Por favor me gustaría que me ayudaran a crear una UDF para lo siguiente :

Tengo una base de datos en access con una Tabla1 y en este ejemplo 4 campos, con la macro se insertan 3 de los cuatro campos, y el cuarto campo (Descripcion) se debería de llenar dependiendo de la columna C del libro de excel, es decir, si en la celda de la columna C tengo un 1 en el campo descripción se debe llenar con la palabra Matutino, los demas numeros o letras están en la macro y como debería de quedar está en la tabla Copia de Tabla1

Nota.- No puedo utilizar por ejemplo una formula como buscarv, porque en la realidad tengo mas columnas con datos, salvo su mejor opinión de ustedes que son expertos con UDF y select case, aquí el problema es que no lo puedo hacer ya que mis conocimientos son casi nulos.

Agradezco de antemano su apoyo y/o ayuda

Saludos

ejemplo.rar

[Antoni]

Sub Grabar()
Dim fila As Integer, uf As Long, conta As Long
Dim cn As ADODB.Connection, Rs As ADODB.Recordset
'--
Set h = Sheets("DATOS")
Set cn = New ADODB.Connection
'--
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & "data source=" & ThisWorkbook.Path & "\Ejemplo.accdb;"
fila = 2
While h.Cells(fila, "A") <> Empty
   Descipción = "N/A"
   Select Case h.Cells(fila, 3)
      Case "1": Descipción = "Matutino"
      Case "2": Descipción = "Mixto"
      Case "3": Descipción = "Vespertino"
      Case "Mat": Descipción = "Matutino"
      Case "M": Descipción = "Mixto"
      Case "V": Descipción = "Vespertino"
   End Select
   Sql = "INSERT INTO Tabla1 (Id, Nombre, Codigo, Descripcion) VALUES ('" & _
                  h.Cells(fila, 1) & "','" & _
                  h.Cells(fila, 2) & "','" & _
                  h.Cells(fila, 3) & "','" & _
                  Descipción & "')"
   cn.Execute Sql
   fila = fila + 1
Wend
cn.Close
Set cn = Nothing
MsgBox "Listo", vbInformation, "AVISO"
End Sub

 

[GR77]

Antoni

Muchas gracias, quedó muy bien tu adaptación y funciona muy bien.

Tema solucionado

Saludos