+ Rispondi al Thread
Pagina 3 di 3 primaprima 123
Visualizzazione dei risultati da 21 a 24 su 24

Discussione: Ricerca e estrapolazione di determinate righe

  1. #21
    L'avatar di valetin
    valetin non è in linea Novello
    Post
    11
    dunque, con questa macro, mi corregge come da condizioni, io però vorrei che sul foglio settaggi, ci siano quelli originali, mentre sul foglio pcm, i risultati corretti, è possibile?

  2. #22
    PaoloTalini non è in linea Scribacchino
    Luogo
    Pontedera (PI)
    Post
    862
    Quote Originariamente inviato da valetin Visualizza il messaggio
    dunque, con questa macro, mi corregge come da condizioni, io però vorrei che sul foglio settaggi, ci siano quelli originali, mentre sul foglio pcm, i risultati corretti, è possibile?
    Hai avuto un ripensamento ?
    Leggendo:
    'Colonna A= la colonna A del foglio settaggi
    'Colonna B= la colonna B (con la correzione utilizzando le relazioni indicate) del foglio settaggi
    'Colonna C= la colonna C (con la correzione utilizzando le relazioni indicate) del foglio settaggi
    'Colonna D= la colonna D (con la correzione utilizzando le relazioni indicate) del foglio settaggi
    sembrava evidente il contrario. Induceva al dubbio, comunque ti avevo spiegato come fare.
    Il codice:

    codice:
    Sub CopiaForABCDrip()
        '_______________'
        Dim ur As Long
        Dim idiR As Long
        Dim con As Long
        Dim riga As Long
        Dim cC As Long
        '_______________'
        ur = Sheets("Settaggi").Range("A" & Rows.Count).End(xlUp).Row
        con = 7 'indice colonna G dove verificare la presenza di 'X'
        riga = 5
        For idiR = 5 To ur
            If UCase(Sheets("Settaggi").Cells(idiR, con)) = "X" Then
                Sheets("PCM").Cells(riga, 1) = Sheets("Settaggi").Cells(idiR, 1)
                
                riga = riga + 1
                'Colonna A= la colonna A del foglio settaggi
                'Colonna B= la colonna B (con la correzione utilizzando le relazioni indicate) del foglio settaggi
                'Colonna C= la colonna C (con la correzione utilizzando le relazioni indicate) del foglio settaggi
                'Colonna D= la colonna D (con la correzione utilizzando le relazioni indicate) del foglio settaggi
                Sheets("PCM").Cells(riga, 1) = Sheets("Settaggi").Cells(idiR, 1)
                Sheets("PCM").Cells(riga, 1) = Sheets("Settaggi").Cells(idiR, 2)
                Sheets("PCM").Cells(riga, 1) = Sheets("Settaggi").Cells(idiR, 3)
                Sheets("PCM").Cells(riga, 1) = Sheets("Settaggi").Cells(idiR, 4)
                'Correggi in base alla colonna F=6
                'è 0 deve essere NO NO NO
                'è 1 deve essere YES YES YES ( a condizione che nella colonna E ci sia scritto CDC)
                'è 1 deve essere YES YES NO (a condizione che nella colonna E ci sia scritto NO
                'è 2 deve essere YES NO YES
                'è 3 deve essere YES NO YES
                Select Case Sheets("Settaggi").Cells(idiR, 6)
                    Case Is = 0
                        Sheets("Settaggi").Cells(idiR, 2) = "NO"
                        Sheets("Settaggi").Cells(idiR, 3) = "NO"
                        Sheets("Settaggi").Cells(idiR, 4) = "NO"
                    Case Is = 1
                        Sheets("Settaggi").Cells(idiR, 2) = "YES"
                        Sheets("Settaggi").Cells(idiR, 3) = "YES"
                        Select Case Sheets("Settaggi").Cells(idiR, 5)
                            Case Is = "CDC"
                                Sheets("Settaggi").Cells(idiR, 4) = "YES"
                            Case Is = "NO"
                                Sheets("Settaggi").Cells(idiR, 4) = "NO"
                        End Select
                    Case Is = 2
                        Sheets("Settaggi").Cells(idiR, 2) = "YES"
                        Sheets("Settaggi").Cells(idiR, 3) = "NO"
                        Sheets("Settaggi").Cells(idiR, 4) = "YES"
                    Case Is = 3
                        Sheets("Settaggi").Cells(idiR, 2) = "YES"
                        Sheets("Settaggi").Cells(idiR, 3) = "NO"
                        Sheets("Settaggi").Cells(idiR, 4) = "YES"
                End Select
            End If
        Next
    End Sub
    P. Talini
    __________________________________________________ _______________________________________
    Tutti sanno che una cosa è impossibile da realizzare,
    finché arriva uno sprovveduto che non lo sa e la inventa. (Albert Einstein)

  3. #23
    L'avatar di valetin
    valetin non è in linea Novello
    Post
    11
    Cavolo, funziona.... adesso credo che posso adattarla al mio file, che ovviamente non è quello ma ben più grosso e complesso...adesso ho corretto questo
    codice:
                Sheets("PCM").Cells(riga, 1) = Sheets("Settaggi").Cells(idiR, 1)
                Sheets("PCM").Cells(riga, 1) = Sheets("Settaggi").Cells(idiR, 2)
                Sheets("PCM").Cells(riga, 1) = Sheets("Settaggi").Cells(idiR, 3)
                Sheets("PCM").Cells(riga, 1) = Sheets("Settaggi").Cells(idiR, 4)
    con questo per farli visualizzare accanto e non sotto
    codice:
                Sheets("PCM").Cells(riga, 1) = Sheets("Settaggi").Cells(idiR, 1)
                Sheets("PCM").Cells(riga, 2) = Sheets("Settaggi").Cells(idiR, 2)
                Sheets("PCM").Cells(riga, 3) = Sheets("Settaggi").Cells(idiR, 3)
                Sheets("PCM").Cells(riga, 4) = Sheets("Settaggi").Cells(idiR, 4)
    posso replicare sotto la fine di questa macro con altre celle\fogli (ovviamente modificandola), oppure ne devo creare una'altra?

  4. #24
    PaoloTalini non è in linea Scribacchino
    Luogo
    Pontedera (PI)
    Post
    862
    valetin;
    Cavolo, funziona.... adesso credo che posso adattarla al mio file, che ovviamente non è quello ma ben più grosso e
    posso replicare sotto la fine di questa macro con altre celle\fogli (ovviamente modificandola), oppure ne devo creare una'altra?
    Puoi accodare al codice le nuove istruzioni.
    P. Talini
    __________________________________________________ _______________________________________
    Tutti sanno che una cosa è impossibile da realizzare,
    finché arriva uno sprovveduto che non lo sa e la inventa. (Albert Einstein)

+ Rispondi al Thread
Pagina 3 di 3 primaprima 123

Tag per questa discussione

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi