Buona sera agli amici del forum cerco una unica macro che mi copia o trasferisce tutti i dati dei fogli 1,2,3,4 in una nuova cartella excel .
SALUTI
Moderatori: Anthony47, Flash30005
Sub wbReplica()
Dim StWb As String, NwWb As String
Dim I As Long, URAdr As String
'
StWb = ActiveWorkbook.Name
Application.SheetsInNewWorkbook = 1
Workbooks.Add
NwWb = ActiveWorkbook.Name
Windows(StWb).Activate
For I = 1 To ActiveWorkbook.Sheets.Count
Sheets(I).UsedRange.Copy
URAdr = Sheets(I).UsedRange.Cells(1, 1).Address
Workbooks(NwWb).Sheets(I).Range(URAdr).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Workbooks(NwWb).Sheets(I).Name = Workbooks(StWb).Sheets(I).Name
Workbooks(NwWb).Sheets.Add after:=Sheets(I)
Next I
MsgBox ("Creato workbook " & NwWb & vbCrLf & "Controllare esito e salvare il nuovo file")
End Sub
Sub WsAccoda()
Dim StWb As String, NwWb As String, Wb As Workbook, WbNames As String
Dim myWb As Long, I As Long
StWb = ActiveWorkbook.Name
I = 1
For Each Wb In Workbooks
WbNames = WbNames & I & ": " & Wb.Name & vbCrLf
I = I + 1
Next Wb
myWb = Application.InputBox("Scegliere il NUMERO del file su cui accodare" & vbCrLf & WbNames, "Scegli target file", , , , , , 1)
If myWb = False Or myWb > Workbooks.Count Then Exit Sub
NwWb = Workbooks(myWb).Name
For I = 1 To Workbooks(StWb).Worksheets.Count
Workbooks(StWb).Sheets(I).Copy After:=Workbooks(NwWb).Sheets(Workbooks(NwWb).Worksheets.Count)
Next I
MsgBox ("Trasferiti fogli da > " & StWb & " a > " & NwWb & vbCrLf & "Verificare il risultato e SALVARE " & NwWb)
Workbooks(StWb).Activate
End Sub
Torna a Applicazioni Office Windows
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 14 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Macro che indica la riga prima della cella attiva Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 19 |
Visitano il forum: Nessuno e 77 ospiti