Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

UDF para llenar campo tabla access

publicado

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

Featured Replies

publicado
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

 

publicado
  • Autor

Antoni

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

Tema solucionado

Saludos

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.