Saltar al contenido

Cambiar una celda especifica de numerosos excells dentro de una carpeta

publicado

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

 

 

Featured Replies

publicado

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

publicado
  • Autor

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

publicado
  • Autor

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

0sugerencia de colores4.png

sugerencia de colores4.png

sugerencia de colores5.png

publicado

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

publicado
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.

publicado
  • Autor

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

 

publicado
  • Autor

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

 

 

 

 

 

publicado
  • Autor

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

 

 

 

 

 

publicado
  • Autor

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.