Añadir valor celda al Nombre a guardar

[lursaildi]

Tengo la siguiente Macro, como puedo añadirle al nombre del archivo a guardar me coja un dato más a añadir, el valor de una celda

 

 

Sub Guardar()

    nbre = Format(Now, "dd-mm-yyyy hh mm ss")

    ruta = "\\NTCL02\Calidad_a\Lcalidad\LABORATORIO_VARIOS\Peticion_ de_ensayos_FECHA"

    ActiveWorkbook.SaveCopyAs ruta & "\" & nbre & ".xlsm"

End Sub

[JSDJSD]

Hace 2 minutos , lursaildi dijo:

Sub Guardar()

 

    nbre = Format(Now, "dd-mm-yyyy hh mm ss")

 

    ruta = "\\NTCL02\Calidad_a\Lcalidad\LABORATORIO_VARIOS\Peticion_ de_ensayos_FECHA"

 

    ActiveWorkbook.SaveCopyAs ruta & "\" & nbre & ".xlsm"

 

End Sub

Sub Guardar()

    nbre = Format(Now, "dd-mm-yyyy hh mm ss")

   apell= hojax.cells(filahoja,columnahoja)

    ruta = "\\NTCL02\Calidad_a\Lcalidad\LABORATORIO_VARIOS\Peticion_ de_ensayos_FECHA"

    ActiveWorkbook.SaveCopyAs ruta & "\" & nbre & apell " & .xlsm"

End Sub

 

Prueba y comenta, por supuesto lo de color verde debes sustituirlo por sus valores correspondientes.

[lursaildi]

Cracias por tu respuesta, pero lo que pretemdo es  que sea el librocompleto no solo la hoja, que sea algo asi:

despues del dia hora mes ss coja el valor de la celda ejemplo ""D6""

nbre = Format(Now, "dd-mm-yyyy hh mm ss",D6)

[JSDJSD]

Hace 10 minutos , lursaildi dijo:

 

nbre = Format(Now, "dd-mm-yyyy hh mm ss") & Hojax.Range(“D6”)

 

[lursaildi]

En 17/4/2020 at 22:07 , JSDJSD dijo:

 

nbre = Format(Now, "dd-mm-yyyy hh mm ss") & Hojax.Range(“D6”)

Muchas gracias por responder, perdona que conteste con este atraso

 

Una pregunta donde pone  & Hojax.Range("D6")  , tengo que poner tal como me dices o tengo que cambiar algún dato?

[JSDJSD]

Hace 34 minutos , lursaildi dijo:

Una pregunta donde pone  & Hojax.Range("D6")  , tengo que poner tal como me dices o tengo que cambiar algún dato?

Donde esta la x pones el numero de hoja que corresponda a Range("D6")

[lursaildi]

ok muchas gracias

[lursaildi]

nbre = Format(Now, "dd-mm-yyyy hh mm ss") & HojaPeticion_Ensayos_TALLER.Range("D6")

Puede ser asi?

Es que lo de las macros soy muy novato

[JSDJSD]

 

 

Sheets("Chart1")

Hace 35 minutos , lursaildi dijo:

nbre = Format(Now, "dd-mm-yyyy hh mm ss") & HojaPeticion_Ensayos_TALLER.Range("D6")

Puede ser asi?

Si lo que quieres es poner el nombre de la hoja sería de la siguiente manera.

nbre = Format(Now, "dd-mm-yyyy hh mm ss") & Sheets("Peticion_Ensayos_TALLER").Range("D6")

[lursaildi]

Muchas gracias lo probare

[lursaildi]

Despues de probarlo sigue sin ponerme el dato de la celda

[lursaildi]

¿Puede ser que no funcione por que el dato de la celda es que coge el dato de una lista de validación de datos?

[lursaildi]

si le pongo desde una celda normal si funciona

[lursaildi]

Error mio Solucionado, muchas gracias.

Cerrar consulta