Risultati da 1 a 8 di 8

Discussione: Ricerca e copia di numeri



  1. #1
    L'avatar di Giuliano
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Bergamo
    Età
    41
    Messaggi
    20
    Versione Office
    Excel 2010
    Likes ricevuti
    2
    Likes dati
    3

    Ricerca e copia di numeri

    Ciao a tutti,
    sono di nuovo qui a chiedere aiuto. Finché si tratta di registrare macro è molto semplice. Quando le operazioni diventano più complesse non riesco a orientarmi nel mondo VBA. Io ricevo mensilmente dei tabulati in pdf che converto in Excel (vedi allegato).
    Avrei bisogno di una macro che nella colonna A mi copia solo i numeri (definiti Num Aziendale) in un foglio2 incolonnandoli uno sotto l'altro.
    Il problema è che:
    - questi valori non stanno sempre nelle celle A pari (per es. nel file allegato nella prima pagina il numero si trova in A10, nella seconda pagina il numero si trova in A45, ecc... le pagine si riferiscono al file pdf originale)
    - l'elenco di numeri varia di volta in volta (in questo caso i numeri sono 100, ma possono variare da 10 a 1000)
    - non vanno copiati i numeri che si trovano, sempre nella colonna A, in fondo al tabulato che appartengono a tabelle riassuntive (per es. A228, A235 e A239)

    Il resto dei dati riuscirò poi a copiarli nel foglio2 usando la funzione CERCA.VERT

    Grazie a chi riesce ad aiutarmi,
    Giuliano
    File Allegati File Allegati

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3339
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da Giuliano Visualizza Messaggio
    Ciao a tutti,
    sono di nuovo qui a chiedere aiuto. Finché si tratta di registrare macro è molto semplice. Quando le operazioni diventano più complesse non riesco a orientarmi nel mondo VBA. Io ricevo mensilmente dei tabulati in pdf che converto in Excel (vedi allegato).
    Avrei bisogno di una macro che nella colonna A mi copia solo i numeri (definiti Num Aziendale) in un foglio2 incolonnandoli uno sotto l'altro.
    Il problema è che:
    - questi valori non stanno sempre nelle celle A pari (per es. nel file allegato nella prima pagina il numero si trova in A10, nella seconda pagina il numero si trova in A45, ecc... le pagine si riferiscono al file pdf originale)
    - l'elenco di numeri varia di volta in volta (in questo caso i numeri sono 100, ma possono variare da 10 a 1000)
    - non vanno copiati i numeri che si trovano, sempre nella colonna A, in fondo al tabulato che appartengono a tabelle riassuntive (per es. A228, A235 e A239)

    Il resto dei dati riuscirò poi a copiarli nel foglio2 usando la funzione CERCA.VERT

    Grazie a chi riesce ad aiutarmi,
    Giuliano
    Ciao Giuliano, forse sarebbe il caso prima di tutto di riorganizzare il foglio perchè così com'è strutturato la cosa è molto ardua.
    Prima di tutto sarebbero da togliere tutte le intestazioni lasciando solo quelle all'inizio e poi sarebbe il caso di togliere dal fondo le medie di gruppo e magari metterle su un altro foglio. Così facendo si avranno solo i dati che bisogna analizzare ed allora sì che è semplice ottenere quanto hai chiesto.

    Fammi sapere.

    Ciao

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  3. #3
    L'avatar di Giuliano
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Bergamo
    Età
    41
    Messaggi
    20
    Versione Office
    Excel 2010
    Likes ricevuti
    2
    Likes dati
    3
    Ciao,
    il foglio è creato tal quale dall'export del pdf fatto con adobe. Quello che dici tu ha senso, però se elimino tabelle e intestazioni mi viene più semplice creare delle funzioni nel foglio2 che copiano direttamente i dati. Nel file allegato ho fatto così.
    Quello che vorrei evitare io è di dover cancellare tutte le righe che non contengono numeri che, per tabulati con più di 1000 numeri, possono essere numerose.
    Lo so...sono lavativo!
    File Allegati File Allegati

  4. #4
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    812
    Versione Office
    2016 64bit
    Likes ricevuti
    147
    Likes dati
    53
    Premesso che ora il punto di partenza è fisso (riga 10) e che lo stop avviene in corrispondenza della cella contenente "Medie di gruppo" che sembra essere una costante, una macro così messa in un modulo vba potrebbe andarti bene:
    Codice: 
    Option Explicit
    
    Sub Trova_Numeri()
    
        Dim x As Long: x = 10           'prima riga con dati (eventualmente adeguare il numero riga)
        Dim pru As Long                 'prima riga utile foglio destinazione
        Dim wsh1 As Worksheet
        Dim wsh2 As Worksheet
        
        Set wsh1 = Sheets("Foglio1")      'eventualmente adeguare alla situazione
        Set wsh2 = Sheets("Foglio2")      'eventualmente adeguare alla situazione
            
        Do While Not wsh1.Range("A" & x) = "Medie di gruppo"
            If Not IsEmpty(wsh1.Range("A" & x)) Then
                If IsNumeric(wsh1.Range("A" & x)) Then
                    pru = pru + 1
                    wsh1.Range("A" & x).Copy Destination:=wsh2.Range("A" & pru)
                End If
            End If
            x = x + 1
        Loop
        MsgBox "Completato, trovati " & pru & " numeri."
        
    End Sub

  5. #5
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Perdonami, Giuliano;
    ma, se vuoi semplicemente riportare i Numeri presenti nella Colonna "A" del Foglio di lavoro "Foglio1" nella Colonna "A" del Foglio di lavoro "Foglio2", hai pensato di:
    copiare la Colonna "A" del Foglio di lavoro "Foglio1" nella Colonna "A" del Foglio di lavoro "Foglio2"; poi:

    - Selezioni tutta la Colonna "A" del Foglio di lavoro "Foglio2"
    - F5
    - Speciale
    - Celle vuote
    - OK
    - Ribbon "HOME"
    - Elimina ▼
    - Elimina righe foglio


    A disposizione.

    Buon fine settimana.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  6. #6
    L'avatar di Giuliano
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Bergamo
    Età
    41
    Messaggi
    20
    Versione Office
    Excel 2010
    Likes ricevuti
    2
    Likes dati
    3
    grazie Rollis13,
    la macro così come l'hai scritta funziona perfettamente per quello che mi serve.
    Giuliano

  7. #7
    L'avatar di Giuliano
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Bergamo
    Età
    41
    Messaggi
    20
    Versione Office
    Excel 2010
    Likes ricevuti
    2
    Likes dati
    3
    Ciao Giuseppe,
    ho pensato a tutte le alternative per ricopiare i dati della colonna A, ma mi serviva un modo automatico per farlo perché la quantità di fogli che devo analizzare è elevata.
    Puoi chiamarla pigrizia!

    Buon fine settimana

    Giuliano

  8. #8
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    812
    Versione Office
    2016 64bit
    Likes ricevuti
    147
    Likes dati
    53
    Mi fa piacere :285: che basti dato che il codice è stringato (per non dire "giusto" per i dati che hai a disposizione).

Discussioni Simili

  1. [Risolto] ricerca numeri maggiori dentro le celle?
    Di corfurio nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 10/02/17, 12:05
  2. Macro che mi deve restituire i numeri 29 30 31 + copia formula da cella.
    Di Tony70 nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 16/07/16, 19:19
  3. Aiutino per ricerca numeri in tabella
    Di LELLOMARINI nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 18/04/16, 08:50
  4. Ricerca numeri mancanti
    Di antonysameli nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 16/12/15, 22:44
  5. macro copia-incolla in Ricerca Obiettivo
    Di fbjaspar nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 08/11/15, 10:46

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
  •