MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Comparar duas Colunas Excell VBA (RESOLVIDO)

    avatar
    Suidaw
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 31/01/2016

    Comparar duas Colunas Excell VBA (RESOLVIDO) Empty Comparar duas Colunas Excell VBA (RESOLVIDO)

    Mensagem  Suidaw 12/3/2017, 17:34

    Estou querendo comparar as informações de duas Colunas A e B, então criei uma verificação linha por linha, ou seja para A1 o código irá verificar todas as linhas Preenchidas da coluna B, para A2 o o código irá verificar todas as linhas Preenchidas da coluna B, e assim sucessivamente. Para quando a Informação na linha da coluna A for igual, a coluna B independente da linha, o código deveria retorna na Coluna C na mesma linha que A o Texto Suidaw. Exemplo
      A1: 1   B1: 3   C1:
      A2: 2   B2: 5   C2:
      A3: 3   B3: 8   C3: Suidaw
      A4: 4   B4:      C4:
      A5: 5   B5:      C5: Suidaw

    Tentei dessas duas Formas
    1° Código

    Sub Find_Matches()
    lin = 1
    w = 1

       Do Until Sheets("Plan1").Cells(lin, 1) = ""
           Do Until Sheets("Plan1").Cells(w, 2) = ""
               If Sheets("Plan1").Cells(lin, 1) = Sheets("Plan1").Cells(w, 2) Then
                  Sheets("Plan1").Cells(lin, 3) = "Suidaw"
               End If
               w = w + 1
           Loop
       lin = lin + 1
       Loop
       
    End Sub

    Resultado: Nada Acontece
    ________________________________________________________
    2° Código

    Sub Find_Matches ()
         Dim CompareRange As Variant, x As Variant, y As Variant
         Matrix = Range("A1:A5")
        CompareRange = Range("B1:B2")
        
         For Each x in Matrix
             For Each y in CompareRange
                 If x = y then
                   Cells(x, 3) = "Suidaw"
             Next y
         Next x
    End Sub

    Resultado :
      A1: 1   B1: 3   C1: Suidaw
      A2: 2   B2: 5   C2: Suidaw
      A3: 3   B3: 8   C3: Suidaw
      A4: 4   B4:      C4:
      A5: 5   B5:      C5:

    Alguém poderia me ajudar? já não sei mais o que fazer.


    Última edição por Suidaw em 12/3/2017, 18:33, editado 1 vez(es)
    avatar
    Suidaw
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 31/01/2016

    Comparar duas Colunas Excell VBA (RESOLVIDO) Empty Re: Comparar duas Colunas Excell VBA (RESOLVIDO)

    Mensagem  Suidaw 12/3/2017, 18:32

    Consegui resolver com esse código aqui.

    Sub Find()
    Dim ComparaRange As Variant, Matrix As Variant, x As Variant, y As Variant
    Set ComparaRange = Range("B1:B3")
    Set Matrix = Range("A1:A5")
       For Each x In Matrix
           For Each y In ComparaRange
               If x = y Then
                   x.Offset(0, 3) = "Suidaw"
               End If
           Next y
       Next x

    End Sub

      Data/hora atual: 21/11/2024, 19:20