Este fórum está sendo desativado

[wallacethiago]

Boa Tarde Amigos!

Hoje estou precisando de uma ajudinha com macros em VBA. Criei um cadastro de cliente onde ele gera um número a cada vez que clico no botão "Gerar Nº de ROLL" e em seguida ela vai para aba "Números de ROLL" eu preciso que esse último número que foi gerado apareça na caixa de texto ao lado do botão "Gerar Nº de ROLL". Em seguida irei selecionar cada caixa de texto e colocar uma informação para que ela seja gravada na Aba "Banco de Dados". E tbm eu queria colocar a última informação que foi gravada aparecer na parte que está em baixo do cadastro de cliente em vermelho "2º = ÚLTIMO ROLL CADASTRADO" aparecer o número do ROLL e o nome do Cliente.

Abaixo irei mostrar as imagens:

Ao apertar o botão GERAR Nº DE ROLL é gerado em modo sequencial e fica salvando na "COLUNA A" quando esse número é gerado preciso que ele apareça na caixa de texto que está ao lado do botão GERAR Nº DE ROLL sublinhado em verde.



--------------------------------------------------------------------------
Quando foi gerado o código e confirmado com a mensagem "Dados salvo com sucesso", preciso que o último Nº de ROLL e NOME DO CLIENTE aparece na caixa de texto que está sublinhada em AZUL para a pessoa que for utilizar o sisteminha ela saiba que o último código que foi gerado está ali para ser visualizado e utilizado.





Obrigado!

[lfgomes]

Boa tarde amigo...

Adapte o meu exemplo a sua planilha...

[alexandrevba]

Boa tarde!!

Tente

Código: Selecionar todos

Me.TextBox1.Value = Cells(Rows.Count, "A").End(xlUp)

[wallacethiago]

Olá amigo!

Desculpa mas não estou conseguindo seguir esse exemplo, não consegui fazer a leitura do macro. Preciso aprender, irei lhe enviar minha planilha. Se vc pudesse fazer um tutorial para que eu possa aprender eu iria ficar muito grato.

Eu não coloquei ainda o cadastro para inicializar ainda quando abrir a planilha farei isso depois.

segue em anexo.

[alexandrevba]

Boa tarde!!

Dentro do Botão salvar, insira o código!

Código: Selecionar todos

Me.TextBox7.Value = Worksheets("Banco de Dados").Cells(Rows.Count, "A").End(xlUp)
Me.TextBox8.Value = Worksheets("Banco de Dados").Cells(Rows.Count, "D").End(xlUp)

Veja como vai ficar o botão salvar

Código: Selecionar todos

Private Sub botao_salvar_Click()
'Contar celular de registrar a baixo
registro = Worksheets("Banco de Dados").UsedRange.Rows.Count + 1

'Selecionar Planilha
Worksheets("Banco de Dados").Select

'Registrar caixa de texto na linha da planilha
Worksheets("Banco de Dados").Select
Cells(registro, 1) = caixa_gerarroll
Cells(registro, 4) = caixa_cliente
Cells(registro, 5) = caixa_expedidor
Cells(registro, 6) = caixa_motorista
Cells(registro, 7) = caixa_assistente
Cells(registro, 8) = caixa_roll
Cells(registro, 9) = caixa_ajudante


'Mensagem de Gravação
MsgBox "Dados gravado com sucesso."

'Limpar Dados Cadastrados
caixa_assistente = ""
caixa_cliente = ""
caixa_expedidor = ""
caixa_gerarroll = ""
caixa_motorista = ""
caixa_roll = ""
caixa_gerarroll = ""
caixa_ajudante = ""

Me.TextBox7.Value = Worksheets("Banco de Dados").Cells(Rows.Count, "A").End(xlUp)
Me.TextBox8.Value = Worksheets("Banco de Dados").Cells(Rows.Count, "D").End(xlUp)


End Sub

Att

[wallacethiago]

eu tentei seguir seu exemplo na hora de gerar o ROLL e aparecer o número na Caixa_gerarroll mas não consegui, aparece um erro 13.

[alexandrevba]

Boa tarde!!

Não muda nada, apenas o local onde vai ficar o comando!

Código: Selecionar todos

Sub GERARROLL_Click()
       i = Plan1.Cells(Cells.Rows.Count, "a").End(xlUp).Row + 1
       
       For j = 2 To i
            If IsNumeric(Plan1.Cells(j - 1, 1)) Then
                 Plan1.Cells(j, 1) = Plan1.Cells(j - 1, 1) + 1
            Else
                 Plan1.Cells(j, 1) = 1
            End If
       Next
 Me.TextBox7.Value = Worksheets("Numeros ROLL").Cells(Rows.Count, "A").End(xlUp)
End Sub

Att

[wallacethiago]

Muito Obrigado! Estou tentando fazer a leitura aqui para aprender o porque disso acontecer...

Att,