Jump to content

r1004

Visitante
  • Posts

    15
  • Joined

  • Last visited

  • Country

    Spain

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

r1004's Achievements

  1. estas son las correspondencias del otro programa de Jasal Select Case Texto Case Is = "RITCHIE" Range("bc30").Value = "GRAUNNER 650 WALKARROUND" Case Is = "5 TIMES" Range("bc30").Value = "V2 BOAT 5.0" Case Is = "4 TIMES" Range("bc30").Value = "QUICKSYLVER 455" Case Is = "FAIGA" Range("bc30").Value = "SACS SC 25 DREAM" Case "RITCHIE", "5 TIMES", "4 TIMES", "FAIGA" Case Else Range("Bc30").Value = "" End Select
  2. Muchas gracias. Sigue sin funcionar. Adjunto excells para testar porque no encuentro el problema. estas son las correspondencias reales y editadas que he utilizado. Select Case r.Value Case "GRAUNNER 650 WALKARROUND": r.Value = "RITCHIE" Case "V2 BOAT 5.0": r.Value = "5 TIMES" Case "QUICKSYLVER 455": r.Value = "4 TIMES" Case "SACS SC 25 DREAM": r.Value = "FAIGA" End Select 21-334.xlsx 21-335.xlsx 21-336.xlsx 21-337.xlsx 21-338.xlsx 21-339.xlsx 21-340.xlsx 21-341.xlsx
  3. Hola, No funciona. Cuando le doy a "play" desde visul basic aparecen dos programas: Analizar archivos y Comprueba. El primero abre todos los archivos y los cierra. El segundo no hace nada. Doy a play de nuevo y ya no me deja elegir entre dos programas. Ejecuta abriendo archivos, pero tampoco cambia los valores. No se que puede estar pasando
  4. Hola, No me funciona. Sale este error. Seria posible tambien no tener que editar la ruta cada vez y que coja la ruta donde esta el xlsm? Muchas gracias
  5. Todos los excell en una misma carpeta. Unicamente a cambiar una celda de todos los excells de la carpeta. La "BC30" es una celda combinada. Condicional: Si el valor actual de BC30= "hogares" cambiar el valor de la celda por "infiernos" Si el valor actual de BC30= "alquileres" cambiar el valor de la celda por "placeres" Si el valor actual de BC30= "compartir" cambiar el valor de la celda por "genesis" En la celda CB30 solo pueden existir estos valores:" hogares", "alquileres" , "compartir" Y siempre se quieren cambiar por estas correspondencias: Alguien sabe como hacerlo de forma masiva?
  6. gracias, ha funcionado a la primera solo apretando el boton. Muchas gracias
  7. A lo que me referia es a guardar con el mismo nombre que el excel. Y cada excel tiene un nombre distinto
  8. Todos los libros en una carpeta. Todos tienen unicamente una hoja imprimible, y solo hay contenido en el campo de impresion de la hoja. Se busca guardar masivamente los excels a pdf con el mismo nombre de archivo. Como se hace? Muchas gracias
  9. y no tengo correspondencia: archivo, datoX, animalX en un libro de excel
  10. estas correspondencias se pueden hacer dentro de visual basic (en vez de en excel) ya que siempre son las mismas
  11. 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
  12. 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
  13. 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
  14. 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
  15. 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
×
×
  • Create New...

Important Information

Privacy Policy