Dante Amor

Puedes explicar con ejemplos reales lo que tienes y la secuencia de pasos que debe seguirse

Te anexo la macro actualizada Sub copiar_Filas_Color() 'Act Por Dante Amor Set h1 = Sheets("Entradas") 'origen Set h2 = Sheets("extraer") 'destino If h1.AutoFilterMode Then h1.AutoFilterMode = False u = h1.Range("A" & Rows.Count).End(xlUp).Row...

Tu macro está bien, solamente agrega las líneas para evitar la actualización de la pantalla, prueba con lo siguiente: Sub EliminarFilasYColumnas() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual...

Revisa el siguiente enlace, ahí explico cómo hacer el formato condicional, de esa forma no pierdes los colores. También está la macro. https://www.gerencie.com/iluminar-la-fila-y-la-columna-donde-se-encuentra-la-celda-activa.html Solamente cambia en...

Recién publiqué una respuesta muy similar. Revisa si puedes adaptarlo a 2 libros. O tal vez decidas poner tu información en dos hojas en el mismo libro. Te dejo el enlace: Macro que filtre bace de datos según referencia y copie resultado a otra hoja...

Te propongo lo siguiente, en la hoja 2 en la celda H1 vamos a poner el número de vez, es decir, la primera vez será el 1, luego el 2, y así hasta llegar al 7, cuando llegue a 7, regresará a 1. Prueba la siguiente macro: Sub Copiar_Columna()...

Algo así necesitas: Private Sub CommandButton1_Click() Range("A1") = 230 End Sub ' Private Sub CommandButton2_Click() Range("A1") = 527 End Sub ' Private Sub CommandButton3_Click() Range("A1") = 800 End Sub Y así para cada commandbutton hasta el...

Excel de calcula el mes anterior y año anterior en automático. Solamente tienes que restar al mes de enero un 1, en teoría 1 - 1 es igual a 0, pero excel te calcula 12 y en automático le resta un año a la fecha. Sub fecha_mes_anterior() fecha = Date...

Revisa el siguiente artículo https://www.gerencie.com/enviar-correos-con-condicion-desde-outlook-con-excel.html Cambia en la siguiente línea de la macro por la fecha If Cells(i, "E").Value = "Pendiente" Then Por algo como esto: If Cells(i, "E").Value...

Envíame tu archivo para ver cómo están esos márgenes, también me dices de dónde se van a tomar las imágenes. Pon 2 ó 3 imágenes en los márgenes para ver cómo las quieres. Mi correo [email protected] En el asunto del correo escribe tu nombre de...