nTdQ231201
00giovedì 7 marzo 2024 16:47
In un file ho due fogli: Foglio1 e Foglio2.
Dovrei crearne uno nuovo dato dalla unione di due.
alfrimpa
10giovedì 7 marzo 2024 16:51
Se vuoi una macro prova con il registratore di macro.
tanimon
10giovedì 7 marzo 2024 16:54
Re:
alfrimpa, 07/03/2024 16:51:
Se vuoi una macro prova con il registratore di macro.
ottima proposta!
Come hai già avuto mdo di verificare in altre occasioni,
con Alfredo sei in ottime mani
nTdQ231201
00giovedì 7 marzo 2024 17:00
Non avevo alcun dubbio.
Io accetto ben volentieri i consigli che mi vengono dati.
E' grazie ai consigli che sono riuscito a risolvere tutto ciò che ho postato nel forum.
Anche per questa discussione seguirò il consiglio di Alfredo.
rex88
alfrimpa
10giovedì 7 marzo 2024 18:25
Re: Re:
tanimon, 07/03/2024 16:54:
con Alfredo sei in ottime mani
Troppo buono
tanimon
10giovedì 7 marzo 2024 18:54
Re: Re: Re:
alfrimpa, 07/03/2024 18:25:
Troppo buono
E Tu, troppo modesto 😉
nTdQ231201
00giovedì 7 marzo 2024 19:19
Aggiungo: troppo professionale
alfrimpa
10giovedì 7 marzo 2024 22:25
Rex88 facci vedere cosa combini.
nTdQ231201
00sabato 16 marzo 2024 16:19
Purtroppo non ho combinato niente e quindi ho cambiato approccio.
Salvo i singoli file in excel.
Ho creato una sub con la quale vorrei salvare un foglio con il nome ricavato dau dati nelle celle "A1", "B1" e "C1".
Nella sub questa riga
nomeFile = Range("A1") & " " & Range("B1") & " " & Range("C1"), Format(Date, "dd.mm.yyyy") & ".xlsx"
mi dà errore.
dodo47
00sabato 16 marzo 2024 16:24
nomeFile = Range("A1") & " " & Range("B1") & " " & Range("C1") & " " & Format(Date, "dd.mm.yyyy") & ".xlsx"
saluti
nTdQ231201
00sabato 16 marzo 2024 16:30
Ho fatto come mio hai detto.
Sul primo Range mi chiede la matrice.
Il foglio è il Foglio1.
dodo47
00sabato 16 marzo 2024 16:31
Re:
rex88 (nTdQ231201), 16/03/2024 16:30:
Sul priomo Range mi chiede la matrice.
ma che significa??
nTdQ231201
00sabato 16 marzo 2024 16:35
Questa è la sub che ho fatto:
Sub Salva()
Dim sPercorso As String
Dim sh1 As Worksheet
Dim strFile As String
Dim snomeFile As String
Dim Range As String
Set sh1 = ActiveSheet
Application.DisplayAlerts = False
sPercorso = "C:\Files\"
snomeFile = Range("A1") & " " & Range("B1") & " " & Range("C1") & " " & Format(Date, "dd.mm.yyyy") & ".xlsx"
ActiveSheet.Copy
ActiveWorkbook.SaveAs FileName:=sPercorso & snomeFile, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub
EDIT
Allego il file.
dodo47
00sabato 16 marzo 2024 18:15
cancella quel Dim Range as String
saluti
nTdQ231201
00sabato 16 marzo 2024 18:49
Ciao,
grazie.
Per me risolta.
Alla prossima.
Saluti
rex88
EDIT
Anzichè tutto il foglio si può salvare solo A1:C30 per evitare di riportarmi dietro anche il pulsante?
Grazie.
nTdQ231201
00domenica 17 marzo 2024 10:00
Ho inserito nella sub queste due righe:
Dim rng As Range
Set rng = Sheets("Foglio1").Range("A1:C30")
rex88