<script>window._epn = {campaign: 5338268029};</script> <script src=«https://epnt.ebay.com/static/epn-smart-tools.js»></script>
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.
Formatos Fecha y Hora Excel Conectar Excel y Access Enviar Mail con Excel Seleccionar o Referencia en VBA Excel
Contenido de Las 1000 mejores Macros en Excel
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.
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:
Trabajando con imágenes en Excel
Funciones de VBA Macros de Excel
Seleccionar o referenciar celdas en Excel VBA
Importar Exportar en Excel a TXT
Como Usar WorksheetFunction en Excel
Excel Cadenas de Caracteres Texto o String
Conectar Excel Con Excel Sentencias SQL
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
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
