Jaime Segura

Creo entender de tus afirmaciones que en la columna B y C... ¿aparezcan los artículos y marcas que tienen que ser "leídos" (de manera inteligente) de la columna D? Si es asi... perfecto... Necesitas sin embargo crear un "glosario" o "diccionario" de...

Tienes dos maneras 1) PRIMERA Agregando com primera linea de tu macro Application.Calculation= xlCalculationManual y como úiltima línea Application.Calculation= xlCalculationAutomatic Eso hará que todo el proceso se haga sin ir actualizando los...

Dos preguntas: 1) ¿Qué es para ti una tabla? Si una tabla es una cuadro al que le llamas tabla porque tiene un aspecto a tabla, entonces lo único que hay que hacer escribir la información... después de lo que ya esté en la tabla... y quizás debas...

Pues si ambas macros no interfieren uno con la otra bastaría con copiar el código de una dentro de la otra... (solo el código no la línea Sub ni la línea End Sub) Por ultimo veo una línea que llama a otra macro... que no se exactamente que hace...

Aquí hay un link con un código que creo hace lo que pides.. ten en cuenta la observación sobre solo usar colores de la paleta... Si al cambiar el color, y con F9 no se actualiza inserta la línea Application. Volatile en el código de la función Link

Aquí hay un código que selecciona la primera celda visible de la columna C que esté debajo de la fila 7. Adáptala a tu macro Sub selecciona() Dim col As String, f As Long col = "C" f = 7 Do f = f + 1 Loop Until Range(col & f).EntireRow.Height > 0...

Selecciona celda, y en el combobox de formatos elige la última opción: Más formatos de número Luego en el cuadro, elige Moneda, y allí tendrás la opción para buscar el país, y configurar lo que necesitas.

Importa la tabla CSV usando Query... que al importar los datos generará una "tabla de Excel". Con esa tabla generas la tabla dinámica y listo... Si configuras el query para que se actualice automáticamente cuando se abra el archivo... el trabajo...

No pongas el Sub Direcccion() ni el End Sub.... Enum no debe estar en una subrutina, es una definición a nivel de módulo... va arriba antes de todo

Para que se dibujen los cuadros agrega: Como segunda línea del código Dim rango As range, i as integer y casi al final, antes de la linea de Msgbox "Terminado": Set rango = Range("A8:M" & h3.Range("B" & Rows.Count).End(xlUp).Row) For i = 7 To 12 With...