Já tinha corrigido, Apanhei na mudança do ano e com base no seu código fiz algumas alterações e funcionou. Obrigado Mauro. Autonumeração.rar

Fiz o teste usando seu código. Quando o ano está em 2016 ele funciona de boa. Quando alterei a data do computador para 2017 ele pulou uma linha e fico...

Na verdade isso é apenas um exemplo. A célula G1 irá mudar apenas uma vez no ano. Estou elaborando um formulário que deve ser enumerado, e quando inic...

Não deu certo. preciso atualizar o range e.g. Range("A1").Select Selection.QueryTable.Refresh BackgroundQuery:=False

Não rolou. Acredito ainda que seja o ".Select", se eu tirar não pisca, mais também não atualiza a planilha.Os dados estão numa Aba e os Gráf...

Issamu. Cara não tenho nem o que falar. Showwwwwwwwwwwwwwwww. Super Obrigado.

De uma parte do codigo, não irá escapar (pelo que sei), para cada "botão" deve haver um evento Click. Contudo, pode-se "economizar"...

Bom gente, encontrei a solução. Funcionou perfeito. Se alguém interessar segue abaixo. Sub OpenFile() Dim fd As FileDialog Dim SelectedItem As Var...

Não funcionou. Etá dando erro de compilação.

Mauro foi mal por não dar o créditos a você. Estava na dúvida aonde eu tinha pego este exemplo. Este código ficou show e sempre uso no meu trampo.