Dante Amor

H o l a: Te anexo la macro, actualiza los nombres correctos: La macro busca en el libro "B", en la hoja "Hoja1" en la columna "A" Sub BuscarPintarRojo() 'Por.Dante Amor Set l1 = ThisWorkbook Set h1 = l1.Sheets("Hoja1") 'nombre de la hoja Set l2 =...

H o l a: Ejecuta la siguiente macro en el libro "Solicitud de grupo AD". El libro "base latam - copia" deberá estar abierto. Sub CopiarBP() 'Por.Dante Amor Set l1 = ThisWorkbook Set l2 = Workbooks("base latam - copia.xlsx") Set h2 = l2.Sheets(1) For...

H o l a: Si utilizas reemplazar, selecciona la columna, presiona Control + L, En Buscar: "BP " (después de la BP va un espacio) En Reemplazar con: (debe quedar vacío) Presiona Reemplazar todos. En la columna te quedarán solamente números. ' S a l u d...

H o l a : No estoy entendiendo bien lo que quieres. 1. ¿Tienes 2 libros? ¿O solamente un libro? 2. Los datos de las celdas A1, ¿C1 y F1 están en el mismo libro o están en otro libro? 3. Sí se puede guardar el archivo antes de imprimir. ¿Así es cómo...

H o l a: Y qué necesitas poner en la celda, la fórmula o el resultado de la fórmula, porque si vas a utilizar una macro, entonces que la macro obtenga el resultado y que de una vez te lo ponga en la celda. Envíame tu archivo y me explicas con colores...

H o l a: Me puedes comentar si las fechas van a ser fechas o van a ser textos, ¿en ambas hojas?

H o l a: Te anexo la macro Sub CopiarDatos2() 'Por.Dante Amor Set h1 = Sheets("Registro_Procedimiento") Set h2 = Sheets("AC") Set h3 = Sheets("constantes") u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1 h2.Cells(u, "B") = "'682760382901"...

H o l a: Si solamente te sucede con ese libro, puede ser que esté dañado el libro o alguna de sus hojas, te sugiero que abras el libro y copies los datos de una hoja en un libro nuevo, pero copia los datos, no copies la hoja, es decir, selecciona el...

H o l a: Te anexo la macro Sub Fechas() 'Por.Dante Amor Set h1 = Sheets("AF") Set h2 = Sheets("AP") h1.Range("H2") = Application.Min(h2.Range("E2:E" & h2.Range("E" & Rows.Count).End(xlUp).Row)) h1.Range("G2") = Application.Max(h2.Range("E2:E" &...

H o l a: Te anexo la macro actualizada: Sub CopiarDatos2() 'Por.Dante Amor Set h1 = Sheets("Registro_Procedimiento") Set h2 = Sheets("AC") u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1 h2.Cells(u, "B") = "'682760382901" h2.Cells(u, "C") =...