PopAds.net - The Best Popunder Adnetwork

Match tra due colonne Excel

  • Problema di fabio66
    Salve.
    Avendo io 2 colonne excel di etichette non ordinate io vorrei che esse si confrontassero , diciamo a1 confrontato con tutte le celle B, a2,a3 ecc. e nel momento in qui ci fosse lo stesso dipo di etichetta nella cella adiacente in 3 colonna C venisse scritto un codice che io inserisco nella condizione IF Praticamente come 2 matrici solo che sto tentando di capire come ci si muove sulla griglia excel e come si scrivono i cicli.
    Grazie se qualquno ha del tempo per mostrarmi la procedura.
    Salve

    di Mauro
    Prova a vedere se ti può tornare utile:
    La macro esegue un confronto tra la colonna B e la colonna C preventivamente ordinate, se trova corrispondenza scrive sulla colonna D.

    Sub confronta1()
    '
    Call PulisciRiga("D")

    Columns("B:B").Select
    Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Columns("C:C").Select
    Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Range("A1").Select
    indi = 1
    jndi = 1
    indiconfronto = 1
    Do While Range("B" & indi).Text <> ""
    Do While ((Range("C" & jndi).Text <> "") And (Range("B" & indi).Text > Range("C" & jndi).Text))
    jndi = jndi + 1
    Loop
    If (Range("B" & indi).Text = Range("C" & jndi).Text) Then
    Range("D" & indiconfronto) = Range("B" & indi)
    indiconfronto = indiconfronto + 1
    End If
    indi = indi + 1

    Loop
    '
    End Sub

    'Routine che pulisce la colonna dei risultati
    Sub PulisciRiga(RigaDep As String)
    '
    Columns(RigaDep & ":" & RigaDep).Select
    Selection.ClearContents
    Range("A1").Select
    End Sub

    Grazie di fabio66
    Molte Grazie Mauro
    per esserti intrresato al mio problema
    sono un profano di vb e sto' cercando di riuscire ad implementare qualche funzione di excel al difuori dello standard purtroppo non saro' di aiuto ma penso che questo sito sia di buona utilita'.
    Grazie dinuovo
    Saluti.