Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Macro per estrarre dati da una tabella e copiarli

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: Macro per estrarre dati da una tabella e copiarli

Postdi Cobber » 28/04/16 12:50

si è ok
ecco il mio file

http://www.filedropper.com/plannerbriefing02maurizio

ho modificato il codice:

Sub CopiaDati()
Dim ur As Long
Dim i As Integer
Dim tabaerei As Range
Set tabaerei = Worksheets("tabaereisimpler").Range("a6:i319")
For i = 4 To 12
Cells(5, i).Value = Application.WorksheetFunction.VLookup(Worksheets("Planner").Range("a6").Value, tabaerei, i - 3, False)
Next i
End Sub
per aggiungere il nome dell'aereo
ora da qui posso continuare e modificare il programmino delle tratte....di volo
Cobber
Utente Junior
 
Post: 14
Iscritto il: 27/04/16 09:10

Sponsor
 

Re: Macro per estrarre dati da una tabella e copiarli

Postdi alfrimpa » 28/04/16 13:19

Quindi tutto funziona correttamente?

Ribadisco il mio consiglio: è meglio non cliccare il pulsante per la copia dati ma effettuare la copia automaticamente al variare dell'aereo scelto nella tendina.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 841
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Macro per estrarre dati da una tabella e copiarli

Postdi Cobber » 28/04/16 13:22

si penso che si possa omettere quel pulsante
e tornare quindi alla tua pimitiva subroutine
ora ci provo
ciao
Cobber
Utente Junior
 
Post: 14
Iscritto il: 27/04/16 09:10

Re: Macro per estrarre dati da una tabella e copiarli

Postdi Cobber » 28/04/16 13:30

è questa la routine?
Codice: Seleziona tutto
Sub CopiaDati()
Dim ur As Long
Dim i As Integer
Dim tabaerei As Range
Set tabaerei = Worksheets("tabaereisimpler").Range("a6:i319")
ur = Cells(Rows.Count, 3).End(xlUp).Row
For i = 4 To 12
    Cells(5, i).Value = Application.WorksheetFunction.VLookup(Worksheets("Planner").Range("a3").Value, "tabaereisimpler", i - 1, False)
Next i
End Sub
Cobber
Utente Junior
 
Post: 14
Iscritto il: 27/04/16 09:10

Re: Macro per estrarre dati da una tabella e copiarli

Postdi alfrimpa » 28/04/16 13:35

Per evitare equivoci ti allego il file

http://www.filedropper.com/plannerbriefing01alfredo1
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 841
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Macro per estrarre dati da una tabella e copiarli

Postdi Cobber » 28/04/16 15:27

Grazie!
tutto ok!
Cobby
Cobber
Utente Junior
 
Post: 14
Iscritto il: 27/04/16 09:10

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "Macro per estrarre dati da una tabella e copiarli":


Chi c’è in linea

Visitano il forum: patel, Zer0Kelvin e 29 ospiti