Abaixo uma versão sem o uso de 'Select' Sub localizaV2() Dim localizador As Range, i As Long, ENDERECO As String i = 2 With Plan1....

Experimente acrescentando a linha abaixo em azul: Set localizador = .FindNext(localizador) If localizador Is Nothing Then Exit Sub

Conforme indicado no site abaixo não é possível ordenar por data diretamente. Transcrevi abaixo o trecho de interesse. https://support.micro...

Experimente =ÍNDICE(C2:H2;CORRESP(1;SE(C2:H2<>"";1);0)) obs. é fórmula matricial, após colar na célula aperte F2 e em segui...

Considerei que todos os TextBoxes estão em um UserForm. Veja se o código abaixo ajuda. Se você não conseguir sugiro que você disponibilize uma amostra...

Olá, Isidro. 1. Fica mantida a sugestão anterior de eliminar o comando 'c.Activate' no código do botão "Pesquisar". 2. Agora, no código d...

Olá, Miguel. Experimente Range("D6") = TextBox1.Value ou Range("D6") = CDbl(TextBox1.Value)

Olá, Isidro. Eu só verifiquei o problema com o c.Activate, que foi o título do seu post. Se há outros problemas eu sugiro que você seja específico p...

... porém quando clico no botão pesquisar ele acusa erro na linha c.activate O erro ocorre porque não é possível ativar/selecionar um intervalo, que ...

O comando 'Find' não consegue encontrar um valor oculto pelo Auto Filtro, porém ele consegue encontrar um valor em coluna oculta, independente se a cé...

substitua esta linha For Each c In Lançamentos.Range("A2:A" & Lançamentos.Cells(Rows.Count, 1).End(24)....

Gostaria de uma ajuda para implementar contagem por data... Não considerei o Produto pois entendi erradamente que você queria somente o critério data...

Experimente Function SomaPorPeríodo() Dim i As Date, f As Date, c As Range, v As Double Application.Volatile For Each c In Range("A2�...

Olá, Daniel. Veja se ajuda. O código abaixo colocará o resultado a partir de 'L1'. Sub AgrupaNúmeros() Dim n As Long, x As Long, LR As Long, c As L...

Aceita maiúsculas e minúsculas. Experimente: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Targe...