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

Olá, Damiano. Veja se ajuda. 1. na Propriedade MultiSelect da ListBox1Masc selecione 1-fmMultiSelectMulti 2. no módulo do UserForm remova todos ...

Olá, Alexandre. "mas preciso ter a opção de digitar algumas letras da palavra também em letras maiúsculas" Você precisa estabelecer algum critério...

"porém o código executa excluindo registros acima do selecionado" O erro ocorre porque a busca é efetuada em uma coluna em que os valores se repetem...

Experimente: =PROC(A1;{0;0,25;0,5;0,75};{"abaixo";"básico";"adequado";"avançado"})

Em E2 coloque 01/05/2022, em E3 coloque 01/09/2022, em E4 01/04/2022, ... , formate a coluna E | Personalizado | mmmm Cole uma cópia da fórmula ...

Olá, Juliana. É possível fazer a transferência dos dados via macro. Se no seu caso for viável o uso de macros e se você tiver interesse nesse tipo...

retorna o nome =EXT.TEXTO(A1;7;LOCALIZAR("Dt.";A1)-7) retorna a série =DIREITA(A1;NÚM.CARACT(A1)-LOCALIZAR("Série";A1)+1)  ExtraiTextos...

Experimente: =EXT.TEXTO(A1;7;LOCALIZAR("Dt.";A1)-7)&CARACT(10)&DIREITA(A1;NÚM.CARACT(A1)-LOCALIZAR("Série";A1)+1) Formate a célula ~~~> ...