Saltar al contenido

Cambiar una celda especifica de numerosos excells dentro de una carpeta


Recommended Posts

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

 

 

Enlace a comentario
Compartir con otras webs

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

Enlace a comentario
Compartir con otras webs

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.

Enlace a comentario
Compartir con otras webs

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

 

Enlace a comentario
Compartir con otras webs

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

 

 

 

 

 

Enlace a comentario
Compartir con otras webs

Archivado

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

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.