Código automatico  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Código automatico

Mensagempor robertonl » Sáb Jul 14, 2018 3:43 am

Boa noite.
Estou iniciando uma planilha de controle pessoal onde preciso que alguns códigos sejam gerados automaticamente.
Encontrei uma macro no fórum na qual tentei adaptar e não deu certo.
Alguém poderia por favor ajudar nesta questão.
Código: Selecionar todos
Private Sub UserForm_Initialize()
        Dim Codigo
        Dim rLast As String
   
        Cod_Fornecedor.Caption = False
   
        With Sheets("Fornecedor")
           
            'Obt?m a ?ltima linha da Planilha:
            rLast = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
       
            txtCod.Text = "FO" & rLast
            '& "-2012"
   
        End With
   
        Codigo = Cod_Fornecedor.Caption
   
    End Sub
robertonl
Membro
Membro
 
Mensagens: 102
Registrado em: Sáb Fev 28, 2015 2:39 pm
Has thanked: 27 times
Have thanks: 0 time

{ SO_SELECT }

Re: Código automatico

Mensagempor robertonl » Sáb Jul 14, 2018 3:51 am

Descobri onde estava o erro, porém necessito que o código inicie desta maneira FO0001.
À medida que cadastra novos fornecedores ele acrescente 1 ao código FO0002... E assim por diante.
robertonl
Membro
Membro
 
Mensagens: 102
Registrado em: Sáb Fev 28, 2015 2:39 pm
Has thanked: 27 times
Have thanks: 0 time

Re: Código automatico

Mensagempor robertonl » Sáb Jul 14, 2018 4:44 am

Após salvar os dados, se eu desejar cadastrar um novo fornecedor, eu clico em novo, porém o código novo não é gerado. tenho que sair do formulário, para ser gerado um novo
robertonl
Membro
Membro
 
Mensagens: 102
Registrado em: Sáb Fev 28, 2015 2:39 pm
Has thanked: 27 times
Have thanks: 0 time

Re: Código automatico

Mensagempor MPrudencio » Sáb Jul 14, 2018 11:59 am

Coloque o codigo que esta no inicialize em um modulo e chame o codigo no evento inicialize e no botao.
Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.


For this post the author MPrudencio thanked:
robertonl (Seg Jul 16, 2018 3:03 am)
MPrudencio
Membro
Membro
 
Mensagens: 2703
Registrado em: Sáb Ago 15, 2015 8:29 pm
Has thanked: 70 times
Have thanks: 593 times

Re: Código automatico  [Resolvido]

Mensagempor klarc28 » Sáb Jul 14, 2018 8:22 pm

Código: Selecionar todos

Private Sub CommandButton1_Click()
      Call Codigo2

End Sub

Private Sub UserForm_Initialize()
      Call Codigo2
   
    End Sub

Sub Codigo2()

  Dim Codigo
        Dim rLast As String
   
        Cod_Fornecedor.Caption = False
   
        With Sheets("Fornecedor")
           
            'Obt?m a ?ltima linha da Planilha:
            rLast = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
       
            txtCod.Text = "FO" & rLast
            '& "-2012"
   
        End With
   
        Codigo = Cod_Fornecedor.Caption
End Sub
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.

For this post the author klarc28 thanked:
robertonl (Seg Jul 16, 2018 3:02 am)
klarc28
Membro
Membro
 
Mensagens: 968
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 20 times
Have thanks: 404 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google [Bot] e 0 visitantes