modificar el codigo para agregar

[carlosar]

Hola a todos quisiera que me ayudaran en los siguiente tengo una macro de un userform que me inserta los datos capturados pero en la fila 3 y quisiera que los agregara en la columna al final del ultimo registro

Private Sub CommandButton1_Click()
If TextBox1.Text <> "" Then
Sheets("PROVEEDOR").Select
Range("A3").Select
Selection.EntireRow.Insert
Rem ubicamos el cursor en la celda A9
Range("A3").Select
Rem insertamos el texto del TextBox1 en A9
ActiveCell.FormulaR1C1 = TextBox1
Rem repetimos insertar el texto del TextBox2 y 3 en A9
Range("B3").Select
ActiveCell.FormulaR1C1 = TextBox2
Range("C3").Select
ActiveCell.FormulaR1C1 = TextBox3

Rem Empty Limpiamos los TextBox
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
Rem TextBox.SetFocus ponemos el cursor en TextBox1
Rem para volver a capturar los datos
Else
MsgBox "Escriba un Nombre"
End If
TextBox1.SetFocus
End Sub

agradezco su ayuda

[mrocf]

Intenta con:

Código:

Private Sub CommandButton1_Click()
If TextBox1.Text <> "" Then
    Set Celda = [PROVEEDOR!A65536].End(xlUp).Offset(1, 0)
    Celda.FormulaR1C1 = TextBox1
    Celda.Offset(0, 1).FormulaR1C1 = TextBox2
    Celda.Offset(0, 2).FormulaR1C1 = TextBox3
    Set Celda = Nothing
    TextBox1 = Empty
    TextBox2 = Empty
    TextBox3 = Empty
Else
    MsgBox "Escriba un Nombre"
End If
    TextBox1.SetFocus
End Sub

Saludos

[carlosar]

me manda error y me marca en rojo TextBox1.SetFocusEnd Sub

[carlosar]

Muchas gracias ya funciono habia copiado mal el codigo te lo agradezco enormemente, ojala tambien me pudieras ayudar en la otra pregunta que estoy realizando en el foro de antemano gracias

[mrocf]

Fue un gusto ayudarte.

Saludos.