
21/08/2007, 10:41
|
 | | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 18 años Puntos: 88 | |
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 |