[RESOLVIDO] - Formulário/TextBox - VBA

[cassio]

Prezados, boa noite!

Poderiam me ajudar com um problema que estou tendo na planilha anexo, pois quando preencho as células "B4, C4 e D4" via formulário, ao reabrir este mesmo formulário os valores preenchidos não ficam gravados no formulário, ou seja os dados preenchidos desaparecem das caixas TextBox. Quero preencher os valores no formulário e ao abrir o formulário novamente, os valores fiquem preenchidos.

Segue um código que copie da internet, porém não deixa da forma que gostaria.

Código: Selecionar todos

Private Sub CommandButton1_Click()
	
	'Selecionando a planilha correta.
	Sheets("CartPrev").Activate
	
	'Localizar a célula para armazenar o CÓDIGO digitado.
	Range("B4").Select
	
	'Verificar se o campo CÓDIGO foi preenchido.
	If CODIGO = "" Then
		Exit Sub
	Else
		'Coletando a informaação digitada, no campo "CÓDIGO".
		ActiveCell.Value = CODIGO.Text
		'Deslocar para a célula ao lado.
		ActiveCell.Offset(0, 1).Select
		
		'Verificar se o campo QNTD foi preenchido.
		If QNTD = "" Then
			Exit Sub
		Else
			'Coletando a informação digitadas, no campo "QNTD".
			ActiveCell.Value = QNTD.Text
			'Deslocando para a proxima célula.
			ActiveCell.Offset(0, 1).Select
			
			'Verificar se o campo MÉDIA foi preenchido.
			If MEDIA = "" Then
				Exit Sub
			Else
				'Coletando a informação digitadas, no campo "MÉDIA".
				ActiveCell.Value = MEDIA.Text
				
				'Fechamento automatico do formulario.
				Unload Me
				
			End If
		End If
	End If
End Sub

Infelizmente não consegui anexar a planilha.

Ficarei grato pela ajuda e atenção perante o meu caso!
Muito obrigado!!!

[Tov Elen Shau]

Cássio

Bom dia

Nos formulários realmente não ficam gravados, eles são apenas para adicionar ou exibir dados do seu 'Banco de dados'. Nesse caso, como você adicionar na própria planilha, ela é seu banco de dados. Você precisa adicionar uma rotina no EVENTO INITIALIZE para exibir/puxar o que está na planilha. Por exemplo;

Private Sub UserForm_Initialize()
‘rotina que será executada ao abrir a planilha
CODIGO.Text = ActiveCell.Value
QNTD.Text = ActiveCell.Offset(0, 1).Value
MEDIA.Text = ActiveCell.Offset(0, 2).Value
End Sub

Atenciosamente

Tov Elen Shau

[cassio]

Tov Elen Shau, boa noite!

Através do código que você escreveu pra mim, consegui resolver o problema, fico grato por sua ajuda e atenção perante ao meu caso.
Aproveito para agradecer ao idealizador deste fórum e aos demais contribuintes iguais a você "Tov Elen Shau", que ajudam no conhecimento e soluciona problemas que surgem no dia a dia de muitos que lidam com Excel.

Obrigado!