Não entendi muito bem, mas a data de A1 só vai para a variável depois dessa linha: dData = Range("A1").Value E, quando termina o código, e...

Experimente assim: Considerando a tua planilha: =SOMARPRODUTO((B3:B4<>B4:B5)*(B4:B5<>1)) Se considerar o teu primeiro post: =SOMARPRODUT...

Coloque em F4: =SOMARPRODUTO($C$3:$C$3766*($A$3:$A$3766=--SUBSTITUIR(F$3;"Empresa ";""))*($B$3:$B$3766=$E4)) Arraste Abs

Cara, vc ta complicando muito na explicação, problematizando demais o que vc quer, e dando recursos de menos, porque o teu anexo não serve pra nada (s...

Isso é programação. Use "Alt + F11" para ver o código de programação.

Não entendi o que vc quer dizer com alterar o espaçamento. Mas, dê uma olhada nesses 2 recursos: 1. Manter a linha com tamanho fixo: Na guia "P...

Na mesma linha? Como assim? O filtro não deveria fazer isso. Pode postar o modelo da planilha e explicar melhor?

Posta a planilha de modelo.

Não sei quanto vc sabe de VBA, mas, o agendamento (executar um código com tempo pré-determinado) se faz com alguns códigos. Nesse caso, o código que ...

Pela imagem, vc pode usar um simples deslocamento. Supondo que vc queira ver o resultado em um textbox com o nome de distancia, o comando seria algo ...

Por que não usa o CDec? Range(Cells(r, cw), Cells(r, cw + colun - 1)).Value2 = CDec(Split( VBp , "|"))

Ou isso, na verdade: Public Function MaxY(ByRef nomeArrayt As Range, Optional Valor_max_de_Referencia As Long) As Long Dim nomeArray() Dim maxi As L...

Dando uma segunda olhada, acho que vc queria isso: Public Function MaxY(ByRef nomeArrayt As Range, Optional Valor_max_de_Referencia As Long) As Long ...

VC criou uma variável "Maxi" à toa. Simplesmente esqueça ela. Use o Valor_max_de_Referência e ponto. Se ele for 0 (não informado), atribua ...

O problema é que vc está concatentando várias funções SE, então, o resultado final é um texto. Vc pode forçar a formatação assim: =TEXTO(SE(E(REGIST...