Dante Amor

H o l a: Te anexo la macro Sub PonerColor() 'Por.Dante Amor For i = 1 To Range("E" & Rows.Count).End(xlUp) If Cells(i, "E") > 0 And Cells(i, "E") < 45 Then Cells(i, "E").Interior.ColorIndex = 46 End If Next MsgBox "Fin" End Sub:) ;)

H o l a: Envíame dos archivos, el archivo 12345.xlsx y el archivo de control En color verde pon los datos del archivo 12345.xlsx para saber de dónde tengo que tomar los datos. También, en el archivo de control, pon en color verde los datos que...

H o l a: Te anexo la macro, cambia en la macro "destino" por el nombre de tu hoja que va a recibir la información. Sub CopiaRango() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("destino") j = 3 For Each h In Sheets If h.Name <>...

H o l a: Te anexo la macro actualizada. Sub CopiarCeldas() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Worksheets("FACTURA") 'hoja origen Set h2 = Worksheets("INGRESOS") 'hoja destino c1 = "D17" 'cedlda origen c2 = "C" 'columna...

H o l a: Utiliza la siguiente: Application.Windows("nombre libro").Visible = False:) S aludos. D a n t e A m o r. Recuerda valorar la respuesta. G r a c i a s ;)

H o l a: Puedes poner un par de imágenes, imagen 1 de la hoja que tiene los datos a copiar y la imagen 2 de la otra hoja en donde hay que pegar. O explícame con ejemplos lo que necesitas, es decir, quieres copiar el rango B2:B5 de la hoja1 y lo...

H o l a: Te anexo la macro actualizada para leer los clientes Activos, entonces la macro solamente se ejecutará en las hojas donde el cliente esté "Activo". Cambia en la macro "Clientes" por el nombre de tu hoja que tiene la lista de clientes, cambia...

H o l a: Se puede leer la información de un libro cerrado, pero no puedes escribir en un libro cerrado. Entonces te recomiendo que tengas los 2 libros abiertos para que puedas leer y escribir en los libros. Si quieres que te ayude con la macro, pon...

H o l a: En tu macro estás indicando 2 rutas y solamente tienes que poner una. ¿Dime qué tienes en las celdas B1 y N1? Si estás armando la ruta con lo que tienes en las celdas B1 y N1, debería ser así: ruta = Sheets("SEGUIM1ENTO").Range("b1") &...

H o l a: Puedes enviarme tu archivo, para revisar cómo tienes los botones. Me dices cuál botón de opción tiene que apretarse para activar cuál botón de macro. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Paz...