Macro - Extração de dados

Olá pessoal, tudo bem?
Sou novo aqui, trabalho com TI, mais é na área de Infraestrutura. Estou querendo desenvolver uma macro para me auxiliar em uma tarefa. Eu nunca tinha mexido com macros ou VBA, mas como tenho noções de programação, consegui fazer algumas coisas, e também pesquisando.

Bom, vamos ao meu cenário( Não liguem para a bagunça de código hehe).


Tenho a planilha PLAN5 com as informações abaixo. A coluna ANALISE vem em branco a principio, e é preenchida por mim. Por exemplo, eu digito T1, ou seja eu gostaria de ter informações relacionadas a informação da palavra que está na coluna T1 para o respectivo usuário (campo "user").
EXEMPLO 1: Caso eu digite T1 na celula D2, eu gostaria de ter informações a respeito da palavra que está em B2, ou seja "ME21", para o usuário MARIN, que é o nome digitado na celula A2.

EXEMPLO 2: Caso eu digite T1 na celula D3, eu gostaria de ter informações a respeito da palavra que está em B3, ou seja "ME22", para o usuário MARIN, que é o nome digitado na celula A3. Assim por diante.



Aonde está as informações que eu falo? Na planilha PLAN6. Vejam a imagem abaixo. Na coluna PERFIL, está a informação que eu gostaria de "extrair" com relação a palavra que eu havia indicado anteriormente. Usando o mesmo exemplo anterior, EXEMPLO 1 que citei acima, percebam que na coluna PERFIL, existem informações relacionada a ME21 para o usuário MARIN ( YSABB_S100_FIN_W_ANALST e YSABB_S100_PUW_W_POST). Eu quero extrair exatamente essas informações para uma terceira planilha.




Esta imagem abaixo é a PLAN7. Ela irá receber as informações conforme colunas abaixo. Na coluna USER, deve vim preenchido o nome do usuário correspondente a informação (No nosso exemplo, seria o usuário MARIN), e na coluna ROLE deve vir a informação que eu extrair da planilha PLAN6, sempre correspondente ao usuário.


Por enquanto isto foi o que eu consegui:

Código:

Sub Vamos()
Dim lin As Integer
Dim p As Integer
Dim teste As String
Dim esse As String
Dim m As Integer
Dim opa As String
Dim ax As Integer
Dim ul As String
Dim z As Integer
Dim x As Integer
Dim n As Integer
Dim y As Integer


ax = 1
lin = 2
p = 2
m = 2
n = 2
y = 2

Application.ScreenUpdating = False
Plan5.Activate
Range("A1").Select

Do Until Cells(lin, 1) = ""
    teste = Cells(lin, 1)
    If Cells(lin, 4) = "T1" Then GoTo line1 Else GoTo line2
       
line1:
        esse = Plan5.Cells(lin, 2)

        Do Until Plan6.Cells(p, 1) = ""
        If Plan6.Cells(p, 1) = teste And Plan6.Cells(p, 3) = esse Then Plan7.Cells(p, 2) = Plan6.Cells(p, 2)
        p = p + 1
        Loop
   
    For z = 2 To 10000
      If Plan7.Cells(z, 2) <> "" Then Plan7.Cells(z, 1) = teste
    Next z
   
  'For x = 2 To 5000
  '  Plan7.Activate
  '  If Plan7.Cells(x, 1) = "" Then Plan7.Rows(x).Select
  '  Selection.EntireRow.Delete
  'Next x
   
line2:
'        esse = Plan5.Cells(lin, 2)
'
'      Do Until Plan6.Cells(p, 1) = ""
'        If Plan6.Cells(n, 1) = teste And Plan6.Cells(n, 3) = esse Then Plan7.Cells(n, 2) = Plan6.Cells(n, 2)
'        n = n + 1
'        Loop
'
'  For y = 2 To 10000
'      If Plan7.Cells(y, 2) <> "" Then Plan7.Cells(y, 1) = teste
'  Next y
       
   
    lin = lin + 1
    Loop

   
End Sub

* Line2 está comentada, ela não esta funcionando, ela deve ser para caso eu digite T2 na coluna analise da PLAN5. Gostaria que ela funciona-se também


Esse código(até a parte que funciona rsrs) me traz o seguinte resultado.


Percebam que, eu consegui listar a informação do EXEMPLO 1. Mas existem alguns problemas:

• Ele está deixando linhas em branco, eu gostaria de exclui-las.

• Ele está está "lendo" somente a primeira analise T1. Percebam que na segunda analise da PLAN5 eu também digitei T1, naquele caso, eu gostaria de ter informações referente a palavra ME22, e ele não me trouce a informação final a respeito dela para a planilha PLAN7.

• Eu gostaria que o código também identifica-se caso eu digite T2.

Pessoal, conseguem me ajudar, por favor? Estarei esclarecendo quaisquer duvidas a respeito do meu processo, sei que parece um pouco confuso, mas espero ter deixado claro.

Dowload da planilha : h t t p : / / w w w . s e n d s p a c e . c o m/file/tchlsg

Boa tarde!!

Ainda não entendi muito bem, mas acho que você está falando de uma lista condicionada...

Isso talvez te ajude..
http://www.linhadecodigo.com.br/artigo/1193/validacao-de-dados-excel-2007.aspx
Caso não te ajude então por favor, poste seu arquivo modelo em site gratuito como sendspace e outros e nos mande o link.


Att

Olá amigo,

Obrigado pela resposta, mas infelizmente não é lista condicionada. Vou hospedar minha planilha conforme sua orientação e inclusive vou editar minhas imagens com comentários, para tentar deixar mais claro.

Assim que eu tiver feito isto, irei editar o post, um momento.

Atualizado:

- Imagens com comentários.

- Adicionado link para download da minha planilha.

Alguém consegue me dar uma luz? Obrigado

Bom dia!!!

Eu entendi o que quer, agora preciso saber de duas coisas.

É necessário a coluna C? , tem uma maneira melhor onde poderá colocar o usuário e a transação (final estamos falando do SAP?), como vários critérios, e um filtro via VBA, trará o resultado de sua busca.


Se você ainda insistir na coluna C, então todas as linhas das colunas de A até D, servem como critério?

Se for então os dados ficaram sobre postos, um em baixo do outro na Plan7?

Att

alexandrevba escreveu:

Bom dia!!!

Eu entendi o que quer, agora preciso saber de duas coisas.

É necessário a coluna C? , tem uma maneira melhor onde poderá colocar o usuário e a transação (final estamos falando do SAP?), como vários critérios, e um filtro via VBA, trará o resultado de sua busca.


Se você ainda insistir na coluna C, então todas as linhas das colunas de A até D, servem como critério?

Se for então os dados ficaram sobre postos, um em baixo do outro na Plan7?

Att

Bom dia amigo !
Segue minhas respostas em azul.

1)Estamos falando de SAP?
Exatamente ! É um processo de analise de conflitos de transações por usuário.

2)É necessário a coluna C?
Sim. Por exemplo, se eu digitar T2, na coluna D, eu gostaria de salvar em uma variável o que estiver na coluna C. Tem que ser "volátil"
T1 na coluna D = Guardar na variável o que estiver na coluna B
T2 na coluna D = Guardar na variável o que estiver na coluna C


3)Todas as linhas das colunas de A até D, servem como critério?
Exato!


4)Se for então os dados ficaram sobre postos, um em baixo do outro na Plan7?
Exato!

Alguém, por favor? rsrs..