AfonsoMira

@Matheus Cascaes da Costa Boas, Encontrei esse vídeo falando sobre o assunto: Sim! SUA Encomenda via Aliexpress ou Shopee irá ATRASAR! Entenda! Espero que ajude.

@Martti Boas, Veja se é isto que deseja: Sub PASS_TEST() '*********************************************************** Dim ROUTER1, ROUTER2, TABELAB As Range Dim ultLinha As Integer Dim resultado_procv As Variant Dim i As Integer Application.ScreenUpdating = False ultLinha = Sheets("Plan2").Cells(Cells.Rows.Count, 1).End(xlUp).Row Set TABELAB = Sheets("REF").Range("a2:c668") Sheets("Plan2").Select For i = 2 To ultLinha Set ROUTER1 = Sheets("Plan2").Range("K" & i) Set ROUTER2 = Sheets("Plan2").Range("Q" & i) If ROUTER1 <> "" Then resultado_procv = Application.VLookup(ROUTER1, TABELAB, 2, False) Sheets("Plan2").Range("BC" & i).Value = resultado_procv resultado_procv = Application.VLookup(ROUTER1, TABELAB, 3, False) Sheets("Plan2").Range("BD" & i).Value = resultado_procv ElseIf ROUTER1 = "" Then resultado_procv = Application.VLookup(ROUTER2, TABELAB, 2, False) Sheets("Plan2").Range("BC" & i).Value = resultado_procv resultado_procv = Application.VLookup(ROUTER2, TABELAB, 3, False) Sheets("Plan2").Range("BD" & i).Value = resultado_procv End If Next i End Sub

Boas @maroth , Poderia disponibilizar o ficheiro, com dados fictícios para conseguirmos ajudar com maior facilidade? Obrigado!

@Paulo Volpe Boas, Experimente assim: =SEERRO(DP5 & "_" & SE(DP5<>"";CONT.SE(DP$5:DP5;DP5);"");"")

@Julioser3 Boas, Experimente: import criar_cliente.py

@flaviorc Boas, Experimente o seguinte, troque a linha: Set IE = New InternetExplorer Por: Set IE = New InternetExplorerMedium Caso não funcione, experimente o seguinte. Vá nas opções de Internet do IE Na aba Segurança > Internet > Desmarcar "Ativar o Modo Protegido" Espero ter ajudado

@O_Aprendiz Boas, Consegue disponibilizar dois ficheiros para testar aqui ou então ficheiros parecidos, sem informação crítica. Obrigado!

@Paulo Volpe Boas, Acrescentei 2 colunas de ID. Elas verificam a quantidade de vezes que o valor repete e assim cria um ID único. Caso existam 3 com pontuação igual, vai juntar a pontuação com "_" 1,2 e 3. Alguma dúvida é só dizer, espero ter ajudado. Mês (1) UPADO.xlsx

@Rodrigues77 Veja se ajuda. A macro altera os valores do ano e do mês na Plan2. Modelo Dashboard.zip

Posso sim, preciso saber é os nomes dos campos. (Cabeçalhos das colunas)

@Rodrigues77 , percebi aquilo que pretende. Mas vou precisar de um modelo com os "dados finais", para poder criar as macros que irão filtrar o gráfico.

@markinhos.vieira Boas, Qual a quantidade total de bips ?

@Mlramos Boas, Veja se isto resolve: Private Sub Ultimos_100() Dim f As Integer Dim strLine As String Dim strArray(99999) As String Dim lineCnt As Long Dim i As Long ' --- f = FreeFile Open "Caminho Aqui.txt" For Input As #f lineCnt = 0 Do Until EOF(f) Line Input #f, strLine strArray(lineCnt) = strLine lineCnt = lineCnt + 1 Loop Close #f ' --- f = FreeFile Open "Caminho Aqui.txt" For Output As #f For i = lineCnt - 100 To lineCnt - 1 Print #f, strArray(i) Next i Close #f End Sub Ps. Não testei

@Rodrigues77 Boas, poderia especificar melhor qual o tipo de Dashboard ? Qual o tipo de dados ? Obrigado!

@TetDistribuidora Boas, Uma solução que arranjei foi com o uso de VBA (Macro) O que ele faz é o seguinte: Ao introduzir novo código vai verificar se já está cadastrado anteriormente, caso não esteja permite colocar. (O mesmo acontece se estiver cadastrado anteriormente e tenha sido devolvido) Caso já esteja registado, e não tenha sido devolvido, apresenta uma mensagem de erro informado que não dá para colocar o código. (Pode modificar a mensagem que aparece). Alguma questão é só colocar. Afonso Mira CONTROLE MATERIAIS DISTRIBUIDORA.zip

@eduamsouza Boas, Já experimentou o seguinte: Emails enviados desaparecem

@Marco Aurelio David Boas, Veja se este artigo ainda funciona: Esconder Ribbon no Access (Inglês)

Boas, Este foi o resultado mais próximo ao que consegui chegar daquilo que pede. Veja se lhe ajuda. 1889839985_PreoxHistrico.xls

Boas, experimente o seguinte. Clique em Ficheiro: De seguida em opções: Depois, Avançadas e desactiva a caixa "Inserir automaticamente uma vírgula decimal" Ps. Ele não altera dados já introduzidos na planilha, tem que alterar depois.

Boas @Lucas Pizol Ferreira , Veja se esse exemplo ajuda. contar.xlsx

Boas @Neodenn , Experimente seleccionando a imagem pelo nome: ActiveSheet.Shapes.Range("Nome da Imagem").Select Selection.Copy Lembrando que a imagem é uma forma dentro do Excel, por isso que tem que chamar a função "Shapes"

Consegui utilizando o seguinte código: Private Declare PtrSafe Function MsgBoxTimeout _ Lib "user32" _ Alias "MessageBoxTimeoutA" ( _ ByVal hwnd As LongPtr, _ ByVal lpText As String, _ ByVal lpCaption As String, _ ByVal wType As VbMsgBoxStyle, _ ByVal wlange As Long, _ ByVal dwTimeout As Long) _ As Long Sub btnMsgbox() Select Case MsgBoxTimeout(0, "Deseja continuar a utilizar o ficheiro ?", "Fechar Automaticamente", vbInformation + vbYesNo, 0, 5000) Case 6 MsgBox "Não Fecha" Case Else MsgBox "Fecha" End Select End Sub

Boas @Muca Costa , Seria quase isso, mas não me está a fechar automaticamente após os 10 segundos.

Boas, Estou com alguns problemas para conseguir criar um Msgbox que feche automaticamente, e caso eu clique em um botão ele cancela a macro. A intenção é ao aparecer a MsgBox se a pessoa clicar em OK ele não fecha o ficheiro, mas caso a pessoa não clique, a Msgbox desaparece e fecha o ficheiro. Isso é possível ? Obrigado.

Boas @Gabriel Gallonetti , Poderia anexar o ficheiro? Talvez consiga reduzir o seu código e remover o erro. Obrigado.