Dante Amor

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.

Borraste la pregunta para eliminar duplicados. Terminé la macro y cuando regresé a poner la respuesta ya no existía la respuesta. Te anexo aquí la macro, para eliminar los duplicados, cuando en la misma celda tienes el nombre_del_archivo espacio...

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

El cambio lo tienes que hacer en la macro Unir_Hojas. Te anexo la macro actualizada: Sub Unir_Hojas() Dim Sig As Byte, Eliminar As Boolean For Sig = 2 To Worksheets.Count u = Worksheets(Sig).UsedRange.Rows(Worksheets(Sig).UsedRange.Rows.Count).Row u2...

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.

Tendría que ser con una macro. ¿Quieres qué te prepare la macro? ¿Es para una sola celda o es para varias celdas?

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

Prueba con lo siguiente: Cambia estas líneas With Sheets("ValeCompras") .Range("A12:D12").Offset(row_LB).Delete xlShiftUp ' .Range("A27:D27").EntireRow.Insert End With Por estas: With Sheets("ValeCompras") .Range("A12:D12").Offset(row_LB).Delete...