AfonsoMira

Sim precisa.

@Lincoln_Haruo Boas veja se lhe responde ás questões Fonte: Site do Java

@guicrissantos Boas, veja se é isso que pretende. Utilizei fórmulas para calcular e Macro/VBA para alterar a formatação da célula. FÓRMULA COMISSÃO.zip

@LeoSWK Boas veja se assim lhe ajuda quanto ao filtro de cliente FiltroAvançado-005.zip

@Obadia Boas, experimente assim: Sub Carregar_fig() 'Data criação(mm/dd/aaaa): 2/9/2021 'Criado por: InforMira 'Contato: [email protected] Dim myPicture As Picture Dim rng As Range Set rng = Range("B8") Set myPicture = Sheets("Ligaçoes").Pictures.Insert("https://foconoenem.com/wp-content/uploads/2019/10/Figuras-de-Linguagens-no-ENEM-saiba-diferenciar.png") With myPicture .ShapeRange.LockAspectRatio = msoFalse .Width = rng.Width .Height = rng.Height .Top = Rows(rng.Row).Top .Left = Columns(rng.Column).Left End With End Sub

@deciog Boas, Office 365

Boas, tenho andado às voltas para encontrar uma solução para isto. Se alguém me conseguir ajudar agradeço imenso. Tenho quantidades acumuladas e filtro para tal por exemplo entre 2000 e 3000 é sexta feira se a quantidade acumulada da linha for 2560 então é sexta. Até ai tudo certo. O problema é quando o valor acumulado é superior ao filtro de sexta por exemplo: entre 2000 e 3000 é sexta, mas a quantidade acumulada da linha é 3050 o resultado vai ser Segunda, mas eu queria que começasse sempre na sexta-feira independentemente do valor acumulado. Explico melhor no ficheiro. Dia da semana por qtd acumulada.xlsx Consegui resolver com essa fórmula na célula A4 e arrastando para baixo. =IF(A3="Dia da Semana",$K$5,IFS(AND($C4>$J$4,$C4<=$J$5),$K$5,AND(C4>$J$5,C4<=$J$6),$K$6,AND(C4>$J$6,C4<=$J$7),$K$7,AND(C4>$J$7,C4<=$J$8),$K$8,AND(C4>$J$8,C4<=$J$9),$K$9,AND(C4>$J$9,C4<=$J$10),$K$10,AND(C4>$J$10,C4<=$J$11),$K$11,AND(C4>$J$11,C4<=$J$13),$K$13,AND(C4>$J$13,C4<=$J$14),$K$14,AND(C4>$J$14,C4<=$J$15),$K$15,AND(C4>$J$15,C4<=$J$16),$K$16,AND(C4>$J$16,C4<=$J$17),$K$17,AND(C4>$J$17,C4<=$J$18),$K$18,AND(C4>$J$18,C4<=$J$19),$K$19))

@DECOVIOTI Boas quais os nomes dos dois textbox ? Para poder ajudar melhor, por favor anexe o seu arquivo. No seu caso terá que zipar primeiro, pois contem macro/VBA.

@Philipe Araujo Boas, a descrição aparece por trás do QRCode é assim mesmo? Fiz o meu melhor veja se ajuda em alguma coisa. E peço desculpas pela demora na resposta! PROGRAA GERA QRCODE por InforMira.zip

@igorgs56 Olá e bem-vindo ao Clube do Hardware. Para ser mais fácil de ajudar, por favor anexe o seu arquivo. Obrigado!

@tatta_fecosta Boas, veja se é algo deste género que deseja? quantidade de erros ao mês por InforMira.xlsx

@DECOVIOTI Boas, eu penso que tenha algo a ver com seguinte linha: FName = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\temp_chart.jpg" Pois o caminho, vai alterar de utilizador para utilizador.

@Ismael Souza Boas experimente algo deste género. Ps. Modifique a linha onde diz "Insira aqui o caminho da pasta" com o caminho da pasta. Sub OpenLastModified() Dim sFldr As String Dim fso As Scripting.FileSystemObject Dim fsoFile As Scripting.File Dim fsoFldr As Scripting.Folder Dim dtNew As Date, sNew As String Const sCSVTYPE As String = "Microsoft Office Excel Comma Separated Values File" Set fso = New Scripting.FileSystemObject sFldr = "Insira aqui o caminho da pasta" Set fsoFldr = fso.GetFolder(sFldr) For Each fsoFile In fsoFldr.Files If fsoFile.DateLastModified > dtNew And fsoFile.Type = sCSVTYPE Then sNew = fsoFile.Path dtNew = fsoFile.DateLastModified End If Next fsoFile Workbooks.Open sNew End Sub

@Igalmor Boas veja se é isto que deseja: Planilha.xlsx

@Raquel Coelho Boas, poderia disponibilizar o seu ficheiro para ser mais fácil para nós testar as fórmulas. Obrigado! Mas experimente algo deste género: =SE(L5=$L$3;"Vence hoje";SE(L5="";"NA";SE(L5>$L$3;"A Vencer";SE(L5<$L$3;"Atrasado";"SEM PARCELA"))))

@laudnvp Boas, veja se é isto que pretende. Recebimento de Notas Fiscais.zip

@deciog Muito Obrigado, não sabia que existia assim tanta diferença do PT-PT para o PT-BR.

@vander2032 Boas, cole em B1 e arraste para baixo no canto inferior direito. =1/proc(2;1/--SEG.TEXTO(Fórmula.Texto(A1);MÍNIMO(ÍNDICE(LOCALIZAR(LIN($1:$10)-1;Fórmula.Texto(A1)&1/17);;));LIN(INDIRECTO("1:"&NÚM.CARACT(Fórmula.Texto(A1)))))) Atualizei a fórmula, pois a anterior apenas trazia o ultimo número, esta já traz todos.

@lucas g rocha Sim tem como: Veja aqui como fazer. Créditos: Techtudo

@riquee Infelizmente não.

@Hunter_R Boas quando eu era mais novo, meu pai utilizava um programa, para controlar o computador lá de casa, para eu não ir jogar de madrugada. O programa: Horário PC Veja se lhe ajuda.

@riquee Boas infelizmente o GTA V não tem suporte a CrossPlay (jogar entre plataformas). Deixo aqui um tópico com a mesma dúvida. https://www.clubedohardware.com.br/forums/topic/1416397-gta-v-tem-crossplay/

Boas experimente desinstalar pelo regedit. Para abrir o Editor do Registro, use o atalho (Windows + R), digite regedit e aperte Enter. Com a janela aberta, vá em Editar > Localizar e procure epic games launcher Agora, apague todas as pastas ou registros que sejam encontradas e pressione a tecla F3 para saltar de um registro para outro. Espero que tenha conseguido assim.

@Thonymah Boas experimente o seguinte: 1º - Abra as definições do Windows. 2º - Clique em Rede e Internet. 3º - Clique em Estado. 4º - Clique em Alterar opções do adaptador. 5º - Clique com o botão direito na rede que pretende dar prioridade e selecione propriedades. 6º - Selecione o item que diz "Internet Protocol Version 4 (TCP/IPv4)" 7º - Clique em propriedades. 8º - Na aba Geral, clique no botão avançadas. 9º - Desmarque a caixa de métrica automática 10º - Adicione um número à métrica. Por exemplo 1 que é prioridade máxima.(Quando menor o número maior prioridade, e vice-versa). 11º - Clique no botão de OK 12º - Clique no botão de OK novamente 13º - Clique em fechar. Espero que tenha ajudado e resolvido o seu problema.

@matfausto Olá e bem-vindo, poderia disponibilizar o seu arquivo ou caso não possa um exemplo do mesmo com dados fictícios para o podermos ajudar melhor? Obrigado!