Cambiar una celda especifica de numerosos excells dentro de una carpeta

[r1004]

Todos los excels tienen la misma estructura. Y estan en una misma carpeta.

 

Se trata de facturas, y en la celda C5 hay un campo que quiero cambiar.

 

en todos los excells se trata de la misma celda, la c5.

 

Y la quiero cambiar por distindos datos. Es decir:

 

Celda c5 del libro excel "casame"--> cambiar "casa" por "Madrid"

Celda c5 del libro excel "divorcio"--> cambiar "sofa" por "Tolomeo"

Celda c5 del libro excel "amante"--> cambiar "dormitorio" por "Zalameo"

 

Esta correspondencia la tengo en una hoja de  excel.

 

Alguien me puede ayudar?

 

Gracias

 

 

[Janlui]

Sube tu archivo donde columna A = Nombre de archivo y Columna B el contenido nuevo de la C5

[r1004]

Muchas gracias Janlui.

 

Aqui lo tienes.

 

en este caso hay solo 39 archivos, pero en otras ocasiones puede llegar a 500

NOMBRE ARCHIVO-CELDA C5.xlsx

[Janlui]

Guardar este archivo ponlo en la carpeta donde se encuentran todos loas archivos a cambiar.

 

Saludos

NOMBRE ARCHIVO-CELDA C5.xlsm

[r1004]

Muchas gracias Janlui.

 

Me da error,

 

Me dice que no encuentra el fichero 21-334.xlsx

 

Sin embargo como puedes ver en las capturas de pantalla, el archivo existe y esta en la misma carpeta

[Janlui]

Mandame el archivo que te envié y 2 archivos de ejemplo 21-334 y 21-335

[Antoni]

Hace 7 horas, Janlui dijo:

Mandame el archivo que te envié y 2 archivos de ejemplo 21-334 y 21-335

Creo que modificando esta línea, funcionaría:

arch = ruta & Cells(r, 1) & ".xlsx"

Y de paso añadiría al principio de la macro:

Application.ScreenUpdating = False

Y por último, dado que va a ser un proceso lento, poner un mensaje en la barra de estado cada vez que se abra un archivo y así poder ver el avance del proceso.

[r1004]

Muchas gracias.

 

Así ha funcionado:

esta linea no funciona ya que los ficheros ya llevan el .xlsx en la celda del listado.

 

Muchas Gracias

arch = ruta & Cells(r, 1) & ".xlsx"

 

Sub actualiza()
    Application.ScreenUpdating = False
    
    ruta = ActiveWorkbook.Path & "\"
    
    r = 2
    Do While Cells(r, 1) <> ""
        arch = Path & Cells(r, 1)
        cambio = Cells(r, 2)
        Workbooks.Open Filename:=arch
        Range("c5") = cambio
        ActiveWorkbook.Save
        ActiveWorkbook.Close
        r = r + 1
    Loop
    MsgBox "Proceso Terminado"
End Sub

 

[r1004]

Ahora tengo otra variante del mismo programa.

 

Este no corre prisa, sin embargo, podria correr prisa muchisima en un futuro de repente.

 

en la celda BC 30 (hay un merge cells) hay un dato:

 

Este dato puede tener seis variantes y siempre son esas mismas variantes:

 

BC30 puede ser "dato1"

puede ser "dato2"

"dato3"

..

..

y asi hasta

"dato6"

 

Me gustaria cambiar de forma masiva la celda BC30 de tal forma  que:

 

Si en celda BC30= "dato1" sustituye BC30 por "gato"

Si en celda BC30= "dato2" sustituye BC30 por "perro"

Si en celda BC30= "dato3" sustituye BC30 por "conejo"

Si en celda BC30= "dato4" sustituye BC30 por "anguila"

Si en celda BC30= "dato5" sustituye BC30 por "elefante"

Si en celda BC30= "dato6" sustituye BC30 por "rinoceronte"

 

Otra vez estan todos los archivos en una misma carpeta.

 

Muchas gracias

 

 

 

 

 

[r1004]

estas correspondencias se pueden hacer dentro de visual basic (en vez de en excel) ya que siempre son las mismas

 

 

 

 

 

[r1004]

y no tengo correspondencia: archivo, datoX, animalX en un libro de excel