Las 1000 mejores Macros en Excel, Textbox, Combobox Listbox, Envio Whatsapp, Mail y Mucho Mas #254
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.
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 ayudaa 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.
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.
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.