Dante Amor

Dante Amor

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

Respuestas en Programación

Respuesta en y en 2 temas más a

Foliar hojas con macro en excel suya

Puedes crear un userform con 3 textbox y commandbutton, por ejemplo: Instrucciones para crear un UserForm Abre tu hoja de excelPara abrir Vba-macros y poder pegar la macro, Presiona Alt + F11En el menú elige Insertar / UserFormEn el panel del...
Respuesta en y en 2 temas más a

Macro para asignar tareas a usuarios de outlook

En la siguiente respuesta están los parámetros para crear una Tarea en Outlook, reemplaza las celdas por los controles de tu userform Importar tareas de Excel a Outlook Por ejemplo: Set Tarea =...
Respuesta en y en 3 temas más a

Error 438 en tiempo de ejecución en macro

En la versión 2003 no puedes guardar como PDF, a menos que hayas instalado los complementos de office 2007 o que tengas la versión completa de Adobe Acrobat. Prueba lo siguiente, en tu archivo 2003, guarda el archivo de excel como y revisa si tienes...
Respuesta en y en 2 temas más a

Macro de Excel para automatizar tarea repetitiva

Te anexo la macro. Debes mantener los libros A y B abiertos. Pon la macro en el libro A. Cambia en la macro "Libro B.xlsx" por el nombre de tu libro B. La macro revisará si puede abrir el libro C, si no puede abrir el libro te pondrá un mensaje en la...
Respuesta en y en 2 temas más a

¿Cómo contar valores con más de un criterio de coincidencia?

Por tú código supongo lo siguiente: En la columna "A" están los proyectos En la "I" los puestos En la "J" el tipo. En el combobox1 tienes las claves de proyecto. Entonces: Private Sub ComboBox1_Change() Set h = Sheets("Recomendación") cuenta =...
Respuesta en y en 2 temas más a

Macro para agrupar y sumar registros con varios criterios

Te anexo la macro Sub Sumar_Nits() 'Por Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h2.Rows("2:" & Rows.Count).ClearContents u = h1.Range("D" & Rows.Count).End(xlUp).Row k = 2 c1s = Array("E", "G",...
Respuesta en y en 2 temas más a

Macro para copiar datos de una hoja a otra en la fila vacía siguiente

Te anexo la macro Sub Copiar_Datos() 'Por Dante Amor Set h1 = Sheets("origen") 'hoja origen Set h2 = Sheets("destino") 'hoja destino ' u1 = h1.Range("A" & Rows.Count).End(xlUp).Row u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1 h1.Range("A2:A" &...
Respuesta en y en 3 temas más a

Macro para eliminar celdas según criterio de una celda

Pon la siguiente macro en los eventos de tu hoja "OPCIONES" Private Sub Worksheet_Change(ByVal Target As Range) 'Por Dante Amor 'Cada que selecciones SI en la celda C14 que se eliminen las filas 66 a 83 ' If Not Intersect(Target, Range("C14")) Is...
Respuesta en y en 2 temas más a

¿Por qué la macro no carga todas las columnas y filas de una consulta en un listbox?

Revisa las siguientes respuestas: Codigo VBA para un Listbox con mas de 10 columnas Tengo un Listbox con 20 columnas pero sólo me muestra 10 También busca mis ejemplos para cargar con rowsource: Filtro avanzado en celdas con fórmulas Filtrar por...
Respuesta en y en 2 temas más a

TextBox con valor para condicion IF

Prueba con lo siguiente: If Val(TextBox1.Value) > 1 Then rutina End If [sal u dos