Copiando dados do Textbox para planilha

[von Gadelgallegen]

Pessoal, qual é a rotina para copiar um dado de um textbox para uma planilha?

[Mauro Coutinho]

Use :

Código: Selecionar todos

Range("A1").Value = TextBox1.Value

[]s

[von Gadelgallegen]

Talvez tenha me expressado mal. Bom, a minha idéia é ter 3 textboxes e um CommandButton. Eu digito nos Textboxes e quando clico no Botão de comando esses dados são copiados, para uma célula correspondente, por exemplo textbox1, célula A1, textbox2, célula B1 e textbox3, célula C1 e os dados são apagados para que se possa inserir novos dados que serão copiados para as células A2, B2 e C2, (...), assim por diante!

Qual a rotina?

[joseA]

Seria isso??

Código: Selecionar todos

Private Sub CommandButton1_Click()
    Dim linha As Integer
    linha = Plan1.Range("A65536").End(xlUp).Offset(1, 0).Row
    Plan1.Range("A" & linha).Value = TextBox1
    Plan1.Range("B" & linha).Value = TextBox2.Text
    Plan1.Range("C" & linha).Value = TextBox3.Text
    MsgBox "Cadastrado com sucesso...", 64, "Dados"
    Me.TextBox1 = ""
    Me.TextBox2 = ""
    Me.TextBox3 = ""
End Sub

[lima.luiz]

Boa tarde. Quero aproveitar o código, porém preciso que o textbox grave na mesma coluna ex: textbox1 gravar na coluna B1; textbox2 gravar na coluna B2; e assim consecutivamente. Pode ajudar?