Saltar al contenido
PROGRAMAR EN VBA MACROS DE EXCEL

Las 1000 mejores Macros en Excel, Textbox, Combobox Listbox, Envio Whatsapp, Mail y Mucho Mas #254

Mejores macros en excel descargar download
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 en Excel y cada semana se irán publicando más por lo que te aconsejo descargues en forma periódica una actualización con los links.
 
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.

Contenido de Las 1000 mejores Macros en Excel

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 mientras se escribe, 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 macros en excel, 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 donar para sostenimiento de la Web, hazlo por favor, es bienvenida; no obstante si no puedes, no importa; las macros son entregadas en forma GRATUITA para todos.

Descubre como Enviar Whattsapp con Excel es uno de las cientos de Macros GRATIS

Suscribete a nuestro Blog y Canal de YouTube

Te solicitó que suscribas a nuestra web ingresando tu mail en el formulario cuando ingresas 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.

Contenido del canal You Yube asociado a Macros en Excel 

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 desde Excel

Trabajando con hojas de Excel

Trabajando con imágenes en Excel

Imprimir en Excel

Conectar Excel con Access 

Funciones de VBA Macros de Excel

Seleccionar o referenciar celdas en Excel VBA

Busqueda de datos en Excel

Conectar Excel con Word

Formularios de Excel

Crear Link en Excel

Importar Exportar en Excel a TXT

Listbox de Excel VBA

Como Usar WorksheetFunction en Excel

Textbox de Excel

Modificar Ribbon o Menu

Formatos de Excel VBA

Excel Cadenas de Caracteres Texto o String

Conectar Excel Con Excel Sentencias SQL

Envio de Whatsapp desde Excel

Excel Exportar Filtro por Cliente y Rango Fechas

Eliminar Filas Excel en Base a Criterios

Macros Excel Para Principiantes

   

Código de VBA que continen el libro Las 1000 mejores Macros de Excel

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      

Summary
Author Rating
1star1star1star1star1star
Aggregate Rating
3 based on 12 votes