Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #59 da revista programar. Faz já o download aqui!

pedro_mexico

[Resolvido] autonumerador, MsgBox Sim e Nao

Mensagens Recomendadas

pedro_mexico    0
pedro_mexico

Boas amigos

Precisava de ajuda com codigo para textbox1(ser numeracao automatica)e sempre que faça gravar o cadastro ele acrescente +1 na textbox1 automaticamente.

ao clicar no gravar apresente msgbox com sim ou nao, no sim ele limpa as textboxs e grava os dados na folha e automaticamente acrescente á textbox 1, o valor anterior +1,

segunda duvida é com msgbox com opção sim e não no userform 2

a minha duvida é mais no final do código, onde quero que ao clicar SIM na msgbox ele vá para a userform1 e a txtbox1(textbox com numerador automático) acrescente +1 ao valor anteriormente gravado.

e ao clicar NÃO, ele limpe e saia do formulário.

eu tenho este código mas não faz acrescentar o +1 na textbox1

vou descrever codigo da segunda duvida duvida

Private Sub Imprimir_DT1_Click()
Folha4.Activate
With ActiveSheet
			'Preenche a folha com os dados dos campos do formulario
			.Cells(3, "AI") = Me.ComboBox10
			.Cells(5, "M") = Me.ComboBox12
		   .Cells(6, "L") = Me.TextBox8
			.Cells(7, "P") = Me.TextBox9
			.Cells(9, "P") = Me.ComboBox11
			.Cells(11, "K") = Me.ComboBox14
			.Cells(11, "U") = Me.TextBox10

			End With
			Folha4.PrintOut

	  If MsgBox("A Imprimir Dt1" + vbCrLf + "Continuar a Registar?", vbQuestion + vbYesNo) = vbYes Then


ComboBox10.Text = ""
ComboBox12.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
ComboBox11.Text = ""
ComboBox14.Text = ""
TextBox10.Text = ""

unload me
UserForm1.Show
'textbox1, queria que fosse buscar o ultimo numero de registo e acrescenta-se +1
(ele na textbox12, que apresenta a numeracao igual á textbox1 acrescenta o +1 automaticamente, no userform1 é que nao aparece nenhum valor

ComboBox1.SetFocus(está na userform1)
Else

Unload Registo
End If

End Sub.

Este é o codigo que tenho para a textbox12 fazer o9 acrescento de +1 no userform2

Private Sub txt_textbox12_Change()
Dim linha As Long
Sheets("Folha1").Select
linha = Range("A1").End(xlDown).Row
sultimo = Range("A" & linha).Value + 1
textbox12.Value = sultimo
End Sub

Conseguem-me ajudar???

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Stradivarius    2
Stradivarius

Bom dia

Onde está

sultimo = Range("A" & linha).Value + 1

deveria estar

sultimo = linha + 1

ou então

Dim linha As Long

Sheets("Folha1").Select

linha = Range("A1").End(xlDown).Row + 1

UserForm1.TextBox1.Value = linha

simplificando:

Sheets("Folha1").Select

UserForm1.TextBox1.Value = Range("A1").End(xlDown).Row + 1

Editado por Stradivarius
  • Voto 1

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.