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!!

12 minutos atrás, Midori disse:

For Linha = Item.Row + 1 To ActiveSheet.UsedRange.Rows.Count

4 minutos atrás, Midori disse:

@isabela queiroz Está faltando várias linhas de código aí. Cadê o While, o Set Item, o If Not Item? Acrescente a condicional no seu primeiro código.

@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")

Boa Dia! Precisava fazer um dicionário, com as seguintes condições:

-Ir no Sheet1 e procurar a coluna "Customer" e pegar de 1 em 1 e pesquisar no Sheet2 por Dicionário

- Sendo a chave o nome "inBiz" (coluna A do sheet2) e o valor: "AG" (coluna B)

- Quando encontrasse o valor necessário, retornar o valor para o sheet1 coluna "Retornar aqui" (sendo as respostas correspondente a coluna "Customer")

-Se não encontrar o valor procurado, retornar "Not found" e pintar de azul, por exemplo. 

Ex. Clube.xlsx

@Scofieldgyn  @OreiaG Obrigada aos dois! 

@MidoriAh fiz aqui, muito obrigada, ajudou demais!

@Midori tem como tirar a formatação das colunas quando copiar elas?

@Midori em outra planilha, tem muitas linhas nessa outra, mas testei antes com um numero menor de conteudo e ainda copiou as não filtradas tambem..

Agora tentei mais uma vez e deu certo! Não sei porque não tinha funcionado, muito obrigada

@Scofieldgyn Muito bom! funcionou perfeitamente, só precisava que em vez de localizar pela coluna ex."9" localizasse pelo nome ou pelo find por exemplo...

@OreiaG Seu codigo colocou "Inactive" em tudo, não sei porque..

Fiz assim, acho que ta dando certo, tem algo que pode dar algum erro futuro no codigo? 

Sub AjustColunC()
    
    Dim col     As Long
    Dim loc     As Long
    Dim linha   As Integer
    
    linha = 3 'mudar pra linha 2 quando tirar as anotações de cima
    col = Rows(2).Find("Customer MPN (Manufacturers)").Column
    loc = Rows(2).Find("Status (Manufacturers)").Column
      
    Do While linha >= 3 And Cells(linha, col) <> ""
        If Cells(linha, col) = "Qualified" Or Cells(linha, col) = "Obsolete" Or Cells(linha, col) = "LTB" Then
                Cells(linha, loc) = "Active"
            Else
                Cells(linha, loc) = "Inactive"
        End If
            linha = linha + 1
    Loop

End Sub

@Midori quando dou start isso acontece   o codigo fica assim?

Sub Macro()
    Call CopiaColunas( _
        Array("nomes", "numero", "digito"), _
        Array("Nom Pessoas", "Num. Cod", "Customer"), _
        Array(Sheets("Sheet1").[1:1], Sheets("Sheet2").[2:2]), 5)
End Sub

Sub CopiaColunas(OrigNomes As Variant, DestNomes As Variant, Linhas As Variant)
    Dim ProcOrig    As Range
    Dim ProcDest    As Range
    Dim Indice      As Integer
    Dim Conta       As Long
    
    If Linhas(0).Cells(1, 1).Offset(1) <> "" Then
        Conta = Linhas(0).End(xlDown).Row - 1
        
        For Indice = 0 To UBound(OrigNomes)
            Set ProcOrig = Linhas(0).Find( _
                What:=OrigNomes(Indice), LookIn:=xlValues, LookAt:=xlWhole)
        
            If Not ProcOrig Is Nothing Then
                Set ProcDest = Linhas(1).Find( _
                    What:=DestNomes(Indice), LookIn:=xlValues, LookAt:=xlWhole)
                    
                If Not ProcDest Is Nothing Then
                    Call ProcOrig.Offset(1).Resize(Conta).Copy(ProcDest.Offset(1))
                End If
            End If
        Next Indice
    End If
End Sub

23 minutos atrás, isabela queiroz disse:

Sub CopiaColunas(OrigNomes As Variant, DestNomes As Variant, Linhas As Variant)
    Dim ProcOrig    As Range
    Dim ProcDest    As Range
    Dim Indice      As Integer
    Dim Conta       As Long

achei o erro, precisava ficar assim

Sub CopiaColunas(OrigNomes As Variant, DestNomes As Variant, Linhas As Variant, Conta As Long)
	Dim ProcOrig    As Range
    Dim ProcDest    As Range
    Dim Indice      As Integer

Mas ainda assim o Codigo roda mas não esta copiando apenas as filtradas, ta vindo tudo junto

@Midori Obrigada! Funcionou perfeitamente. Mas só pra saber, tem como fazer sem limite de linhas? fazer a macro ir ate a ultima linha preenchida (essas celulas que estavam em branco no exemplo foi erro meu, na planilha original todas vão estar preenchidas)

E eu precisava que copiasse apenas o que esta visivel das colunas (no caso com filtro)

pensei em fazer assim mas obviamente o codigo não funcionou, eu sei a função mas não sei onde colocar ela 

Sub Macro()

Dim ul As String
ul = Cells(Rows.Count, 1).End(x1Up).Row 

    Call CopiaColunas( _
        Array("nomes", "numero", "digito"), _
        Array("Nom Pessoas", "Num. Cod", "Customer"), _
        Array(Sheets("Sheet1").[1:1], Sheets("Sheet2").[2:2]), "ul")
End Sub

Preciso copiar varias colunas adjacentes com filtro selecionado, mas preciso que isso seja feiot em VBA para adicionar na SUB da macro que estou fazendo 

@Scofieldgyn  precisava que fosse codigo mesmo, assim não funciona dentro da sub, tem que ser feita um a um (de preferência encontrasse qual coluna é pelo Find 

ex. Cells.Find(What:="Customer MPN (Manufacturers)", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
                                   :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                                   False, SearchFormat:=False).Activate

Sub CopiaColaColunas()
    
    
    ActiveCell.FormulaR1C1 = _
        "=IF(OR(OR(RC[5]=""Qualified"",RC[5]=""Obsolete"",RC[5]=""LTB"")),""Active"",""Inactive"")"
    

end sub