Ir ao conteúdo
  • Cadastre-se
Antonio Sammarco Junior

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

Recommended Posts

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×