macro che copia dati da un file ad un altro

[Anthony47]

Solo una raccomandazione: questo e' il classico caso in cui conviene usare Set, invece che scrivere Workbooks("query.xls").Worksheets("Sheet1") per 10 volte e Workbooks("monitoring.xls").Worksheets("dentro") per 6.
Cioe', ad esempio:

Codice: Seleziona tutto

Set uno= Workbooks("query.xls").Worksheets("Sheet1")
Set due= Workbooks("monitoring.xls").Worksheets("dentro")


E poi

Codice: Seleziona tutto

URB = due.Range("G" & Rows.Count).End(xlUp).Row + 1
uno.Range("A" & RRA & ":H" & RRA).Copy Destination:=due.Range("A" & URB)


Grazie.

[marcosacar]

buongiorno a tutti,
avrei necessità di costruire una macro che faccia il seguente lavoro:
i due file sono "Stampa offerte clienti.xlxs"
e "CODICE ASSOCIATO A FOTO.xlxs".

qualora i valori della cella nella colonna B di stampa offerte clienti siano uguali al valore di A di CODICE ASSOCIATO A FOTO mi vada a copiare nella cella A di stampa offerte clienti il valore di cella B corrispondente di CODICE ASSOCIATO A FOTO.

Spero di essere stato chiaro e che qualcuno mi possa aiutare grazie in anticipo.

[Anthony47]

Non c'e' bisogno di nessuna macro, basta usare la funzione Cerca.Vert, da mettere in colonna A del file Stampa offerte clienti.xlxs
Tipo in A2

Codice: Seleziona tutto

=Cerca.Vert(B2; '[CODICE ASSOCIATO A FOTO.xlsx]FoglioQualeFoglio'!$A:$B;2;0)


Quando il valore non viene trovato ti restituira' l'errore #N/D, che puoi mascerare ricorrendo alla funzione Se.Errore

Poi copi A2 verso il basso quanto basta.

Ciao

[marcosacar]

ciao Anthony,
grazie della risposta ma perdonami se non mi è chiaro.
dovrei aprire tutti e due i file?
potresti gentilmente indicarmi schematicamente la strada?
perdona la mia ignoranza.

[Anthony47]

Si, se vuoi importare nel file 1 alcuni dati che sono nel file 2 alora apri i due file e, dal primo file, usi la funzione Cerca.Vert per "cercare" nella tabella del secondo file e, trovato il valore, restituire il contenuto di una colonna adiacente.
Per le carattersitiche e la sintassi della funzione Cerca.Vert puoi guardare l'help on line di excel.

Ciao