Veja aqui o que o Sábio Google lhe enviou. 😉

Experimente enviar o arquivo para um site de armazenamento, como os dos links abaixo, ou outro da sua preferência, e depois coloque aqui no fórum o li...

[quote data-userid="59118" data-postid="131098" Segue arquivo em anexo. O arquivo não aparece anexado. 😉 [/quote]

Experimente a fórmula abaixo na linha 8 e arraste para baixo. =D8-PROC(2;1/(C$7:C7=C8);E$7:E7)

Experimente conforme abaixo. =PROCV(EXT.TEXTO(CÉL("filename";A1);PROCURAR("]";CÉL("filename";A1))+1;256);Nomes!A2:B4;2;0)

Coloque a data de referência em D1 no formato 01/mm/aaaa, exemplo 01/07/2023 e experimente a fórmula abaixo. =CONT.SES(B2:B2203;">"&0;B2:B220...

Olá, Fernando. 1. se você quer digitar ou colar 03PK02502D01 e obter 03PK.025.02.D.01 na mesma célula, então só é possível via macro. 2. se você q...

Acrescente as duas linhas em vermelho ao código que passei, conforme abaixo. Next cSheets("Calculator").Range("B4:B7,B14:B18,E14:E18,H14:H18,C2...

Experimente: Sub ReplicaValores() Dim r As Range, c As Range, k As Long, LR As Long Set r = Sheets("Calculator").Range("B4:B7,B19,E19,H19,C10,C37,...

Experimente: Sub ConsolidaPlanilhas() Dim ws As Worksheet Application.ScreenUpdating = False Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Repo...

"Não existe necessidade de chegar em 1 e voltar para 20, ... mas ele subtrair entre 20 - 1" Eu não entendi a sua descrição acima. Exclua a linha a...

estou deduzindo que a parte "[02:09]" são as celulas que serão afetadas, Correto. ... aumentando para 02:20 por exemplo, retorna erro... Se ...

Experimente: Sub AddOne() [W1] = 1: [W1].Copy [O2:O9].PasteSpecial Operation:=xlPasteSpecialOperationAdd [W1] = "" End Sub