Como cargar dato y saber si esta duplicado





Hoy muestro en este post como cargar un dato y que automáticamente se verifique si ya fue cargado en la base de datos para evitar cargar datos duplicados, es decir muestro como cargar un dato en Excel y saber si está duplicado.

Antes de seguir recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, 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.


  

Descargando el ejemplo de macro que permite verificar si un dato ya está cargado en la base de datos o duplicado, es decir si el dato no está duplicado; se observará que hay dos celdas en color blanco, que es donde se deben cargar los datos y el resto de celdas que se rellenan automáticamente en base a lo seleccionado en el las celdas B1  y B2.

La macro para determinar si un dato está duplicado controla la celda B1 y B2 en forma conjunta, es decir puede estar duplicado el N° de Recibo, pero el cliente es distinto, no puede haber un mismo N° de recibo y el mismo cliente, esa duplicidad la macro no la permite.

Al ingresar el número de recibo, seguidamente se debe ingresar el nombre del cliente, después de actualizar esa celda automáticamente se buscan los datos del cliente, al presionar el botón GUARDAR, se procede a guardar el registro, donde previamente para guardarlo controla que no haya en la base de datos un mismo número de Recibo y Cliente, en caso positivo el dato está duplicado y no lo guarda, en caso negativo guarda el registro en la hoja Base de Datos.

Desde el final descarga el archivo para que puedas observar su funcionamiento, el código es GRATUITO de libre acceso.

El vídeo que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlasbuscar en listbox mientras escribes en textboxordenar hojas libro excel por su nombreconectar Excel con Access y muchos ejemplos más.







Código que se inserta en un módulo




Sub borrar()
Range("B1:B6").ClearContents
End Sub

Sub Grabar()
Dim uf, ucw, r1, r2 As String
Set a = Sheets("Hoja1")
Set b = Sheets("BaseDatos")
If a.Range("B1") = Empty Or a.Range("B2") = Empty Or a.Range("B6") = Empty Then
MsgBox ("Es obligatorio llenar celdas B1 a B6"), vbCritical, "AVISO"
Exit Sub
End If
uf = b.Range("A" & Rows.Count).End(xlUp).Row + 1
b.Cells(uf, "A") = a.Range("B1")
b.Cells(uf, "B") = a.Range("B2")
b.Cells(uf, "C") = a.Range("B3")
b.Cells(uf, "D") = a.Range("B4")
b.Cells(uf, "E") = a.Range("B5")
b.Cells(uf, "F") = a.Range("B6")
borrar
MsgBox ("Los datos se guardaron con éxito"), vbExclamation, "AVISO"
End Sub

Código que se inserta en un WorkSheet Hoja1

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim uf, pf, busco, dato, codigo
If Target.Column = 2 And Target.Row = 2 Then

Set a = Sheets("Hoja1")
Set b = Sheets("BaseDatos")
Set c = Sheets("Clientes")

pf = 2
uf = b.Range("A" & Rows.Count).End(xlUp).Row
ufc = c.Range("A" & Rows.Count).End(xlUp).Row
r = "A2:A" & ufc
Do
busco = a.Range("B1") & a.Range("B2")
dato = b.Cells(pf, "A") & b.Cells(pf, "B")
If busco = dato Then
MsgBox ("Dato duplicado"), vbCritical, "AVISO"
a.Range("B3:B6").ClearContents
Exit Sub
Else
busco = a.Range("B2")
Set codigo = c.Range(r).Find(busco, LookIn:=xlValues, LookAt:=xlWhole)
If Not codigo Is Nothing Then
a.Range("B3") = c.Cells(codigo.Row, "B")
a.Range("B4") = c.Cells(codigo.Row, "C")
a.Range("B5") = c.Cells(codigo.Row, "D")
End If
End If
pf = pf + 1
Loop While pf <= uf
End If
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.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Como minimizar un formulario de Excel al inciar





En ciertas oportunidades es preciso iniciar un formulario de Excel en forma minimizada, pues bien este post muestra como minimizar un formulario de Excel al iniciar, anteriormente se mostró como maximizar un formulario de Excel, también se mostraron otros post relacionados entre ellos como eliminar el botón X o cerrar de un formulariocomo eliminar la barra de titulos de los formularios de VBAcomo anular o inutilizar el botón cerrar o X de un formulario de Excelcomo agregar un botón maximizar y minimizar en la barra de titulos de un formulario de Excel.

Recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, 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.

  

El ejemplo de macro de nominado como minimizar un formulario de Excel al iniciar, permite que al presionar por ejemplo un botón, mostrar un formulario determinado y al cargarse lo haga en forma minimizada, el formulario se muestra como "no modal", caso contrario no se podría trabajar en la hoja de Excel por más que estuviera minimizado, es por ello que se establece como no modal.

Un formulario o cuadro de dialogo puede ser modal o no modal; modal es cuando el formulario que está visible debe ser cerrado o ocultado, caso contrario no deja realizar otra acción sobre la hoja de Excel; hacer que un formulario sea modal o no se realiza desde la ventana propiedades del formulario o mediante código de esta forma:

UserForm1. Show vbModal

Desde la ventana de propiedades del formulario se debe modificar:

ShowModal= False

Si es igual a False se muestra el formulario como no modal, si es True como modal, teniendo que cerrar o ocultar el formulario para que se pueda trabajar en la hoja de Excel.

Una vez descargado el ejemplo se puede observar un botón, presionando el mismo muestra un formulario de Excel, que se minimiza inmediatamente, podrá ver como al costado inferior izquierdo queda una ventana minimizada que es el formulario de Excel, si se presiona el botón correspondiente se podrá restaurar  y se verá el formulario en tu tamaño original.

Desde el link del final se puede descargar el ejemplo, en el vídeo que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo como leer un archivo TXT delimitado por tabulacionesbuscar en listbox mientras escribes en textboxordenar hojas libro excel por su nombre, como conectar Excel con Word e insertar texto y muchos ejemplos más.








Código que se inserta en un formulario




Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_MAXIMIZEBOX As Long = &H10000
Private Const GWL_STYLE As Long = (-16)
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const vbMinimizedNoFocus = 6
Dim Handle As Long

Private Sub CommandButton1_Click()
ShowWindow Handle, vbMinimizedNoFocus
End Sub
Private Sub UserForm_Activate()
ShowWindow Handle, vbMinimizedNoFocus
End Sub

Private Sub UserForm_Initialize()
    Dim lngMyHandle As Long, lngCurrentStyle As Long, lngNewStyle As Long
    If Application.Version < 9 Then
        lngMyHandle = FindWindow("THUNDERXFRAME", Me.Caption)
    Else
        lngMyHandle = FindWindow("THUNDERDFRAME", Me.Caption)
    End If
    lngCurrentStyle = GetWindowLong(lngMyHandle, GWL_STYLE)
    lngNewStyle = lngCurrentStyle Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
    SetWindowLong lngMyHandle, GWL_STYLE, lngNewStyle
Handle = FindWindow(vbNullString, Me.Caption)
End Sub


Código que se inserta en un módulo

Sub muestra()
UserForm1.Show
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.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Tipos de variables en VBA para Excel





En este post te muestro los distintos tipos de variables que existen en VBA y que un programador debe saber. Cuando se esta programando una macro, más de una vez ha dado error, hemos revisado el código una y otra vez no encontrando el error, hasta que por fin nos dimos cuenta que el error está en no declarar bien la variable, por ejemplo si declaramos:

Dim mivariable As Integer

La variable mivariable toma todos los números de filas hasta llegar al final de la tabla, supongamos que la tabla tiene 100.000 filas, cuando la macro  recorra las filas llegará hasta la fila 32.767 y no hasta la fila 100000 y como resultado final obtendremos que solo se procesaron 32.767 en vez de las 100.000 filas.

Puede suceder que se declara una variable tipo Integer y luego se le da el valor de 100.000 por ejemplo; cuando se ejecute la macro dará un error de desbordamiento; este error está provocado por declara mal la variable ya que la variable Integer toma valores entre -32.767 y 32.767, razón por la cual no se procesarán las 100.000 filas del ejemplo planteado o desbordamiento en el segundo ejemplo al otorgar a este tipo de variables un número mayor al aceptado.

Ahora si con el mismo procedimiento declaramos la variable mivariable como:

Dim mivariable As Long

La macro recorrerá todas las filas hasta la 100.000 del ejemplo, la causa que al declarar un tipo distinto de variable se tenga un resultado distinto, es que el tipo de variable long incluye números que van entre -2.147.483.648 y 2.147.483.648; este tipo de variable usa 4 bytes a diferencia de la variable tipo Integer que usa 2 bytes.

Antes de seguir recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, 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.

  

En el cuadro siguiente se muestra cada uno de los tipos de variables que se pueden usar en VBA:


Tipo de Datos
Abreviatura
Memoria requerida
Rango de Valores

Equivalencia con pseudocodigo
Detalles
Integer
(Entero)
%
2 bytes ó 4 bytes según versión
- 32768  a 32767 ó -2.147.483.648 a 2.147.483.647 según versión
Entero
Uso en contadores, control de bucles etc.
Long
(Entero largo)
&
4 bytes ó 8 bytes según versión
- 2147483648   a 2147483647 ó -9,2E+18 a 9,2E+18 según versión
Entero
Igual que integer pero admite un rango más amplio
Single
(Decimal simple)
!
4 bytes
- 3,4·1038
a
3,4·1038
Real
Hasta 6 decimales o más según versión. También admite enteros
Double
(Decimal doble)
#
8 bytes
- 1,79·10308
a
1,79·10308
Real
Hasta 14 decimales o más según versión. También admite enteros
Boolean
(Booleano)
No tiene
2 bytes
True
o
False
Booleano
False es el valor predeterminado y va asociado a cero
String
$
10 bytes + 1 byte por cada carácter
0
a
2·109 caracteres
Alfanumérica
Texto de longitud variable
Variant (Object en otras versiones)
No tiene
Variable
Los del tipo double para números o los del tipo string para texto
No tiene
Admite números enteros, decimales o texto


El vídeo que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlasbuscar en listbox mientras escribes en textboxordenar hojas libro excel por su nombreconectar Excel con Access y muchos ejemplos más.








Código que se inserta en un módulo




Sub TipoString()
Dim mivariable As String, mivar As Boolean, miv As Single
mivariable = 100000
mivar = 100000
miv = 100000
a = Len(mivariable)
b = Len(mivar)
c = Len(miv)
End Sub

Sub TipoBoolean()
Dim mivariable As Boolean
mivariable = 100000

For x = 2 To mivariable
Cells(x, "A") = x
Next x
End Sub

Sub TipoInteger()
Dim mivariable As Integer
mivariable = 100000
For x = 2 To mivariable
Cells(x, "A") = x
Next x
End Sub

Sub TipoLong()
Dim mivariable As Long
mivariable = 100000

For x = 2 To mivariable
Cells(x, "A") = x
Next x
End Sub

Sub TipoVariant()
Dim mivariable As Variant
mivariable = 100000

For x = 2 To mivariable
Cells(x, "A") = x
Next x
End Sub

Sub borra()
Range("A2:A100000").Clear
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.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Como cargar combobox excel con array o matriz





En varios post se mostró como llenar o cargar un combobox de Excel con macro, como por ejemplo combobox que depende de otro combobox y carga datos en textbox, combobox que depende de otro combobox y carga datos en listbox y una serie de ejemplos más que podrás ver y luego descargar.

Recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, 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.


  

El ejemplo lo podrás descargar desde el link del final, cuando abras el archivo observarás un botón para ejecutar la macro de ejemplo, apareciendo un formulario con dos combobox con datos cargados, si presionas ALT + F11 podrás ver la programación del formulario, verás que en el evento del formulario que se realiza al iniciar, se agrega la codificación para que se carguen o rellenen los combobox.

La codificación es muy simple, consiste en crear un arrary o matriz con los datos a cargar y luego aplicar dicha matriz unidimencional a a la propiedad List del Combobox, con ello se consigue cargar el combobox con los datos del array o matriz, aconsejo esta forma de cargar combobox cuando los datos que se requieren en el combobox no son variables, es decir combobobox que contienen SI/NO que normalmente se usa en un formulario o datos que no varían en el tiempo.

No recomiendo esta forma de llenar combobox cuando los datos son por ejemplo: un Listado de Clientes, Proveedores o Listado de Compañias Aseguradoras, que pueden tener constantemente variación, para ello conviene rellenar combobox con "ComboBox1.AddItem", recorriendo las celdas de al columna donde se encuentran los datos y cargando los mismos, ello tiene la ventaja que a pesar que se modifican constantemente siempre se cargan al combobox los datos actualizados al leer las celdas donde están los datos, un ejemplo de este tipo de carga de datos en el combobox encontrarás en llenar combobox y buscar datos.

El vídeo que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlasbuscar en listbox mientras escribes en textboxordenar hojas libro excel por su nombreconectar Excel con Access y muchos ejemplos más.










Código que se inserta en un Formulario




Sub UserForm_Initialize()
ComboBox1.List = Array("SI", "NO")
ComboBox2.List = Array("N Seguro Social", "N de Pasaporte", "N de Cedula", "N de Documento", "N Identifiación de Conducir")
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.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends