Videal

Dim NomeDoArquivo As String 'Primeiro voce deve fazer o seguinte 'Salvar o nome do arquivo na sua planilha na celula A1 'Como padrão deixe o valor da celula A2 como 1 'Coloque a minha rotina NomeDoArquivo = Sheets("Nome_da_Planilha").Range("A1").Value NomeDoArquivo = NomeDoArquivo & VBA.Format(Sheets("Nome_da_Planilha").Range("A2").Value, "0000") 'Coloque a sua rotina de salvar o arquivo ''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''' 'Coloque a minha rotina Sheets("Nome_da_Planilha").Range("A2").Value = Sheets("Nome_da_Planilha").Range("A2").Value + 1

Bom, quando geramos uma macro, ela coloca muitas linhas desnecessárias na rotina. O que deve fazer é analisar as linhas de código da sua macro e eliminar as linhas desnecessárias, por exemplo: Se eu fizer alguma macro para desabilitar minhas barras de ferramentas ficará assim: Application.CommandBars("Formatting").Enabled = False Application.CommandBars("Standard").Enabled = False Application.CommandBars("WordArt").Enabled = False .... E assim por diante com cada barra de ferramentas que eu desablilitar, mas pra que isso se eu posso fazer assim: Sub HabilitarBarras() Dim Numero As Long Dim NumBar As Long Dim NomeBar As String Numero = Application.CommandBars.Count For NumBar = 1 To Numero NomeBar = Application.CommandBars(NumBar).Name Application.CommandBars(NumBar).Enabled = False Next End Sub Desabilitará todas as barras de ferramentas com algumas linhas de código apenas, entendeu?

Essa é uma boa, mas não era bem isso que eu precisava, de tanto eu fuçar, eu acabei conseguindo fazer, tá aí: Sub AreaNomeadaDinamica() Dim UltLinDados As Long 'Variável que descobre a ultima linha de dados da planilha (Nome_da_Planilha) da coluna A UltLinDados = Sheets("Plan1").Range("A65536").End(xlUp).Row 'A esse intervalo "A1:A & UltLinDados" daremos o nome de "DinDados" Sheets("Plan1").Range("A1:A" & UltLinDados).Name = "DinDados" End Sub Logo, toda vez que adicionar dados na planilha, automaticamente tem que executar esta rotina, para que nomeie a area que tiver dados.

Quando você entra no editor do VBA no excel va aparecer uma lista de planilhas, lá em Esta_pasta_de_trabalho, onde é seu Workbook, você coloca isso: Private Sub Workbook_Open() 'Aqui chama o formulário antes de ocultar o aplicativo (Nome_do_formulario).show 'Aqui oculta a sua pasta de trabalho, no caso o excel Application.Visible = False End Sub Porém seu excel continuará oculto após fechar o formulário, então no seu formulário coloque isso: Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Application.visible = true End Sub Vê se da certo.

Bom, enquanto a isso, eu também creio que não é possivel, mas da pra você deixar o excel invisivel, é só colocar: 'Quando iniciar o formulario Application.visible = false 'Quando for sair Application.visible = true Espero ter ajudado

Tenho uma área nomeada que vai de A12:A25 ela se chama "DADOS", preciso saber se, ao adicionar algum dado na célula A26, a minha área nomeada automaticamente passe de A12:A25 para A12:A26, e assim por diante, a medida que eu adiciono dados, ela vá aumentando. Videal