Tema: modificar el codigo para agregar
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 21/08/2007, 10:41
Avatar de mrocf
mrocf
 
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 18 años
Puntos: 88
De acuerdo modificar el codigo para agregar
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