End freccia in basso

Hai un problema con Excel?

Nuova discussione

End freccia in basso
di Giannito data: 25/06/2010
Buongiorno, sto cercando un aiuto, ho la necessità di creare una macro in excel e non conoscendo i codici vba utilizzo la registrazione automatica,tra le opertazioni che la macro mi menorizza uso il comando end freccia in basso end freccia a destra per selezionare ub intervallo di celle che però e variabile in relazione alla quantità di dati. praticamente voglio selezionare due intervalli di date su due fogli distinti e copiarli in un terzo. che comando devo utilizzare? grazie
di Ricky53 (utente non iscritto) data: 26/06/2010
Ciao,
come hai descritto va bene.
la combinazione end+frecci giù ti darà sempre tutti i dati della colonna selezionata.
quindi non capisco quale difficolta hai nel fare copia incolla dopo avere selezionato l'intervallo?
ovviamente devi aver fatto prima la registrazione dei passi di
selezione intervallo
e copia,
selezione altro foglio
e poi incolla.

ciao da ricky53
End freccia in basso
di Giannito (utente non iscritto) data: 26/06/2010
Ciao, hai ragione non mi sono spiegato bene, io facevo una selezione e la copiavo in un foglio vuoto, poi prendevo l'altra selezione, andavo sul foglio copia e facevo end freccia in basso, freccia in basso per scendere di una riga ma nella macro mi registrava la cella in cui copiare che in realta non è sempre la stessa. ho rtisolto con il codice activecell.offset(1, 0).range("a1").select ora funziona. grazie e ciao

Filtro automaticcco
di Giannito (utente non iscritto) data: 27/06/2010
Ciao, ho terminato una macro ma mi da errore, su ub foglio di lavoro applico il filtro automatico, copio i dati filtrati in un'altro foglio ma il codice autofilter mi da errore e non capisco perchè. sapete darmi una spiegazione? i codice evidenziato in giallo è selection.autofilter field:=16,criterial:"si"allego i codici utilizzati, graqzie ciao

Cells.Select
    Selection.ClearContents
    Sheets("export").Select
    Sheets("CopiaExport").Visible = True
    Selection.AutoFilter
    Selection.AutoFilter Field:=16, Criteria1:="si"
    Cells.Select
    Range("E1").Activate
    Selection.Copy
    Range("F20").Select
    Sheets("Posizioni Filtrate").Select
    Cells.Select
    ActiveSheet.Paste
    Sheets("CopiaExport").Select
    Range("F18").Select
    Application.CutCopyMode = False
    Selection.AutoFilter
    Application.Goto Reference:="R1C1"
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Posizioni Filtrate").Select
    Application.Goto Reference:="R1C1"

Vuoi Approfondire?