copiare sempre in una cella prestabilita (excel)

[caimanonor]

ciao come posso fare dovrei copiare dal foglio1 dalla riga a9:r350 e incollare il tutto nel foglio 2 però ogni volta che copio in automatico dovrà creare le righe..questo perchè il giorno successivo dovrò copiare di nuovo quel range a9:r350 e lo dovrà posizionare nella cella a1 cioè in prima linea

[Anthony47]

Qualcosa come

Codice: Seleziona tutto

Sub cainor()
'
Sheets("Foglio2").Select
Rows("1:342").Insert Shift:=xlDown
Sheets("Foglio1").Range("A9:R350").Copy Destination:=Range("A1")
End Sub


Fai sapere, ciao.

[caimanonor]

grazie 1000 ho dimenticato di dirti che deve copiarmi i valori e le formattazioni e non le formule perche mi escono tutti #RIF!

[caimanonor]

ho notato anche che mi cancella i nomi della tabella come posso risolvere??? questo l ho risolto

[Anthony47]

Non so che cosa intendi per "i nomi della tabella", e ora non ho nemmeno capito che cosa hai risolto e se c' e' ancora qualcosa da risolvere...

[caimanonor]

ho provato la tua macro però non deve copiarmi le formule ma bensì i valori e la formattazione come posso fare???

[Anthony47]

Devi quindi fare Copia /Incolla speciale-Valori; quindi invece di
Sheets("Foglio1").Range("A9:R350").Copy Destination:=Range("A1")
Userai
Sheets("Foglio1").Range("A9:R350").Copy
Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Ciao

[caimanonor]

va bene però non copia la formattazione originale cioè le celle ad una certa condizione si colorano di verde o rosso come posso risolvere???

[Anthony47]

Suvvia, un po' di iniziativa...
Se esegui Incolla speciale, oltre a "Valori" che cosa ti propone? Tra le tante cose anche "Formati"
Tradotto in vba dovrai aggiungere questa riga:

Codice: Seleziona tutto

Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Cosi' copierai i valori e poi i formati.

Ciao