[EXIBIR OS DADOS COM STATUS PENDENTE EM OUTRA ABA.]

Em 26/06/2019 em 20:55, Patropi disse:

Boa noite

Poste a planilha num site como:

www.sendspace.com

e depois cole o link aqui no fórum.

[]s

Boa tarde!

 

Segue o link para baixar a planilha, conforme solicitou:

https://www.sendspace.com/file/jq39li 

Obrigado!

[EXIBIR OS DADOS COM STATUS PENDENTE EM OUTRA ABA.]

Alyson, como envio a planilha? Os tipos de arquivos permitidos, não inclui do excel.

Grato pelo apoio.

[EXIBIR OS DADOS COM STATUS PENDENTE EM OUTRA ABA.]

Em 04/06/2019 em 17:49, Alyson Ronnan Martins disse:

Primeiro usando o For na tabela para achar as demandas que estejam em andamento:

uLinhaDemanda = Sheets("Demanda").Cells(Rows.Count, "L").End(xlup).row

for x = 2 to uLinhaDemanda step 1
  If Sheets("Demanda").Cells(x, "L").Value = "Andamento" then
    'lançar os dados da linha atual na outra planilha
    uLinhaHome = Sheets("Home").Cells(Rows.Count, "A").End(xlup).Row
    With Sheets("Home")
      .cells(uLinhaHome, "A").Value = Sheets("Demanda").Cells(x, "A").value
      'Coloque as outras colunas aqui
    Enf With

next x

Olha se consegue lançar os dados na outra tabela.

Ps. Escrevi usando o celular no ônibus então pode ir algum erro.

Alyson obrigado pelo retorno e desculpe a demora. 

Tentei da forma que me orientou mas não funcionou, na verdade ele não está lançando os dados na aba "Home". 

Meu código ficou assim:

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub Atualiza_Pendente()

Dim uLinhaDemanda As Integer
Dim iLinha As Integer
Dim uLinhaHome As Integer

uLinhaDemanda = Sheets("Demanda").Cells(Rows.Count, "L").End(xlUp).Row

For iLinha = 2 To uLinhaDemanda Step 1
    If Sheets("Demanda").Cells(iLinha, "L").Value = "ANDAMENTO" Then
        'lançar os dados da linha atual na outra planilha
    uLinhaHome = Sheets("Home").Cells(Rows.Count, "A").End(xlUp).Row
    
    With Sheets("Home").Cells(uLinhaHome, "A").Value = Sheets("Demanda").Cells(iLinha, "A").Value
    'Coloque as outras colunas aqui
    End With
    End If
Next iLinha
    
End Sub

[EXIBIR OS DADOS COM STATUS PENDENTE EM OUTRA ABA.]

Boa @Alyson Ronnan Martins , obrigado pelo retorno.

Se puder pelo ao menos me dar um norte com a melhor opção nesta situação já me ajudará.

Como solicitou segue as imagens:

Img1 - Está é a aba de home onde serão exibidos os dados com o status pendente da demanda. 

Img2 - Está é a aba de onde irei buscar as informações para mostrar na aba home. Os dados são fictícios, são inseridos através de um formulário que já está funcionando.  

[EXIBIR OS DADOS COM STATUS PENDENTE EM OUTRA ABA.]

Boa tarde a todos.

Como mencionei no título do tópico, estou com dificuldade em desenvolver um código que me ajude na planilha de controle de demandas que estou criando. Gostaria antes de tudo agradecer o tempo empregado para me ajudar e que eu procurei nos outros tópicos mas não achei algo que me ajudasse. 

Valos lá!

Criei uma planilha onde cadastro as demandas / atividades solicitadas para meu setor, nesta, possui três abas: Home, Demandas e Atualizações. Quando entro com uma demanda, insiro as informações na aba "Demanda" e nesta aba possui uma coluna "Status" que inicialmente já é inserido como "Pendente". O que eu quero fazer é que as informações das demandas que estão com status pendente sejam atualizadas na aba "Home" . 

Exemplo: Entraram 10 demandas até hoje, mas somente duas estão com status pendente e as outras status encerrado, então os dados dessas duas demandas pendentes irão aparecer na aba "Home", e a medida que eu atualize o status para encerrado ela deixe de exibir na Home.

Caso saibam como me ajudar ou algum post com essas informações, ficarei muito agradecido. 

 

Abrç!!!