Incolla speciale su codice vba

[lbvox]

Ciao a tutti mi occorre una mano su un problema che non riesco a
risolvere!!!! ho creato un codice tramite macro:
Sub Esporta()
'
' Macro3 Macro
'
'
Cells.Select
Selection.Copy
Windows("Cartel1").Activate
Sheets("Foglio1").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone,
_
SkipBlanks:=False, Transpose:=False
'
Windows("Copia di Finale_Centauro.xls").Activate
Sheets("Statistiche").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Cartel1").Activate
Sheets("Foglio2").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone,
_
SkipBlanks:=False, Transpose:=False
'
Windows("Copia di Finale_Centauro.xls").Activate
Sheets("Gestori").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Cartel1").Activate
Sheets("Foglio3").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone,
_
SkipBlanks:=False, Transpose:=False
'
Windows("Copia di Finale_Centauro.xls").Activate
Sheets("Grafico Mobile").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Cartel1").Activate
Sheets("Foglio4").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone,
_
SkipBlanks:=False, Transpose:=False
'
Windows("Copia di Finale_Centauro.xls").Activate
Sheets("Grafico Fisso").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Windows("Cartel1").Activate
Sheets("Foglio5").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone,
_
SkipBlanks:=False, Transpose:=False
End Sub
Il codice è funzionante, il mio problema e che vorrei customizzarlo
ma
non riesco!!!! nel senso all'inzio del codice vorrei far aprire una
nuova cartella di lavoro e poi copiarci tutti i fogli con l'incolla
speciale (valori e formati)
la cosa bloccante per me quindi è aprire la nuova cartella e poi
valorizzarla dinamicamente nei campi:
Windows("Copia di Finale_Centauro.xls").Activate
a
Windows("xxxx.xls").Activate
Grazie

[Mauro Gamberini]

Il codice è funzionante, il mio problema e che vorrei customizzarlo
ma
non riesco!!!! nel senso all'inzio del codice vorrei far aprire una
nuova cartella di lavoro e poi copiarci tutti i fogli con l'incolla
speciale (valori e formati)

******************************************

In un modulo di codice standard:

Public Sub m()

Dim wk As Workbook
Dim sh As Worksheet

Set wk = Workbooks.Add

Application.ScreenUpdating = False

With ThisWorkbook
For Each sh In .Worksheets
.Activate
Sheets(sh.Name).Copy _
After:=Workbooks(wk.Name).Sheets(wk.Sheets.Count - 1)
Next
End With

Application.ScreenUpdating = True

wk.SaveAs "C:\tuaCartella\tuoFile.xls"
wk.Close

Set sh = Nothing
Set wk = Nothing

End Sub

Cambia i riferimenti con i tuoi.

---------------------------
Mauro Gamberini
Microsoft MVP - Excel
http://www.riolab.org/
http://www.maurogsc.eu/

[lbvox]

On 7 Mar, 17:16, "Mauro Gamberini"
<maurogscRIMUOV...@RIMUOVEREaliceposta.it> wrote:
> Il codice funzionante, il mio problema e che vorrei customizzarlo

Ciao Grazie per la tua risposta!! ma applicando il tuo codice mi
succede questo! mi creai il file con tutti i formati ma purtroppo
porta appresso tutte le formule (quindi chiudendo il file matrice ed
aprendo questo mi dà tutti #RIF! come valore delle formule, io ho
bisogno invece dei valori.
poi i tre fogli di default non me li cancella sul nuovo file,, quindi
mi trovo i primi due fogli in bianco poi la serie dei miei foglio
(come ti dicevo prima) e poi il terzo foglio, anche esso vuoto!!

[Mauro Gamberini]

Ciao Grazie per la tua risposta!! ma applicando il tuo codice mi
succede questo! mi creai il file con tutti i formati ma purtroppo
porta appresso tutte le formule (quindi chiudendo il file matrice ed
aprendo questo mi dà tutti #RIF! come valore delle formule, io ho
bisogno invece dei valori.
poi i tre fogli di default non me li cancella sul nuovo file,, quindi
mi trovo i primi due fogli in bianco poi la serie dei miei foglio
(come ti dicevo prima) e poi il terzo foglio, anche esso vuoto!!

**************************************************

Il tuo codice è, scusami, inguardabile
e non ho capito nulla.
Se(se) tutto quello che vuoi è una copia
del tuo file con i fogli che mantengono
la formattazione e non formule/funzioni,
prova:

Public Sub m()

Dim sh As Worksheet

Application.ScreenUpdating = False

With ThisWorkbook
'salvo l'originale
.Save
'elimino le funzioni/formule dai fogli

For Each sh In .Worksheets

sh.Range(sh.UsedRange.Address).Value = _
sh.Range(sh.UsedRange.Address).Value
Next
'salvo il file(path e nome diversi dall'originale)
.SaveAs "C:\tuaCartella\tuoFileX.xls"
End With

Application.ScreenUpdating = True

Set sh = Nothing

End Sub

Ti troverai con il file originale salvato con funzioni/formule
ed il secondo con solo i valori.

---------------------------
Mauro Gamberini

[r]

On 8 Mar, 09:10, "Mauro Gamberini"

<maurogscRIMUOV...@RIMUOVEREaliceposta.it> wrote:
> Ciao Grazie per la tua risposta!! ma applicando il tuo codice mi
> succede questo! mi creai il file con tutti i formati ma purtroppo
> porta appresso tutte le formule (quindi chiudendo il file matrice ed

> aprendo questo mi d tutti #RIF! come valore delle formule, io ho

> bisogno invece dei valori.
> poi i tre fogli di default non me li cancella sul nuovo file,, quindi
> mi trovo i primi due fogli in bianco poi la serie dei miei foglio
> (come ti dicevo prima) e poi il terzo foglio, anche esso vuoto!!
> **************************************************
>

> Il tuo codice , scusami, inguardabile

> e non ho capito nulla.

> Se(se) tutto quello che vuoi una copia

sh.Range(sh.UsedRange.Address)????
non basta sh.UsedRange.value?
ciao
r

[Mauro Gamberini]

sh.Range(sh.UsedRange.Address)????
non basta sh.UsedRange.value?
ciao
r

******************

Ma certo che sě!
Ero partito per un'altra strada
e ho postato una cosa *ibrida*. ;-)

---------------------------
Mauro Gamberini

[r]

On 8 Mar, 12:09, "Mauro Gamberini"

<maurogscRIMUOV...@RIMUOVEREaliceposta.it> wrote:
> sh.Range(sh.UsedRange.Address)????
> non basta sh.UsedRange.value?
> ciao
> r
> ******************
>

> Ma certo che s !

> Ero partito per un'altra strada
> e ho postato una cosa *ibrida*. ;-)

beh ... peggio se eri in moto :-)
ciao
r