Risultati da 1 a 5 di 5

Discussione: Estrazione condizionata dei dati da una tabella



  1. #1
    L'avatar di GioPL
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Varsavia
    Età
    42
    Messaggi
    68
    Versione Office
    Excell 2007
    Likes ricevuti
    0
    Likes dati
    23

    Cool Estrazione condizionata dei dati da una tabella

    Ciao smanettoni di Excell-VBA.
    Problemino del giorno.
    Ho una tabella con dei dati, devo estrarre quelle stringhe che in una determinata cella (colonna F) risulta vuota.
    I dati pero' che devo estrarre non sono tutti ma solo quelli in nero (col, B, D, E).
    Ho iniziato a scrivere una MACRO ma ...mi arrendo. Posso solo cercare di copia-incollare soluzioni altrui (..prometto che studiero' il VBA....vedendo cosa riuscite a fare...!!)
    Nel foglio 3 ho messo come dovrebbe essere il risultato.

    Grazie per l'aiuto.
    File Allegati File Allegati

  2. #2

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923

    Re: Estrazione condizionata dei dati da una tabella

    Ciao GioPL,
    prendendo la tua macro come base, puoi modificarla in questo modo:

    Codice: 
    Sub Ricerca()
    Dim Ur As Long, Riga As Long
    Dim sh1 As Worksheet: Set sh1 = Worksheets("IN")
    Dim sh2 As Worksheet: Set sh2 = Worksheets("OUT")
    Dim x As Integer
    
    
    Ur = sh1.Range("B" & Rows.Count).End(xlUp).Row
    With sh2
        .Range("B1:D" & Rows.Count).ClearContents
        Riga = 1
        For x = 1 To Ur
            If sh1.Cells(x, 6).Value = "" Then
                .Cells(Riga, 2) = sh1.Range("B" & x).Value
                .Cells(Riga, 3) = sh1.Range("D" & x).Value
                .Cells(Riga, 4) = sh1.Range("E" & x).Value
                Riga = Riga + 1
            End If
        Next x
    End With
    
    
    Set sh1 = Nothing
    Set sh2 = Nothing
    End Sub
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  3. I seguenti utenti hanno dato un "Like"


  4. #3

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

    Re: Estrazione condizionata dei dati da una tabella

    Ci sei andato vicino
    Codice: 
    Sub Ricerca()
    Dim Ur As Long
    Dim sh1 As Worksheet: Set sh1 = Worksheets("IN")
    Dim sh2 As Worksheet: Set sh2 = Worksheets("OUT")
    Dim x As Long
    Dim y As Long
    
    
    Ur = sh1.Range("B" & Rows.Count).End(xlUp).Row
        For x = 1 To Ur
            If sh1.Cells(x, 6) = "" Then
            y = y + 1
            sh2.Cells(y, 2) = sh1.Cells(x, 2)
            sh2.Cells(y, 3) = sh1.Cells(x, 4)
            sh2.Cells(y, 4) = sh1.Cells(x, 5)
            End If
        Next x
    Set sh1 = Nothing
    Set sh2 = Nothing
    End Sub
    EDIT: Scusa Tore, non avevo aggiornato

  5. I seguenti 4 utenti hanno dato un "Like" a Rubik72 per questo post:


  6. #4
    L'avatar di GioPL
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Varsavia
    Età
    42
    Messaggi
    68
    Versione Office
    Excell 2007
    Likes ricevuti
    0
    Likes dati
    23

    Re: Estrazione condizionata dei dati da una tabella

    Grazie per ..l'aiuto. Siccome mi piace capirle le macro, la studio per benino.
    With sh1... vuole dire che come default lavoriamo ora fino alla Endwith con il foglio sh1?

    ----------Post unito in automatico----------

    Entrambe geniali quanto semplici. Ho capito il funzionameto e la implementero' nel mio foglio dati.
    Vediamo cosa ne pensa il...mio "capo" !

    Grazie a tutti.

  7. #5

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923

    Re: Estrazione condizionata dei dati da una tabella

    Citazione Originariamente Scritto da GioPL Visualizza Messaggio
    Grazie per ..l'aiuto. Siccome mi piace capirle le macro, la studio per benino.
    With sh1... vuole dire che come default lavoriamo ora fino alla Endwith con il foglio sh1?

    ----------Post unito in automatico----------

    Entrambe geniali quanto semplici. Ho capito il funzionameto e la implementero' nel mio foglio dati.
    Vediamo cosa ne pensa il...mio "capo" !

    Grazie a tutti.
    Ciao,
    si, quel "With sh1.....end with" vuol dire quello che hai detto, quindi in quelle righe per riferirti ad un oggetto del foglio "sh1" userai semplicemente il punto (.)

    In sostanza i due codici (il mio e quello di Rubik) sono identici.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

Discussioni Simili

  1. [Risolto] estrazione dati da pdf a excel e tabella per colonne.
    Di mb63 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 02/02/17, 21:55
  2. Estrazione dati multipli da singola tabella
    Di mrgiaco nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 24/10/16, 10:10
  3. estrazione condizionata dati e somma valori per ogni singolo cliente
    Di GioPL nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 19/07/16, 16:26
  4. Estrazione dati da tabella con duplicati
    Di Rubik72 nel forum Domande su Excel in generale
    Risposte: 12
    Ultimo Messaggio: 20/02/16, 20:52
  5. Estrazione dati da tabella
    Di alfrimpa nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 19/02/16, 22:14

Tag per Questa Discussione

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
  •