Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Macro - Extração de dados

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
BK1171



Mensagens : 5
Data de inscrição : 03/11/2012

MensagemAssunto: Macro - Extração de dados   Sab Nov 03, 2012 9:24 pm

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 Crying or Very sad


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


Última edição por BK1171 em Dom Nov 04, 2012 4:57 am, editado 3 vez(es)
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Macro - Extração de dados   Sab Nov 03, 2012 10:11 pm

Boa tarde!!

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

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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
BK1171



Mensagens : 5
Data de inscrição : 03/11/2012

MensagemAssunto: Re: Macro - Extração de dados   Sab Nov 03, 2012 10:34 pm

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.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
BK1171



Mensagens : 5
Data de inscrição : 03/11/2012

MensagemAssunto: Re: Macro - Extração de dados   Dom Nov 04, 2012 5:01 am

Atualizado:

- Imagens com comentários.

- Adicionado link para download da minha planilha.

Alguém consegue me dar uma luz? Obrigado cheers
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Macro - Extração de dados   Dom Nov 04, 2012 1:47 pm

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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
BK1171



Mensagens : 5
Data de inscrição : 03/11/2012

MensagemAssunto: Re: Macro - Extração de dados   Dom Nov 04, 2012 5:17 pm

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!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
BK1171



Mensagens : 5
Data de inscrição : 03/11/2012

MensagemAssunto: Re: Macro - Extração de dados   Sab Nov 10, 2012 5:45 am

Alguém, por favor? rsrs.. Crying or Very sad
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Macro - Extração de dados   Hoje à(s) 10:56 am

Voltar ao Topo Ir em baixo
 
Macro - Extração de dados
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [Resolvido]Criar Macro no Access que importe dados do Excel
» Como criar base de dados?
» Como inserir dados no MEIO de um arquivo txt
» Como colocar mais dados obrigatórios
» Codigo de lançar dados?

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: