Como agregar a listbox cabecera de campo o header con Rowsource





Cuando se trabaja con listbox, por lo general es preciso mostrar en un listbox los datos de la cabecera, header o titulos de la columna, es decir los titulos de la columna con los datos que se listan, esto no se puede configurar directamente en las propiedades del listbox, para salvar este inconveniente, se puede utilizar la propiedad Rowsource (origen de filas) o una macro que nos permita agregar el titulo, cabecera o header de las columnas con los datos listados.

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 se podrá observar un botón, presionando el mismo se ejecuta una macro que permite mostrar un formulario con listbox con datos listados, pudiendo observar que el listbox contiene el titulo de cada columna, cabecera o header, también el ejemplo contiene un buscador que busca a medida que se escribe en textbox.

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




Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next
If KeyAscii = 13 Then
Set a = Sheets("Hoja1")
filaedit = a.Range("A" & Rows.Count).End(xlUp).Row + 1
fila = Me.ListBox1.ListIndex
a.Cells(filaedit, "A") = ListBox1.List(fila, 0)
a.Cells(filaedit, "B") = ListBox1.List(fila, 1)
a.Cells(filaedit, "C") = ListBox1.List(fila, 2)
a.Cells(filaedit, "D") = ListBox1.List(fila, 3)
a.Cells(filaedit, "E") = ListBox1.List(fila, 4)
a.Cells(filaedit, "F") = ListBox1.List(fila, 5)
a.Cells(filaedit, "G") = ListBox1.List(fila, 6)
a.Cells(filaedit, "H") = ListBox1.List(fila, 7)
End If
End Sub

Private Sub TextBox1_Change()
On Error Resume Next
Set b = Sheets("Hoja2")
uf = b.Range("A" & Rows.Count).End(xlUp).Row
If Trim(TextBox1.Value) = "" Then
    'Me.ListBox1.List() = b.Range("A2:H" & uf).Value
     Me.ListBox1.RowSource = "Hoja2!A2:H" & uf
   Exit Sub
End If
b.AutoFilterMode = False
Me.ListBox1 = Clear
Me.ListBox1.RowSource = Clear
For i = 2 To uf
   strg = b.Cells(i, 3).Value
   If UCase(strg) Like UCase(TextBox1.Value) & "*" Then
       Me.ListBox1.AddItem b.Cells(i, 1)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = b.Cells(i, 2)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = b.Cells(i, 3)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = b.Cells(i, 4)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = b.Cells(i, 5)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = b.Cells(i, 6)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = b.Cells(i, 7)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = b.Cells(i, 8)
   End If
Next i
Me.ListBox1.ColumnWidths = "20 pt;70 pt;180 pt;80 pt;60 pt;60 pt;60 pt;60pt"
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
Set b = Sheets("Hoja2")
uf = b.Range("A" & Rows.Count).End(xlUp).Row
If Trim(TextBox2.Value) = "" Then
    'Me.ListBox1.List() = b.Range("A2:H" & uf).Value
     Me.ListBox1.RowSource = "Hoja2!A2:H" & uf
   Exit Sub
End If
b.AutoFilterMode = False
Me.ListBox1 = Clear
Me.ListBox1.RowSource = Clear

For i = 2 To uf
   strg = b.Cells(i, 4).Value
   If UCase(strg) Like UCase(TextBox2.Value) & "*" Then
       Me.ListBox1.AddItem b.Cells(i, 1)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = b.Cells(i, 2)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = b.Cells(i, 3)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = b.Cells(i, 4)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = b.Cells(i, 5)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = b.Cells(i, 6)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = b.Cells(i, 7)
       Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = b.Cells(i, 8)
   End If
Next i
End Sub

Private Sub UserForm_Initialize()
Dim fila As Long
On Error Resume Next
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set b = Sheets("Hoja2")
uf = b.Range("A" & Rows.Count).End(xlUp).Row
uc = b.Cells(1, Columns.Count).End(xlToLeft).Address
wc = Mid(uc, InStr(uc, "$") + 1, InStr(2, uc, "$") - 2)
With Me.ListBox1
    .ColumnCount = 8
    .ColumnWidths = "20 pt;70 pt;180 pt;80 pt;60 pt;60 pt;60 pt;60pt"
    .RowSource = "Hoja2!A1:" & wc & uf
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error GoTo Fin
If CloseMode <> 1 Then Cancel = True
Fin:
End Sub


Código que se inserta en un módulo

Sub muestra1()
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      

Como cargar datos sin duplicar en un listado





Anteriormente publique un formulario que buscaba un dato cargado en un formulario en la base de datos en caso de estar duplicado no agregaba el dato, en esta oportunidad expongo una variante, donde al cargar un dato lo busca en la base de datos y si esta duplicado no lo carga, o dicho de otra forma solo carga datos únicos sin duplicar. La diferencia con el anterior es que no existe formulario sino que directamente detecta la actualización de la celda y automáticamente verifica la existencia del dato en la base de datos.


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.


  

Primero, invito a descargar el archivo en forma gratuita desde el final del post, descargado éste, encontrarás, en la Hoja2 la base de datos con listado de COMPAÑIAS ASEGURADORAS, donde se buscará el dato a cargar, en la Hoja1 en la columna A se irán escribiendo el nombre de COMPAÑÍAS ASEGURADORAS, si el nombre de la ASEGURADORA ya está cargado en la base de datos no guardará el dato escrito en la columna A, saliendo un mensaje.

Para ver el funcionamiento de la macro en el rango D1:D4 existen COMPAÑÍAS ASEGURADORAS que ya están cargadas en la base de datos y en el rango D8:D12 hay COMPAÑÍAS ASEGURADORAS que no están el la base de datos.

Si escribimos en cualquier celda de la columna A, la macro verificará en la base de datos la existencia o no del dato cargado, en caso de existir el dato sale un mensaje avisando y no carga el dato, si el dato existe directamente lo guarda, pudiendo verificar si se guardó el dato en la Hoja2, en resumen la macro enseña como cargar datos sin duplicar en un listado.

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 WorkSheet Hoja1





Private Sub Worksheet_Change(ByVal Target As Range)
Dim pf As Long, uf As Long
Dim r As String
If Target.Column = 1 And Target.Row > 1 Then
Set b = Sheets("Hoja2")
pf = 2
uf = b.Range("A" & Rows.Count).End(xlUp).Row
r = "B" & pf & ":B" & uf
busco = Cells(Target.Row, Target.Column)
Set codigo = b.Range(r).Find(busco, LookIn:=xlValues, LookAt:=xlWhole)
If Not codigo Is Nothing Then
MsgBox ("Dato Duplicado no se guardará en la base de datos"), vbCritical, "AVISO"
Cells(Target.Row, Target.Column).Clear
Cells(Target.Row, Target.Column).Activate
Exit Sub
End If
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 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