Excel Extraír dados com 2 criterios

janiosba · 22 de agosto de 2019

A. B. C. D

1 85 T X ILDA

2. 86. J. R. ANA

3. 86. X. Z.

4. 87. H. I ROSA

Prezados,

Preciso de um código em VBA que possa extrair os nomes, localizados na coluna 'D' e ainda os dados das colunas 'A', da respectiva linha. Obsv. Se a coluna 'D' tiver nome e a coluna 'A' houver repetição do número da linha, extrair os dados da coluna 'B' respectiva linha.

Ex. Ao encontrar ILDA extrair 85

Ao encontrar ANA extrair 86 e ainda

Extrair X da linha seguinte porque o

número 86 repete na linha seguinte.

Atenciosamente

Janio

23 de agosto de 2019

Experimente:

Sub ExtraiDados()
 Dim n As Long
  [G:I] = ""
  For n = 1 To Cells(Rows.Count, 4).End(3).Row
   If Cells(n, 4) <> "" Then
    If Cells(n, 1) = Cells(n + 1, 1) Then
     Cells(Rows.Count, 7).End(3)(2).Resize(, 3).Value = Array(Cells(n + 1, 1), Cells(n + 1, 2), Cells(n, 4))
    Else: Cells(Rows.Count, 7).End(3)(2).Resize(, 2).Value = Array(Cells(n, 1).Value, Cells(n, 4).Value)
    End If
   End If
  Next n
End Sub

janiosba · 23 de agosto de 2019

Osvaldo,

Muito obrigado pela ajuda. Vou implementar no meu trabalho .

Deus abençoe

Janiosba

Patropi · 23 de agosto de 2019

Boa noite @janiosba

Como a resposta do Osvaldo solucionou a tua dúvida, marque o tópico como Resolvido.

Na minha assinatura tem um link para um link com uma instrução de como proceder.

[]s

janiosba · 23 de agosto de 2019

1 hora atrás, Patropi disse:

Boa noite @janiosba

Como a resposta do Osvaldo solucionou a tua dúvida, marque o tópico como Resolvido.

Na minha assinatura tem um link para um link com uma instrução de como proceder.

[]s

3