Dante Amor

- Entra a formato condicional. - Selecciona la opción "Utilice una fórmula que determine las celdas para aplicar formato". - En el campo: "Dar formato a los valores donde esta fórmula sea verdadera:" - Pon la siguiente fórmula:...

Prueba lo siguiente: For Each i In h.Range("I1", h.Range("I" & Rows.Count).End(3)) Next

Por ejemplo si quieres aplicar en las columnas D a E, de la G a la I y solamente la K y la M. Utiliza lo siguiente: If Not Application.Intersect(Target, xRng, Range("D:E, G:I, K:K, M:M")) Is Nothing Then

"Lo que busco es ya no limpiar las celdas en el rango h3:jd39" Para eso, elimina estas líneas de la macro: Range("H3:JD39").Select Selection. ClearContents "QUE SE APLIQUE SOBRE LOS DOS ULTIMOS REGISTROS DE LA COLUMA B EL ULTIMO Y EL ANTERIOR" Para...

No sé a qué te refieres con "pase a ON", puedes explicarlo. Te paso el código para poner el texto, habilitar el label1 y hacerlo visible. Private Sub UserForm_Activate() If Range("B2").Interior.Color = vbYellow Then With Label1 .Caption = "BAJO...

Debes ser más específico con los ejemplos y con la información. Nombres de archivos, de carpetas, de hojas, cuáles columnas y filas copiar, en dónde las quieres pegar, etc, etc.

Puedes poner la macro. La imagen de cómo están tus datos Y otra imagen con el resultado que quieres.

[Ho la y bienvenido a TodoExpertos! Pon aquí tu macro completa. Utiliza el icono para inserta código. Ejemplo: sub prueba() Sheets("IMPRESION").Cells.RowHeight = 9.75 end sub

Gracias por el excelente aporte

¿El código que tú utilizas es VBA para excel? Puedes compartir tu archivo en google drive o enviármelo con unos ejemplos. Mi correo: [email protected] Describe el procedimiento que tú realizas para reproducir el error.