Guarde la aplicación de Excel con Nombre; Con un nombre declarado en la celda (A2)

[A.Maurizio]

Hola a todos, mi nombre es Maurizio y mi problema es este:
Creé una función para guardar el documento de Excel usando (Guardar como)
Ahora usado como diseñado, ¡trabajo maravillosamente!
Pero ahora me gustaría que el título del documento se guardara para que se tome lo que puse en la celda (A2). Le garantizo que he intentado en todo momento hacer este cambio sin tener éxito; Podrías decirme por qué.
Y como resolver esta Operación Gracias.
Saludos sinceros de A. Maurizio.

###############################################

Hi everyone, my name is Maurizio and my problem is this:
I created a function to save the excel document using the (Save As)
Now used as designed, I work wonderfully!
But now I would like the title of the document to be saved to be taken what I put in the cell (A2) I guarantee that I have tried in every way to make this change without ever succeeding; You could tell me why.
And how to resolve this Operation Thank you
Sincere greetings from A. Maurizio

Salva Con Nome - Dichiarato.xlsm

[Haplox]

@A.Maurizio

No he visto tu archivo (escribo desde el movil), pero ya deberia serte facil

Dim nom As String, rut As String

nom=[a2]

rut="la que sea\'

ThisWorkbook.SaveAs (rut & nom)

 

[A.Maurizio]

Hola Haplox, ¿cómo estás?
Desafortunadamente, su función, que me dio, no funciona dentro de mi programa; Como siempre, debo haber creado demasiadas variables.
Pero traté de volver a llamar usando solo su método y haciendo algunos cambios al caso
Como ejemplo:
(En error GoTo termina
Dim nom As String, rut As String
nom = Sheet1.Range ("A2"). Valor
rut = "C: Usuarios
ThisWorkbook.SaveAs (rut & nom)
acabado:
MsgBox "File Saving" & nom & "Successfully", vbInformation, "Attention"

Sheet1.Range ("A2"). Valor = "")
Por lo tanto funciona maravillosamente todo
Gracias y disculpa si te molesté tan poco.
Saludos sinceros de Maurizio.

##################################

Hi Haplox how are you!
Unfortunately, your function, which you gave me does not work within my program; As always, I must have created too many variables.
But I tried to call back using only your method and making some changes to the case
For example :
(On Error GoTo finish
Dim nom As String, rut As String
nom = Sheet1.Range ("A2"). Value
rut = "C: Users
ThisWorkbook.SaveAs (rut & nom)
finish:
MsgBox "File Saving" & nom & "Successfully", vbInformation, "Attention"

Sheet1.Range ("A2"). Value = "")
Therefore it works wonderfully Everything
Thank you and sorry if I disturbed you so little.
Sincere greetings from Maurizio

[Antoni]

Hace 5 horas, Haplox dijo:

@A.Maurizio

No he visto tu archivo (escribo desde el movil), pero ya deberia serte facil

Dim nom As String, rut As String

nom=[a2]

rut="la que sea\' <-------------------------------------------------------------

ThisWorkbook.SaveAs (rut & nom)

 

Prueba con:

rut = "C: Usuarios\"

[A.Maurizio]

Hola Antoni & Haplox
Quizás no me expliqué bien: su sugerencia funciona muy bien, y solo he hecho los cambios porque antes de guardar todo, podía ver el nombre del archivo guardado.
Pero esto es un juego de niños; Y tu archivo funciona muy bien.

Pero al contrario: con mi programa, le envié que no pude obtener el nombre del archivo que me gustaría guardar con el menú Guardar como nombre de Windows clásico ¡Todo aquí!
Pero ahora no importa, porque gracias a ti he resuelto todo, usando tu procedimiento ¡Todo aquí!
Gracias de nuevo

#######################

Hi Antoni & Haplox
Perhaps I didn't explain myself well: Your suggestion works great, and I have only made the changes because before saving everything I could see the name of the saved file.
But this is child's play; And your file works great.

But on the contrary: And with my program I sent you that I was not able to get the name of the file that I would like to save with the Classic Windows Save As Name Menu Everything here!
But now it doesn't matter, because thanks to you I have solved everything, using your procedure Everything here!
Thanks again

[Haplox]

En 26/4/2019 at 18:37 , Antoni dijo:

Prueba con:

rut = "C: Usuarios\"

Es lo que tiene escribir desde el  móvil  ?. Por cierto, enhorabuena. Otra vez ⚽...          

[A.Maurizio]

Hola Haplox como eres!
Pasa bien estos días festivos.
Por cierto: como me felicitas, no hice nada diferente de lo que sugeriste (Antoni & C) que no recuerdo el nombre.
De todos modos gracias por el Pensamiento.
Hola y gracias de nuevo a todos, un sincero saludo de Maurizio.

###################

Hi Haplox as you are!
Spend these festive days well.
By the way: Because you compliment me, I didn't do anything different from what you suggested (Antoni & C) that I don't remember the name.
Anyway thanks for the Thought.
Hello and thanks again to all of you, sincere greetings from Maurizio

[Antoni]

Hace 1 hora, A.Maurizio dijo:

Hola Haplox como eres!
Pasa bien estos días festivos.
Por cierto: como me felicitas, no hice nada diferente de lo que sugeriste (Antoni & C) que no recuerdo el nombre.
De todos modos gracias por el Pensamiento.
Hola y gracias de nuevo a todos, un sincero saludo de Maurizio.

###################

Hi Haplox as you are!
Spend these festive days well.
By the way: Because you compliment me, I didn't do anything different from what you suggested (Antoni & C) that I don't remember the name.
Anyway thanks for the Thought.
Hello and thanks again to all of you, sincere greetings from Maurizio

Ja,ja,ja, no te felicita a ti Maurizio, me felicita a mi porqué el Barcelona a vuelto a ganar La Liga.

[Haplox]

Hace 12 minutos , Antoni dijo:

Ja,ja,ja, no te felicita a ti Maurizio, me felicita a mi porqué el Barcelona a vuelto a ganar La Liga.

Por desgracia... ?

?   

[A.Maurizio]

Ciao del Ritardo nella Risposta Haplox ; Ma sono stato un pochino preso con il mio lavoro.
Ho visto che avete vinto con la liga
Ma dal'tronde il Barcellona e da sempre la mia squadra del cuore ; oltre al mio Torino (Granata).
Per il resto non dimentichiamo che: Con il vecchio Torino morto in un disastro Aereo molti anni fa.
Al Barcellona dell'epoca , Vincemmo noi per ben 3 reti a 1.
Ma questa e tutta un altra storia.
Ciao Simpaticone con affetto Maurizio

[A.Maurizio]

Hace 11 horas, A.Maurizio dijo:

Hola Haplox, disculpa la demora en responder; Pero estaba un poco prisionero con mi trabajo.
Vi que ganaste con el campeonato.
Pero desde el otro lado, Barcelona siempre ha sido mi equipo favorito, además de ser la Barcelona de todos los tiempos.
En Fatti io, además de animar a Barcelona, Tifo por mi Grande Torino (Granata) ..
Por lo demás, no lo olvidemos: hace muchos años, con el viejo Turín, murió en un avión de desastre.
En la Barcelona de la época, ganamos por 3 a 1.
Pero esta y toda otra historia.
Hola gracioso y cariño maurizio

----------------------------------------------------------------------------

Hi Haplox, sorry for the delay in replying; But I was a little prisoner with my work.
I saw that you won with the championship
But from the other side Barcelona has always been my favorite team, in addition to being the Barcelona of All Time.
In Fatti io besides cheering for Barcelona, Tifo for my Grande Torino (Granata) ..
For the rest, let's not forget that: With the old Turin died in a disaster Plane many years ago.
At the Barcelona of the time, we won for 3 to 1.
But this and all other history.
Hello Funny and affection Maurizio