Modelo da planilha.

Tenta assim: Private Sub Worksheet_Change(ByVal Target As Range) If Range("A" & Target.Row).Value <> "" Then Range(&qu...

O form cadastro falta declarar essa variavel g_lpMyWndProc = SetWindowLong(g_hForm, GWL_WNDPROC, AddressOf HookWinProc) Ela esta carregando ...

Acabei de testar aqui e funcionou perfeitamente. Excel 2010

Vc busca essa informação em algum site especifico ou apenas joga na busca do google.

Ve se é isso

Nao entendi ...

Disponibiliza um arquivo modelo fica mais facil ajudar.

Ve se isso ajuda Fiz umas melhorias de forma que sua tabela dinamica nao tem mais o campo vazio e nao precisa mais atualizar a base de dados, tanto ...

Eu posso estar maluco mas se eu entedi vc quer reiniciar seu arquivo!!!! Se é isso é só salvar o arquivo modelo (cheio de formulas) com um novo nome ...

Se servir com VBA tenta assim Eu nao sei como vc esta bloqueando as celulas mas esse codigo apaga as celulas que vc indicou caso a1 seja apagada Pri...

Entao testa para ver se o resultado é o esperado, se testar nao vai saber.

Nao entendi se a formula esta em G10 como vai retornar o valor de G10. Explica de novo

Nao olhei a planilha nem o testei mas ja tentou assim (( BD!$C$4:$C$20 <= PRA_GO!$A6)+1)*( BD!$D$4:$D$20 > PRA_GO!$A6)

No final do código cole a linha abaixo. ActiveCell.Offset(0, 1).Activate Nao acho que seja isso que ele queira.