PROGRAMAR EN VBA MACROS DE EXCEL: Tutoriales
Mostrando las entradas con la etiqueta Tutoriales. Mostrar todas las entradas
Mostrando las entradas con la etiqueta Tutoriales. Mostrar todas las entradas

Listado e Imagenes de Iconos que Hay en Menus Barras Ribbon de Excel





Para poder agregar íconos que permitan asignarles macros, se necesita saber cual es el nombre específico de cada ícono que compone las distintas barras de menús ribbon de Excel.

Desde el final del post se puede descargar el ejemplo en forma gratuita sin ninguna restricción, el código se puede adaptar a cada necesidad, Aporta por favor para sostener el sitio si está dentro de tus posibilidades, desde ya muchas gracias.

Si te estás iniciando en la operación de Excel o requieres afirmar conocimientos, 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 vídeo verás la macro en acción con una explicación más detallada de su codificación y funcionamiento, 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 Recorre fila buscando y comparando datos de dos columnas en hojas distintasbuscar en listbox mientras escribes en textbox, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mail, trabajando con filas, celdas, columnas, rangos y muchos ejemplos más.







  



Desde el final se puede descargar el archivo ZIP que contiene un archivo de Excel y otro de Word, desde el archivo de Excel se puede abrir el archivo de Word, es un archivo que contiene todos los nombre e íconos que contiene Excel, se verá como la imagen siguiente


⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
Quizá sea de utilidad también

Como enviar mail desde Excel adjuntando PDF


Como enviar mail con archivo Excel y PDF mediante Outlook con Excel

Formulario de VBA para insertar datos

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛



⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛

Es preciso mencionar que el archivo de Word está un poco modificado ya que al abrir el fichero se podrá observar en el menú archivo dos menús agregados uno se llama "ImageMso 0" y "ImageMso 1" haciendo click en dichos menús se pueden ver los íconos que componen Excel.


Código que se inserta en un módulo

#If VBA7 And Win64 Then
    'Si es de 64 bits
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
            ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
            ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
#Else
    'Si es de 32 bits
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                                          ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
                                          ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If

Sub Muestra(control As IRibbonControl)
    MsgBox "suscribe a https://youtube.com/programarexcel" & Chr(10) & Chr(10) & "visita https://programarexcel.com"
End Sub

Sub ejecuta()
ruta = ActiveWorkbook.Path & "\Office2010IconsGallery.docx"
lngErr = ShellExecute(0, "OPEN", ruta, "", "", 0)
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      

Listado de Comandos de Excel que Hay en Menus Barras Ribbon






Para poder modificar la barra de menú, cinta de opciones o ribbon, es preciso saber cual es el nombre del comando, barra, menú, grupo, subgrupo que integran las distintas barras o ribbon de Excel.

Sabiendo el nombre correcto se podrá inhabilitar, agregar un botón en determinada barra, grupo, subgrupo, etc.

Desde el final del post se puede descargar el ejemplo en forma gratuita sin ninguna restricción, el código se puede adaptar a cada necesidad, Aporta por favor para sostener el sitio si está dentro de tus posibilidades, desde ya muchas gracias.

Si te estás iniciando en la operación de Excel o requieres afirmar conocimientos, 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 vídeo verás la macro en acción con una explicación más detallada de su codificación y funcionamiento, 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 Recorre fila buscando y comparando datos de dos columnas en hojas distintasbuscar en listbox mientras escribes en textbox, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mail, trabajando con filas, celdas, columnas, rangos y muchos ejemplos más.







  


Primero descargar el archivo comprimido ZIP, descomprimir guardando en cualquier directorio, pero juntos, se descargarán dos archivos de Excel uno con la macro que permite abrir el otro archivo de Excel que contiene el listado de todos los comandos, menú, barras, etc. que integran un Libro de Excel.

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
Quizá sea de utilidad también

Como enviar mail desde Excel adjuntando PDF


Como enviar mail con archivo Excel y PDF mediante Outlook con Excel

Formulario de VBA para insertar datos

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛



⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛

El archivo es compatible con Office de 32 y 64 bits, la imagen a continuación muestra como se verá el archivo de Excel con el listado de menús, comandos, etc. que integran un Archivo de Excel, es importante para saber el nombre correcto del comando cuando se requiera modificar la programación XML del fichero.



Saber el nombre del comando, permitirá referenciar en forma correcta al comando o menú que se requiera modificar eliminar, inhabilitar, etc. y se verá en post posteriores, sugiero suscribir al blog desde la parte superior derecha o al canal de you tube para puedan recibir un aviso cuando se publique un ejemplo nuevo.


Código que se inserta en un módulo

#If VBA7 And Win64 Then
    'Si es de 64 bits
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
            ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
            ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
#Else
    'Si es de 32 bits
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                                          ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
                                          ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If

Sub Muestra(control As IRibbonControl)
    MsgBox "suscribe a https://youtube.com/programarexcel" & Chr(10) & Chr(10) & "visita https://programarexcel.com"
End Sub

Sub ejecuta()
ruta = ActiveWorkbook.Path & "\excelcontrols.xlsx"
lngErr = ShellExecute(0, "OPEN", ruta, "", "", 0)
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 Usar el Editor XML Para Modificar Ribbon o Menu





Para modificar la barra de menú de Excel o Ribbon, se necesita modificar la programación XML del Libro de Excel en el cual deseamos modificar la barra de Menu de Excel, Cinta de Opciones o Ribbon.

Desde el final del post se puede descargar el ejemplo en forma gratuita como así también el Editor de XML que es un software de uso libre, el código se puede adaptar a cada necesidad, Aporta por favor para sostener el sitio si está dentro de tus posibilidades, desde ya muchas gracias.

Si te estás iniciando en la operación de Excel o requieres afirmar conocimientos, 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 vídeo verás la macro en acción con una explicación más detallada de su codificación y funcionamiento, 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 Recorre fila buscando y comparando datos de dos columnas en hojas distintasbuscar en listbox mientras escribes en textbox, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mail, trabajando con filas, celdas, columnas, rangos y muchos ejemplos más.







  


En este post se muestra como usar el Editor de XML, algo que nos ayudará a poder modificar la programación XML del Libro de Excel en el cual queramos modificar la Barra de Menú de Excel, Cinta de Opciones o Ribbon.

Al descargar el archivo ZIP y descomprimir, se verá un archivo de Excel y un archivo ejecutable que contiene el editor de XML, precisamente se denomina "Custom UI Editor For Microsoft Office", descargar los dos archivos y guardarlos en el mismo directorio, posteriormente desde el libro de Excel al presionar el botón se puede ejecuta una macro que instala el Editor en nuestra PC, es un archivo muy chiquito que prácticamente nos ocupará espacio ni recursos; sirve para poder editar la programación XLM de los Libros de Excel, modificando dicha programación se podrán modificar las barras de menú, cinta de opciones o ribbon de Excel.


⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛
Quizá sea de utilidad también

Como enviar mail desde Excel adjuntando PDF


Como enviar mail con archivo Excel y PDF mediante Outlook con Excel

Formulario de VBA para insertar datos

⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛



⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛⇛

La imagen siguiente muestra como se verá al ejecutar el Editor de XML, para editar un archivo y poder modificar las barras de menú, cinta de opciones o ribbon de Excel, ya sea agregando botones quitando o deshabilitando opciones.



Se debe presionar File para abrir un archivo, se muestra un Explorador de Archivos de Windows para para abrir el fichero que deseamos modificar, presionamos Insert para escribir el código XML correspondiente para modificar las barras de menú, cinta de opciones o ribbon de Excel, para archivos de Excel de 2010 en adelante se debe seleccionar, "Insert", luego "Office 2010 Custom UI Part" o "Office 2007 Custom UI Part" para ficheros de Excel 2007.

En el espacio destinado a escribir el código se escribe lo necesario para lograr la modificación que se requiera, por ejemplo el código siguiente permite agregar un botón al menú que será explicado más adelante:

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon>
    <tabs>

      <tab idMso="TabHome" >
        <group id="customGroup1" label="Programar Excel" insertAfterMso="GroupEditingExcel">

          <button id="customButton1" label="Macro" size="large"
onAction="Muestra" imageMso="GroupTrack" />
        </group>
      </tab>

    </tabs>
  </ribbon>
</customUI>


Código que se inserta en un módulo

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) _
As Long
Sub Muestra(control As IRibbonControl)
    MsgBox "suscribe a https://youtube.com/programarexcel" & Chr(10) & Chr(10) & "visita https://programarexcel.com"
End Sub

Sub ejecuta()
ruta = ActiveWorkbook.Path & "\OfficeCustomUIEditorSetup.msi"
lngErr = ShellExecute(0, "OPEN", ruta, "", "", 0)
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 continuar con el desarrollo del presente post, 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      

Las 1000 mejores macros de excel textbox combobox listbox





El titulo es una aspiración a la que se llegará dentro de poco, no obstante te regalo este Libro de Excel que contiene cientos de ejemplos de Macros de Excel que trabajan con Textbox, Combobox, Listbox, Userform, Formularios de Excel, Celdas, Rangos, Filas, Columnas, Hojas de Libro Excel, Archivos de Excel, Carpetas, Ficheros, Explorador de Archivos de Windows, Creación de Archivos PDF, Envio de Mails con Excel, WorksheetFunction, Funciones de Excel, Gráficos de Excel y mucho más.

El libro con las mejores macros de Excel contiene su respectivo link al post y al tutorial en YouTube, donde veras la macro en acción y una explicación visual de lo que realiza cada procedimiento de VBA listado.

Previo a continuar con el presente ejemplo, 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 libro de Excel, que podrás descargar desde el final de este post, encontrarás un buscador integrado a la hoja que te permite buscar por el término que requieras, es decir seleccionas el campo por el que se desea buscar y las palabras buscadas, por ejemplo textbox, combobox, listbox, recorrer filas de libro Excel, bucles, etc., y buscará en el titulo del post de cada macro, que describe en forma breve la acción que realiza el procedimiento de VBA o código contenido en la macro.

Este libro se irá actualizando periódicamente por lo que te recomiendo que descargues la versión actualizada cada cierto período de tiempo, el objetivo es que cuentes con un manual de ayuda a la hora de programar tu macro, automatizar hoja de excel o crear aplicación basada en Excel.

El código en cada ejemplo está abierto sin restricciones, esta disponible para que sea usado por quien lo requiera en forma absolutamente GRATIS, pero ten presente que esta web se sostiene por medio de publicidad y donaciones, si estás en condiciones de hacerla, hazla, es bienvenida; no obstante si no puedes, no importa; las macros son entregadas en forma GRATUITA para todos.

Te solicitó que suscribas a nuestra web desde la parte superior derecha de la página, ingresando tu mail lo podrás hacer y recibirás un aviso en tu correo electrónico cuando se publiquen nuevas macros, que quizás sean de tu interés, será excelente si compartes el post y los vídeos con tus amigos en las redes sociales o das like si fue de tu agrado e instructivo para ti o crees que lo pueda ser para tus contactos.

En nuestro canal de You Tube siempre podrás ver la macro en acción con una explicación en forma visual que ayudará a entender el ejemplo de macro en forma más fácil, solicito te suscribas al canal, mientras más suscriptores haya, será mayor el número de lectores a los cuales les llegará el post y vídeos, beneficiándose con los ejemplos de Macros  de Excel contenidas en el libro, al igual que tu, es por ello solicito te suscribas al canal de YouTube a la Web, compartas los vídeos, post o les des like.

En nuestro canal de YouTube encontrarás ordenada la biblioteca por listas de reproducción, existiendo hasta el momento las siguientes listas:

Tutoriales sobre Excel y VBA
Enviar mail con Excel
Trabajando con hojas
Combobox
Ordenar
Trabajando con archivos
Explorador de Windows
Trabajando celdas filas columnas rangos
Recorrer filas, bucles
Trabajando con imagenes
Imprimir
Conectar Excel con Access
Funciones de VBA
Seleccionar o referenciar celdas
Busqueda de datos
Conectar Excel con Word
Formularios
Hyperlink
Leer archivos TXT
Listbox
WorksheetFunction
Textbox
Modificar Ribbon o Menu
Formatos
Funciones de Excel


Para ejemplificar lo que encontrarás en YouTube te muestro los siguiente vídeos:





   
 


El código de la macro que permite buscar en el libro mientras se escribe en el textbox incrustado en Excel y contendido en el libro que muestra las mejores macros de excel que trabaja con textbox, cobobox, listbox y otros objetos más; seguidamente se muestra:

Código que se inserta en la hoja de excel o worksheet




Private Sub ComboBox1_GotFocus()
Application.ScreenUpdating = False
Dim celda
On Error Resume Next
Sheets("BD URL").ComboBox1 = Clear
For Each celda In Sheets("BD URL").Range("A4:J4")
Sheets("BD URL").ComboBox1.AddItem celda.Value
Next celda
End Sub

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
    Sheets("BD URL").Range("E2").Value = "*" & TextBox1.Text & IIf(TextBox1.Text = "", "", "*")
    Call Searching
End Sub

Private Sub Searching()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
For Each celda In Sheets("BD URL").Range("A4:J4")
If celda = Sheets("BD URL").ComboBox1 Then
Dire = celda.Address
dire1 = celda.Address(False, False)
wc = Mid(Dire, InStr(Dire, "$") + 1, InStr(2, Dire, "$") - 2)
GoTo ir:
End If
Next
ir:
   If Sheets("BD URL").FilterMode = True Then Sheets("BD URL").ShowAllData
    uf = Sheets("BD URL").Range("E" & Cells.Rows.Count).End(xlUp).Row
    Sheets("BD URL").Range(dire1 & ":" & wc & uf).AdvancedFilter Action:=xlFilterInPlace, _
    CriteriaRange:=Sheets("BD URL").Range("E1:E2"), Unique:=False
End Sub


Código que se inserta en un módulo 

Sub quitafiltro()
If Sheets("BD URL").FilterMode = True Then Sheets("BD URL").ShowAllData

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      
4.70/5 – 1379