Planilha Excel VBA Cadastro simples userform

Planilha Excel VBA Cadastro simples userform
Estes procedimento do aplicativo ms Excel vba, usando de textboxes, labels e uma combobox montamos um pequeno programa para cadastro, para quem esta começando com vba.
Espero que o exemplo o ajude. A formatação com cores no UserForm, fiz no próprio Excel uma imagem(*.jpg)e importei para o formulário e atribui a propriedade transparente para os objetos. simples.
Fique com Deus. Expedito Marcondes

Private Sub CommandButton2_Click()
x = Plan1.Cells(Rows.Count, “a”).End(xlUp).Row + 1 ‘retorna núm ultima linha + 1
lblCOD = x + 1
Cells(x, “a”).Value = txtNOME.Value
Cells(x, “b”).Value = txtENDERECO.Value
Cells(x, “c”).Value = txtCIDADE.Value
Cells(x, “d”).Value = txtCEP.Value
Cells(x, “e”).Value = cbxESTADO.Value

txtNOME.Value = “”
txtENDERECO.Value = “”
txtCIDADE.Value = “”
txtCEP.Value = “”
cbxESTADO.Value = “”
txtNOME.SetFocus
End Sub

‘//ao inicializar o formulário
Private Sub UserForm_Initialize()
txtNOME.SetFocus
x = Plan1.Cells(Rows.Count, “a”).End(xlUp).Row
lblCOD = x
With cbxESTADO
.AddItem “SP”
.AddItem “MG”
.AddItem “PA”
.AddItem “RS”
.AddItem “SC”
.AddItem “PI”
.AddItem “RO”
End With
End Sub