Macro per estrarre dati da una tabella e copiarli

[Cobber]

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

[alfrimpa]

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.

[Cobber]

si penso che si possa omettere quel pulsante
e tornare quindi alla tua pimitiva subroutine
ora ci provo
ciao

[Cobber]

è 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

[alfrimpa]

Per evitare equivoci ti allego il file

http://www.filedropper.com/plannerbriefing01alfredo1

[Cobber]

Grazie!
tutto ok!
Cobby