[RISOLTA] Unire due fogli excel

In un file ho due fogli: Foglio1 e Foglio2.

Dovrei crearne uno nuovo dato dalla unione di due.

Se vuoi una macro prova con il registratore di macro.

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

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

tanimon, 07/03/2024 16:54:

---

con Alfredo sei in ottime mani

---

Troppo buono

alfrimpa, 07/03/2024 18:25:

---

Troppo buono

---

E Tu, troppo modesto 😉

Aggiungo: troppo professionale

Rex88 facci vedere cosa combini.

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.

nomeFile = Range("A1") & " " & Range("B1") & " " & Range("C1") & " " & Format(Date, "dd.mm.yyyy") & ".xlsx"

saluti

Ho fatto come mio hai detto.

Sul primo Range mi chiede la matrice.

Il foglio è il Foglio1.

rex88 (nTdQ231201), 16/03/2024 16:30:

---

Sul priomo Range mi chiede la matrice.

---

ma che significa??

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.

cancella quel Dim Range as String

saluti

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.

Ho inserito nella sub queste due righe:

Dim rng As Range

Set rng = Sheets("Foglio1").Range("A1:C30")

rex88