Risultati da 1 a 8 di 8

Discussione: macro con i cerca-vert



  1. #1
    L'avatar di Giannilima
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Caserta
    Età
    27
    Messaggi
    106
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    3

    macro con i cerca-vert

    salve a tutti
    ho registrato una macro, con alcune azioni, e avrei bisogno di un grande aiuto per poterla scrivere in codice. nella registrazione ho messo 10 celle, cosa importante è che quando vado ad eseguire la macro, se ci sono piu' celle, me le prende tutte.


    spiego un po' la magro
    ho una colonna di codici in A come guida, quindi tutte le altre colonne con i codici si devono allineare con la colonna A.


    grazie in anticipo
    File Allegati File Allegati

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2810
    Versione Office
    Excel 2013
    Likes ricevuti
    1021
    Likes dati
    979

    Re: macro con i cerca-vert

    Citazione Originariamente Scritto da Giannilima Visualizza Messaggio
    [...] nella registrazione ho messo 10 celle, cosa importante è che quando vado ad eseguire la macro, se ci sono piu' celle, me le prende tutte. [...]
    Non ho capito se tu vuoi una selezione sempre di 10 celle oppure no

    Nel primo caso basta ridurre la selezione ad un range di 10 celle in particolare, sostituire:
    Codice: 
    Range("A10").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    con
    Codice: 
    Range("A10:A20").Copy
    P.S. Il registratore è un gran sprecone, si possono eliminare i Select/Selection in un unico comando.
    es:
    Codice: 
    Range("A1").Select
    Selection.Copy
    
    'oppure
    Range("A1").Copy

  3. #3
    L'avatar di Giannilima
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Caserta
    Età
    27
    Messaggi
    106
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    3

    Re: macro con i cerca-vert

    le celle sono molto di più e sempre diverse, nel senso che possono essere 1000 oppure 10000

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2810
    Versione Office
    Excel 2013
    Likes ricevuti
    1021
    Likes dati
    979

    Re: macro con i cerca-vert

    Allora potrebbe andar bene:
    Codice: 
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    oppure tramite variabile che ricerca l'ultima riga piena:
    Codice: 
    Dim uRiga as Long
    
    uRiga=Range("A1" & Rows.Count).End(xlUp).Row 'partendo dall'ultima riga (65536 in Excel 2007, 1048576 per le altre) cerca l'ultima riga non vuota 'combinazione di tasti CTRL+UP
    
    Range("A1:A" & uRiga).Copy

  5. #5
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: macro con i cerca-vert

    Dovrebbe andare bene

    Codice: 
    Sub ordina()
    Dim Ur, X, Iz, val
    Sheets("pr").Activate
    Iz = 11
    Ur = Range("A" & Rows.Count).End(xlUp).Row
    Range("C10:J10").Copy
    Range("L10").PasteSpecial
    For X = Iz To Ur
        Cells(X, 12) = Application.WorksheetFunction.VLookup(Cells(X, 1), Range("C" & Iz & ":D" & Ur), 1, False)
        Cells(X, 13) = Application.WorksheetFunction.VLookup(Cells(X, 1), Range("C" & Iz & ":D" & Ur), 2, False)
        Cells(X, 14) = Application.WorksheetFunction.VLookup(Cells(X, 1), Range("E" & Iz & ":F" & Ur), 1, False)
        Cells(X, 15) = Application.WorksheetFunction.VLookup(Cells(X, 1), Range("E" & Iz & ":F" & Ur), 2, False)
        Cells(X, 16) = Application.WorksheetFunction.VLookup(Cells(X, 1), Range("G" & Iz & ":H" & Ur), 1, False)
        Cells(X, 17) = Application.WorksheetFunction.VLookup(Cells(X, 1), Range("G" & Iz & ":H" & Ur), 2, False)
        Cells(X, 18) = Application.WorksheetFunction.VLookup(Cells(X, 1), Range("I" & Iz & ":J" & Ur), 1, False)
        Cells(X, 19) = Application.WorksheetFunction.VLookup(Cells(X, 1), Range("I" & Iz & ":J" & Ur), 2, False)
    Next X
    MsgBox "fatto"
    End Sub

  6. #6
    L'avatar di Giannilima
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Caserta
    Età
    27
    Messaggi
    106
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    3

    Re: macro con i cerca-vert

    ciao raffaele
    se ho capito bene questo codice mi risparmia i cerca vert?

    ....va bene anche se i prodotti sono 10.000?

  7. #7
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: macro con i cerca-vert

    >>>va bene anche se i prodotti sono 10.000?
    Si, ci metterà pù tempo
    >>>mi risparmia i cerca vert?
    Lo fà il codice con Application.WorksheetFunction.VLookup, nello stesso foglio

  8. I seguenti utenti hanno dato un "Like"


  9. #8
    L'avatar di Giannilima
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Caserta
    Età
    27
    Messaggi
    106
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    3

    Re: macro con i cerca-vert

    @raffaele.......questa è una magia!!
    spero solo di saperlo integrare nella mia macro.
    gli obblighi sono solo: il nome del foglio e le celle da lavorare?

    grazie mille

    a causa di sconvolgimenti (in bene)
    dovrei apportare delle modifiche alla macro


    dovrei trasferire i codici di riferimento da A10 in A1
    codici da allineare dalla cella C10 in G-H-I-J-K-L-M-N (RIGA1)
    ricavato a partire da O1 fino a V1


    alcune informazioni:
    se manca qualche codice, sia nei codici di riferimento o quelli da allineare,
    la macro viene eseguita ugualmente o si blocca e non fa il suo lavoro?

    SALUTI


    almeno è possibile sapere a cosa si riferisce a "Iz = 11" presente nel codice

    saluti
    Ultima modifica fatta da:Giannilima; 29/06/16 alle 11:02 Motivo: ammonimento

Discussioni Simili

  1. [Risolto] Come poter usare l’equivalente di CERCA.VERT in una macro?
    Di cianricc nel forum Domande su Excel VBA e MACRO
    Risposte: 24
    Ultimo Messaggio: 20/01/17, 11:15
  2. [Risolto] Cerca valori che si ripetono in tabella. Formula per arrivare dove il cerca.vert non può
    Di Gatt88 nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 02/12/16, 11:45
  3. [Risolto] cerca vert
    Di Agodan nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 09/10/16, 14:31
  4. [Risolto] Cerca.vert
    Di replay66 nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 17/09/16, 15:52
  5. cerca vert
    Di Lucagiuseppe nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 02/02/16, 18:58

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •