Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
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
Editado por Eloize Teixeira

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






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

×