Macro seleziona e copia ultima riga piena

Salve a tutti, mi servirebbe un aiuto per una marco che mi selezioni e copi l'ultima riga piena e la copi in automatico negli appunti, così da poter incollare il tutto in un' altra cartella, lascio un esempio

Ho una tabella con 527 righe che va da colonna A a colonna K, mi servirebbe una macro che mi copi questo range dell'ultima riga con celle piene e la copi negli appunti, ho cercato in giro ma non ci sono riuscito.

ciao

da inserire nel modulo del foglio, vedi se e' questo che intendi

Sub CopiaAppunti()
Dim i As Long
Dim Nriga, Nrig As Long
Nriga = 1
Nrig = 1
For i = 1 To 11
Nrig = Cells(Rows.Count, i).End(xlUp).Row
If Nriga < Nrig Then
Nriga = Nrig
End If
Next i
Range("A" & Nriga & ":K" & Nriga).Copy
End Sub

locatevaresino, 28/03/2014 18:53:

---

ciao

da inserire nel modulo del foglio, vedi se e' questo che intendi

---

GRAZIE locatevaresino, perfetta!! E' la macro che cercavo

Ciao a tutti,

riprendo questa discussione perché avrei la necessità di copiare l'ultima riga di dati di un foglio e forse questa soluzione potrebbe servire al caso, espongo il problema:

- in Foglio1 ho uma matrice di colonne AX e di circa 580 righe, che viene popolata di dati (climatici) grazie a una connessione esterna, ogni 10 minuti si aggiorna;
- in Foglio2 e riga 2 (nella stessa cartella di lavoro), io dovrei incollare (con copia incolla e non taglia incolla) l'ultima riga di dati presente nella matrice di Foglio1;
- il procedimento si dovrebbe ripetere ogni 10 minuti (prendendo quindi la riga più recente, cioè l'ultima), partendo in automatico all'avvio della cartella di lavoro e senza interruzioni sino alla chiusura della cartella stessa.

penso che la macro che Locate ha scritto qui vada bene ma necessita di alcune modifiche che io non saprei apportare perché non conosco VBA.

Cosa ne pensate?
Quello che io ho, grazie a Domenico di questo forum che ringrazio per un precedente suo indispensabile supporto, è il codice per StartTimer e StopTimer che riporto qui sotto:
Sub StartTimer()
Esegui = Now + TimeSerial(0, 10, 0)
Application.OnTime EarliestTime:=Esegui, Procedure:="MoveFile", _
Schedule:=True
End Sub

Sub StopTimer()
On Error Resume Next
Application.OnTime EarliestTime:=Esegui, Procedure:="MoveFile", _
Schedule:=False
End Sub

Qualcuno potrebbe aiutarmi?
Vi ringrazio in anticipo
G

Per Domenico: è la cartella di lavoro MovieFile in cui tu hai inserito la macro e che viaggia alla grande!

Ciao a tutti,

problema risolto con la funzione cerca, inserita in una cella a scelta nel Foglio2. Se può servire a qualcuno, io l'ho risolta così:

=CERCA(2;1/('Foglio1'!A:A<>"");'Foglio'!A:A)

l'aggiornamento avviene ogni volta che la connessione esterna restituisce nuovi dati.

G

Ciao a tutti,

rettifico formula precedente:
=CERCA(2;1/('Foglio1'!A:A<>"");'Foglio1'!A:A)

G