Criar numeração automática ao abrir um arquivo do excel 2010

[Antonio Sammarco Junior]

Boa Tarde senhores,

 

 

    Tenho um arquivo de Excel 2010 (apenas uma tela bonita com um botão) feito somente para abrir um outro arquivo excel 2010 (Ordem de Serviço). Neste arquivo que abre, deve gerar uma numeração automática assim que abrí-lo, sequencial que não se repita. Gostaria também de saber se há uma macro para, ao clicar no botão da macro, salve este arquivo com um nome pré determinado (Ordem de Serviço nnn, onde n é a numeração automática) em uma pasta também pré determinada.

   Sou novato em VBA e Macro, então, peço a gentileza do passo a passo.

 

Obrigado.

[Eloize Teixeira]

Você gostaria de uma macro para gerar orçamentos com números sequenciais, certo !?

 

A parte do botão para ir até essa tela, fica para depois.. 

 

Segue:

A fórmula abaixo, gera o número sequencial de orçãmento, guarda em um banco de dados e salva em PDF

 

-------------------------

Sub lsSave()    Dim lUltimaLinhaAtiva As Long    Dim lMax As Long    Dim lLinhaAtual As Long    Dim nome As String    Dim resultado As VbMsgBoxResult    resultado = MsgBox("Tem certeza que deseja emitir um novo orçamento?", vbYesNo, "Atenção!")    If resultado = vbYes Then            lUltimaLinhaAtiva = Worksheets("Banco de Dados_Orç").Cells(Worksheets("Banco de Dados_Orç").Rows.Count, 1).End(xlUp).Row        lLinhaAtual = lUltimaLinhaAtiva + 1        If IsNumeric(Worksheets("Banco de Dados_Orç").Cells(lUltimaLinhaAtiva, 1).Value) Then        lMax = Worksheets("Banco de Dados_Orç").Cells(lUltimaLinhaAtiva, 1).Value + 1        Else            lMax = 1        End If        Sheets("Banco de Dados_Orç").Cells(lLinhaAtual, 1).Value = lMax        Sheets("Banco de Dados_Orç").Cells(lLinhaAtual, 2).Value = Sheets("Orçamento DataSheet").Range("C5").Value        Sheets("Banco de Dados_Orç").Cells(lLinhaAtual, 3).Value = Sheets("Orçamento DataSheet").Range("C8").Value        Sheets("Banco de Dados_Orç").Cells(lLinhaAtual, 4).Value = Sheets("Orçamento DataSheet").Range("J45").Value        Sheets("Banco de Dados_Orç").Cells(lLinhaAtual, 5).Value = Sheets("Orçamento DataSheet").Range("A51").Value        Sheets("Orçamento DataSheet").Range("I1").Value = lMax        nome = Environ("USERPROFILE") & "\Desktop\" & Range("C5").Value & " - " & Range("I1").Value & ".pdf"        ActiveSheet.Range("a1:j49").ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome        MsgBox "Verifique sua Área de Trabalho", vbInformation, "Arquivo Salvo com Sucesso!"        Range("I1:J3").Select        Selection.ClearContents        Range("C5:J9").Select        Selection.ClearContents        Range("B12:G43").Select        Selection.ClearContents        Range("H12:I43").Select        Selection.ClearContents        ActiveWindow.ScrollRow = 2        ActiveWindow.ScrollRow = 3        ActiveWindow.ScrollRow = 5        ActiveWindow.ScrollRow = 8        ActiveWindow.ScrollRow = 10        ActiveWindow.ScrollRow = 12        ActiveWindow.ScrollRow = 15        ActiveWindow.ScrollRow = 17        ActiveWindow.ScrollRow = 19        ActiveWindow.ScrollRow = 22        ActiveWindow.ScrollRow = 24        ActiveWindow.ScrollRow = 25        ActiveWindow.ScrollRow = 26        ActiveWindow.ScrollRow = 27        ActiveWindow.ScrollRow = 28        ActiveWindow.ScrollRow = 30        ActiveWindow.ScrollRow = 31        Range("J46").Select        Selection.ClearContents        Range("A46:F48").Select        Selection.ClearContents        ActiveWindow.ScrollRow = 30        ActiveWindow.ScrollRow = 29        ActiveWindow.ScrollRow = 28        ActiveWindow.ScrollRow = 25        ActiveWindow.ScrollRow = 23        ActiveWindow.ScrollRow = 22        ActiveWindow.ScrollRow = 20        ActiveWindow.ScrollRow = 18        ActiveWindow.ScrollRow = 15        ActiveWindow.ScrollRow = 13        ActiveWindow.ScrollRow = 11        ActiveWindow.ScrollRow = 9        ActiveWindow.ScrollRow = 8        ActiveWindow.ScrollRow = 7        ActiveWindow.ScrollRow = 6        ActiveWindow.ScrollRow = 5        ActiveWindow.ScrollRow = 3        ActiveWindow.ScrollRow = 2        ActiveWindow.ScrollRow = 1        Range("B12:G12").Select    Else    End IfEnd Sub