Punto de Venta en Excel – Alta de Clientes Masivamente
En el presente se siguen incorporando mejoras para crear paso al paso un puno de venta en Excel, en esta oportunidad se muestra un código para dar de alta en forma masiva a clientes, sirve si anteriormente se tiene una base de datos y se requiere ingresarla a la base de datos de este aplicativo de Punto de Venta con Excel.
Si requieres operar Excel en forma eficiente haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet, te lo recomiendo no te arrepentirás.
Formatos Fecha y Hora Excel Conectar Excel y Access Enviar Mail con Excel Seleccionar o Referencia en VBA Excel
Punto de Venta Alta Masiva de Clientes
En este aplicativo llamado Punto de Venta en Excel se prevé que ya se posea una base de datos de clientes y se requiera dar de alta en forma masiva es decir incorporar la base de datos de clientes que ya se tiene a la base de datos en access de este aplicativo.
Para lograr lo mencionado el aplicativo incorpora una hoja denominada Clientes, en dicha hoja se puede copiar y pegar clientes, importar clientes a dicha hoja, luego con un botón desde el formulario principal leerá esta hoja e incorporará los clientes listados en la base de datos en forma automática y masiva.
Quizás también interese leer:
Integrar Excel con Access usar SQL para ingresar datos
Conectar Excel con Excel Consulta SQL Un Criterio con Datos Otro Libro
Explicación código que permite insertar masivamente clientes a la base de datos
El ingreso masivo de clientes o alta masiva de registros, es útil cuando se tiene un padrón de clientes y se requieren ingresar todos de una sola vez y sin esfuerzo a la base de datos, ya que al presionar un botón, la macro en este ejemplo recorre todos los clientes listados en la hoja clientes, hasta la última fila con datos e incorpora los clientes listados a la base de datos de Excel.
También es útil si se importa a Excel desde otro sistema un padrón de clientes, al presionar el botón que está en el formulario incorporará todos los clientes listados en la hoja clientes.
Código para dar de alta clientes nuevos en forma masiva
El siguiente código muestra como se puede dar de alta o ingresar en forma masiva un padrón de clientes a la base de datos:
Private Sub CommandButton3_Click()
Dim fila As Long, uf As Long, conta As Long
Dim cn As ADODB.Connection, rs As ADODB.Recordset
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set a = Sheets(«Clientes»)
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open «Provider=Microsoft.ACE.OLEDB.12.0; » & «data source=» & ThisWorkbook.Path & «\1000 DBTSPuntoVenta.accdb;»
rs.Open «DB_Clientes», cn, adOpenKeyset, adLockOptimistic, adCmdTable
fila = 2
conta = 0
While a.Cells(fila, «A») <> Empty
With rs
.AddNew
.Fields(«N_Cliente») = a.Cells(fila, «B»)
.Fields(«Nombre_Cliente») = a.Cells(fila, «C»)
.Fields(«Domicilio_Cliente») = a.Cells(fila, «D»)
.Fields(«Mail_Cliente») = a.Cells(fila, «E»)
.Fields(«Telefono_Cliente») = a.Cells(fila, «F»)
.Update
End With
conta = conta + 1
fila = fila + 1
Wend
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
MsgBox («Se procesaron » & conta & » registros con éxito, se omitieron duplicados»), vbInformation, «AVISO»
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.
If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.
Donate:
Cuenta Paypal: https://paypal.me/programarexcel
Cuenta Bitcoin: 1KBGGb8fyDzyR3X1Rie6m7VguzaAfngNbd
Cuenta Ether: 0x41Bbd24556914C83a31217eBb3BC49789b66e407
