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

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.

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)

Hace 10 minutos , lursaildi dijo:

 

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

 

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?

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")

ok muchas gracias

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

 

 

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")

Muchas gracias lo probare

Despues de probarlo sigue sin ponerme el dato de la celda

¿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?

si le pongo desde una celda normal si funciona

Error mio Solucionado, muchas gracias.

Cerrar consulta