mireya luna

Abraham Valencia respondió: [Hola No es recomendable el uso de On Error Resume Next, a menos que sea estrictamente necesario. Para no hacer propuestas que pueden no resultar, sugiero colocar el archivo en algún Drive y compartir por aquí el enlace. Saludos] Abraham Valencia

Andy Machin respondió: Ya veo, no necesitas usar AutoFiltro si las celdas están realmente vacías ya que SpecialCells tiene un argumento para ellas y es mejor y más rápido. En general la idea es esta: Dim otroLibro as Workbook: Set otroLibro = Workbooks("El otro Libro.xls")...

Andy Machin respondió: No tienes que usar la funcion LCase. ¿Alguna razon en especifico de por que la pones? LCase convierte un string a mayusculas por lo que ARCHIVO1. CSV no es lo mismo que archivo1.csv cuando usas el operador = los string se comparan con case sensitive....

Andy Machin respondió: Basado en el ejemplo de las imágenes, este podría ser un código funcional: Nota: Debes tener ambos libros abiertos al mismo tiempo. Sub passClaves() Dim libro1 As Workbook: Set libro1 = Workbooks("Libro1.xls") Dim libro2 As Workbook: Set libro2 =...