Dante Amor

Ya intentaste con la herramienta de excel para obtener subtotales, revisa el siguiente ejemplo: Macro para sumar celdas dependiendo de la numero factura También puedes crear una Tabla dinámica, en la tabla dinámica puedes ver los subtotales y el...

Puedes poner en un arreglo todos los que son diferentes a "casa", "coche", "camión" y después filtrar con el arreglo resultante: Sub filtrar() 'Por Dante Amor 'Filtra las celdas diferentes al arreglo valores ' valores = Array("casa", "coche",...

No tiene problemas, he trabajado con archivos muy grandes y las macros siguen funcionando bien. Puedes tener la confianza de que todo funcionará bien.

Me puedes comentar a qué te refieres con dar "Enter" Haber si te refieres a esto: En excel para ejecutar una macro en automático se tiene que activar un evento en la hoja, los eventos pueden ser: - Seleccionar una celda - Modificar una celda -...

Puede ser de esta forma: Private Sub AGREGAR_Click() Dim fila As Integer fila = 1 While Cells(fila, 1) <> "" fila = fila + 1 Wend 'VALIDACIONES If IdTienda.Value = "" Then MsgBox "Error, El Campo IdTienda es Obligatorio" Exit Sub End If If...

Puedes poner el código que estás utilizando y una imagen de cómo están tus datos en la hoja ¿Y el problema es el segundo combo o en el listbox? Explica con ejemplos qué tienes y qué debe aparecer al seleccionar el primer nombre

Puede ser sin utilizar for: Sub Macro2() ua = Range("A" & Rows.Count).End(xlUp).Row ud = Range("D" & Rows.Count).End(xlUp).Row With Range("E2:E" & ud) .FormulaR1C1 = _ "=IF(SUMPRODUCT(MAX((R2C1:R" & ua & "C1=RC4)*(R2C2:R" & ua & "C2>R2C8)*(R2C2:R" &...

Te anexo la macro actualizada para crear una hoja por cada archivo txt Sub Macro2() 'Por Dante Amor 'Importar Archivo txt ' Application.ScreenUpdating = False Set l1 = ThisWorkbook 'ruta = "c:\trabajo\" 'carpeta ruta =...

Puedes utilizar la herramienta de excel para obtener Subtotales. Realiza lo siguiente: - Selecciona tus datos. - Entra al Menú Datos - En la ficha Esquema presiona el botón Subtotales - En el campo Para cada cambio en: selecciona Factura - En el...

Ya probé tu macro y puse 2 textbox En el textbox FechaInicio puse: 31/10/2018 12:30 Y en el TextBox3 puse: 31/10/2018 15:30 Ejecuté tu macro y me creó la cita. En tu macro cambié esta línea .End = DateSerial(2018, 10, 30) + TimeSerial(9, 36, 0) Por...