codigo vba formulario (excel)

Formulario em VBA enviando para arquivo em excel
//codigo vba para envio de formulario para planilha excel com 6 campos
Dim ultimalinha As Object //Declarada a variavel ultimalinha
Set ultimalinha = Plan1.Range("A2000").End(xlUp) // Determinando o tamanho da planilha

ultimalinha.Offset(1, 0).Value = TextBox1.Text // capturando o conteudo do formulario para a planilha
ultimalinha.Offset(1, 1).Value = TextBox2.Text
ultimalinha.Offset(1, 2).Value = TextBox3.Text
ultimalinha.Offset(1, 3).Value = TextBox4.Text
ultimalinha.Offset(1, 4).Value = TextBox5.Text
ultimalinha.Offset(1, 5).Value = TextBox6.Text

MsgBox  "Registro Enviado com Sucesso", 6, "Enviar" // aparece a mensagem que esta entre aspas duplas apois clicar o botão enviar
//Limpando o formulario
resposta=msgbox ("Deseja Enviar outro Registro?",36,"Enviar")

If resposta = vbYes Then
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""

TextBox1.SetFocus  // posiciona o curso para a primira caixa
Else
Unload Me
End If

// Abrindo Modulo

Sub abrir()
userform1.Show
End Sub
OBS.:
Esse codigo o excel tem que esta com a aba do desenvolvedor e macro habilitado.


Criação de Templates - Banner para Web
www.mfsite.com.br | (21) 98466-4222
Desenvolvimento de material para divulgação em site,
blogs e rede social.