Dante Amor

Revisa mi artículo https://www.gerencie.com/enviar-varias-hojas-de-un-libro-de-excel-a-imprimir-o-archivo.html Ahí puedes descargar el archivo de ejemplo.

Te explico lo que hace cada línea. Primero, como bien comentas, esta línea, lo que hace es ocultar todas las columnas desde la B y hasta la NI Columns("B:NI"). Hidden = True Para explicar la siguiente línea, debes visualizar que los días de cada mes...

Según tu imagen, puedes explicar qué datos buscarías y qué datos esperas como resultado.

Si la macro las vas a ejecutar después de filtrar los datos, entonces quedaría así: Dim valor As Integer valor = 1 For i = 11 To hs.Range("B" & Rows.Count).End(xlUp).Row If hs.Rows(i).EntireRow.Hidden = False Then hs.Range("A" & i).Value = valor...

Como ya pudiste observar en esta pregunta ¿Cómo colocar tamaño de fuente y negrita dentro de la función concatenar? No es posible poner en negritas el resultado de una fórmula, en tu caso, supongo que tienes la fórmula concatenar. Lo que tienes que...

Puedes poner los dos códigos indicando cuál es el que tarda 10 minutos. También si pudieras poner una imagen de la hoja con datos de ejemplo, procura que en la imagen se vean las filas y las columnas.

¿Pero el listbox cómo fue llenado? Dónde están los datos, en cuál hoja, ¿en cuál columna? Si en el listbox hay 8 datos, cuáles 8 datos de la columna se deben eliminar, los primeros 8, los de en medio, los últimos 8. Puedes explicar todo lo que...

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

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...

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" &...