isabela queiroz

Olá, Estou desenvolvendo uma tabela para acompanhar as pontuações de somas de esforços ao longo de um determinado período de tempo. Este período inclui data, versão e os esforços correspondentes. Gostaria que a tabela se atualizasse automaticamente diariamente, levando em consideração as informações disponíveis. Por exemplo, se houver uma mudança na data, na soma dos esforços ou na versão, a tabela deverá ser atualizada. É importante ressaltar que a versão está associada à data de início e término do período. Este período é definido a cada 15 dias, o que significa que após o preenchimento da primeira data, a cada 15 dias teremos um novo período com uma nova versão (por exemplo, se começamos com a versão 123, a próxima será 124). A ideia é incluir um menu no topo que concentre essas informações e que seja atualizado diariamente, agregando os dados das tabelas abaixo.

@Midori ficaria assim, correto? Sub removerInactive() Const Status1 As Integer = 4 Const Status2 As Integer = 9 Dim Tabela As Range Dim Lin As Long Set Tabela = ThisWorkbook.Sheets("Carga").[A2].CurrentRegion For Lin = Tabela.Rows.Count To 1 Step -1 If Tabela(Linha, Status1) = "inactive" _ And Tabela(Linha, Status2) <> "In Process - Qual" Then Tabela.Rows(Lin).EntireRow.Delete End If Next Lin

@Midori Houveram algumas mudanças nas regras da tabela e precisava que todas linhas que tiverem "inactive" na coluna 4 sejam apagadas, com a execeção das linhas que tiverem "In Process - Qual" na coluna 9, teria como me ajudar? todos status abaixo, devem sumir a linha quando aparecer junto do "inactive" Cancelled End of Production Disqualified Hold apenas no caso do status "In Process - Qual" que é uma exeçaõ

@Midori para eu definir em qual planilha vai ocorrer eu coloco Worksheets("Carga") em que parte do codigo?

@Midori precisava que fosse um loop ate a ultima linha preenchida, porque dependen muito a quantida de de itens que vem. E teria a linha toda teria que ser removida

Bom dia! tenho essa tabela aqui com alguns itens, precisava que toda vez que aparecesse um "inactive" na coluna 4 com "cancelled" na coluna 6, fosse apagado, mas somente se esses dois aparecer juntos na mesma linha, se for um inactive com um "deplete stock" na coluna 6, mantem. preciso que seja feito em VBA para adicionar no meu codigo.

Boa Tarde! Preciso criar um Fluxo no Power Automate para suporte de uma area, que quando um forms for preenchido com a solicitação de ajuda, as infos serem adicionadas do forms sejam adicionadas em uma lista do sherepoint, e em seguida envie um email para os responsaveis da area avisando que existe uma nova solicitação e apos isso o responsavel verificar SE vai ser aprovado OU se vai mandar novamente para o solicitante da ajuda precisa enviar mais informações, assim quando o solicitante retornar (ou se não precisar enviar novamente para o solicitante) o fluxo retornar a resposta para ser finalizado, rejeitado ou pendente, e quando for finalmente finalizado enviar um email avisando para o solicitante e para a area de suporte que aquela solicitação foi encerrada, sera que isso é possível? ja tenho o Forms pronto com tudo que preciso e o List do SherePoint que vão os itens, ja fiz a conexao do SherePoint e do PowerAutomate mas como não conheço muito bem o PowerAutomate eu não sei quantas ações tem disponivel para usar.

@Midori deu certinho agora, só tirei o + 1 daqui porque começou a pular a primiera celula da tabela depois do cabeçalho, muito obrigada!!

@Midori Notei assim que postei, verifica o comentario acima, por favor

@Midori Atualização: Consegui arrumar um erro que tinha encontrado mas era eu que tinha colocado em ordem errada, assim ta funcionando, poderia verificar se esta tudo certo com o codigo e não aparenta apresentar erros futuros? E eu notei que algumas das celulas da minha tabela original tem celulas brancas, ai o codigo acaba quando chega nela, sendo que é pra continuar para a proxima, como faço para ignorar as celulas vazias e continuar o codigo? Sub main () Dim Item As Range Set Item = ThisWorkbook.Sheets("Carga").Cells.Find( _ What:="Add item", LookIn:=xlValues, LookAt:=xlWhole) If Not Item Is Nothing Then Set Item = Item(2) While Item <> "" If Left(Item.Value, Len("245897-")) <> "245897-" Then Item = "245897-" & Item End If Set Item = Item(2) Wend End If End Sub

@Midori eu coloco esse if em que parte do codigo?

Sub main () Dim Item As Range Set Item = ThisWorkbook.Sheets("Carga").Cells.Find( _ What:="Add item", LookIn:=xlValues, LookAt:=xlWhole) If Not Item Is Nothing Then Set Item = Item(2) While Item <> "" Item = "245897-" & Item Set Item = Item(2) Wend End If End Sub como adiciono a esse codigo uma função que se ja tiver o numero "245897-" na celula não precisa adicionar na frente do texto

@Scofieldgynpor conta do For each estar "fora" do for inicio o codigo não ta passando por ele.. e quando testo só ele separado ele ignora o Next palavra e vai direto pro fim da sub

@Scofieldgyn parece estar funcionando, mas como faço para alem de colocar que não foi encontrado pintar a celula ou a propria linha do item que não achou?

@Scofieldgyn parece funcionar perfeitamente, mas tem como passar para codigo VBA procurando pelo "nome" e não pela celula/coluna? ex. eu acho que para fazer o iferror ficaria assim mais ou menos Dim varIfError As Variant varIfError = WorksheetFunction.IfError(0, "Not Found")