Dante Amor

Dante Amor

https://www.youtube.com/@CursosDeExcelyMacros
 5.752K puntos  Ciudad de México, México @aprendemos desde - visto
Preguntar

Respuestas en Visual Basic

Respuesta en y en 1 temas más a

Comparación de datos de dos hojas

H o l a: Te anexo la macro. Al final, las 2 hojas se ordenan por las columnas A, B y D Sub IgualarTablas() 'Por.Dante Amor Application.ScreenUpdating = False Application.StatusBar = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' 'Compara 1...
Respuesta en y en 1 temas más a

Macros excel. Como poner una ruta que funcione en diferentes PC

H o l a: Te anexo las 2 macros actualizadas, para que formen el nombre con lo que tienes en las celdas B4 y B5 de la hoja1. Sub GenerarInforme() 'Generar Pdf de la hoja Informe 'Act.Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("INFORME")...
Respuesta en y en 1 temas más a

No me funciona el botón derecho en excel

Ejecuta la siguiente macro Sub menuhoja() Application.CommandBars("Ply").Enabled = True End Sub Sigue las Instrucciones para ejecutar la macro Abre tu archivo de excelPara abrir Vba-macros y poder pegar la macro, Presiona Alt + F11En el menú elige...
Respuesta en y en 2 temas más a

¿Cómo buscar siguiente valor vba?

Puede ser así. Lo que hace es brincarse el primer valor encontrado y borrar los siguientes. 'Por. Dante Amor una = True Set h = Sheets("Empleador") Set r = h.Columns("A") Set b = r.Find(ComboBox1, lookat:=xlWhole) If Not b Is Nothing Then celda =...
Respuesta en y en 2 temas más a

Obtener valores únicos en fila de excel

H o l a: Para hacer la macro, me puedes decir lo siguiente: Nombre de la hoja que contiene los datosNombre de la hoja destinoFila de encabezadosColumna de documentosColumna de nombresColumna donde empiezan los teléfonos
Respuesta en y en 2 temas más a

Como ejecutar macro especifica en ActiveSheet en cada hoja del archivo de excel.

Te anexo la macro con las actualizaciones Sub WorksheetLoop2() ' Declare Current as a worksheet object variable. Dim Current As Worksheet ' Loop through all of the worksheets in the active workbook. For Each Current In Worksheets Dim attBook$ attBook...
Respuesta en y en 2 temas más a

Macro para colocar bordes a filas

H o l a: Quita esta línea de tu macro hm.UsedRange.Borders.LineStyle = xlContinuous Pon las siguiente líneas después del Next u = hm.Range("A" & Rows.Count).End(xlUp).Row hm.Range("A1:I" & u).Borders.LineStyle = xlContinuous'S aludos. Dante Amor....
Respuesta en y en 1 temas más a

Macro para adjuntar un archivo a un correo de outlook ya creado

H o l a : Lo más simple es que pongas los dos archivos al momento de ejecutar la macro. Asigna la siguiente macro a tu botón que vas a poner en cada hoja: Sub EnviarCorreo() nuevo = CreateObject("Outlook.application") Dim mensaje As Outlook.MailItem...
Respuesta en y en 1 temas más a

Cambiar el fondo de celda

H o l a: No me quedan claras las condiciones. En tu ejemplo, en la columna B, solamente tienes una celda vacía. Entonces todas las celdas de la columna C van sin color. Qué pasa en este caso: A B C 1 4949 2 1 4949 El número 4949 está duplicado, el...
Respuesta en y en 2 temas más a

¿Cómo grabar varias macros que ejecuten filtros avanzados en la misma hoja que cuando ejecute una no me elimine las de abajo?

En las macros tienes que delimitar el rango de cada tabla, por ejemplo, en la siguiente macro mi tabla1 abarca desde la celda A1 hasta la D7, la tabla2 A12:D18, si pones ese rango en cada línea de la macro, el filtro no borrará los datos de las...