Guardar archivos con horas

[Asek777]

Estimados, necesito ayuda no he encontrado como adaptar un código para mi caso. Tengo tres pestañas ( pestaña1, pestaña2, pestaña3), la macro que busco es para que al presionar un botón cada una...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[federico_]

No dices si el botón estará en cada hoja o si estará solo en la "Pestaña1"
Esta macro pudiera ser un ejemplo:
El botón solo esta en la "Pestaña1" y desde aquí salva las tres hojas
Es solo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[federico_]

Se me pasó decir:
En el titulo de esta consulta dices horas pero en el ejemplo que comentas utilizas fechas.

 

[Asek777]

Esta perfecto, es casi lo que buscaba, solo faltaría poder modificar que al guardar no me lo guarde con el nombre del archivo de origen, si no que uno que yo le designe. Ejemplo tengo una planilla...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[federico_]

ok, unas preguntas:

¿Serán tres datos: "comercial", "canal 1", "fecha" ----- o serán dos: "comercial canal 1", "fecha"?
Si son tres datos, entonces ¿de donde sacamos el termino "canal 1"'...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[federico_]

Si "canal n" es tomado del nombre de la pestaña, entonces solo cambia en la macro:

nomfile = ActiveWorkbook.Name

por

nomfile = "comercial"

 

[Asek777]

Federico, específicamente el caso es el siguiente, tengo una pestaña de base de datos, otra de control y tengo una macro ya asignada en la pestaña control que me genera con la información de la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[federico_]

Ojala sea así:
Solo modifica C:\Users\Ruta\Documents\AAAAAAA\ por la ruta correcta.

Sub save_by_sheet()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
nomfile =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Asek777]

Gracias, es lo que buscaba, solo me queda una duda en caso que las pestañas tengan nombres del tipo canal alto, bajo, medio. etc, debo sacar las i del codigo y copiar tres veces el mismo codigo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[federico_]

Si, pudiera ser una opción; pero tal vez sería mejor esto:
Solo cambia C:\Users\Ruta\Documents\AAAAAAA\ por la ruta correcta

Sub Salvar_Por_Hoja()
    Application.DisplayAlerts =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Asek777]

Me funciono a la perfección, te pasaste. Gracias

 

[federico_]

:mrgreen:
¡bien!
Pulgares hacia arriba
Saludos.