Accodamento dati esterni

Hai un problema con Excel?

Nuova discussione

Accodamento dati esterni
di Shakemaury (utente non iscritto) data: 11/04/2012
Chiederei alcuni consiglio sul giusto uso delle macro, il mio problema e che vorrei importare giornalmente ed accodarli dei dati provenienti da fogli excel esterni in una tabella riepilogativa scarna e semplice e uguale a tutti i fogli che mi arrivano giornalmente. il mio foglio principale si chiama riepilogo e devo importare i dati dai fogli che si chiamano torino, asti alessandria.....i dati dovrebbero accodarsi dall'ultima riga libera. spero di essere stato chiaro.....quello che sono riuscito a fare e che dopo aver copiato i fogli all'interno del mio progetto riesco solo ad importare i dati nel mio foglio riepilogo di un solo foglio alla volta...quindi ho fatto poco e niente...vorrei perfezionare il tutto. grazie mille per l'eventuale aiuto

Sub accoda()

Sheets("torino").Select
Range("A2:f100").Select
Selection.Copy
Sheets("riepilogo totale").Select
Dim iRwt As Integer 'iniziamo il ciclo per la ricerca della prima cella vuota, a partire dalla
iRwt = 2 'riga due
While Cells(iRwt, 1).Value <> "" 'fino a che la cella riga iRwt, colonna 1 è occupata
iRwt = iRwt + 1 'si scala di riga incrementando di 1 il numero di riga
Wend 'quando si trova una cella libera
Cells(iRwt, 1).Select 'la selezioniamo ed incolliamo ciò che è stato copiato
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



End Sub

Help
di Shakemaury data: 16/04/2012
Avrei bisogno di qualche aiutooooooo...grazie

Vuoi Approfondire?