Buenas tardes Estimados ..por favor me pueden ayudar con error que me aparace cuando presiono el boton  grabar

Private Sub CommandButton1_Click()
On Error Resume Next
Sheets("compras").Select

ULinea = Range("a" & Rows.Count).End(xlUp).Row + 1  'llevar desde formulario a planilla excel'
Range("A" & ULinea).Value = Me.TextBox5.Text
Range("B" & ULinea).Value = Me.TextBox4.Text
Range("C" & ULinea).Value = Me.TextBox18.Text
Range("D" & ULinea).Value = Me.TextBox2.Text
Range("E" & ULinea).Value = Me.TextBox8.Text
Range("F" & ULinea).Value = Me.TextBox9.Text
Range("G" & ULinea).Value = Me.TextBox10.Text
Range("H" & ULinea).Value = Me.TextBox6.Text
Range("I" & ULinea).Value = Me.TextBox7.Text
Range("J" & ULinea).Value = Me.ComboBox1.Value ' los textbox tienen extencion Txt'
Me.TextBox2.Text = ""
Me.TextBox3.Text = ""
Me.TextBox5.Text = ""
Me.TextBox6.Text = ""
Me.TextBox7.Text = ""
Me.TextBox8.Text = ""
Me.ComboBox1.Value = ""
 TextBox2.SetFocus ' EL SetFocus devuelve el cursor al inicio´'

End Sub

Hola

Primero que nada, es una mala costumbre usar "On Error Resume Next" a menos que sea absolutamente necesario. Segundo, probablemente estás usando "Option Explicit" lo que obliga a declarar las variables así que coloca esto al inicio de ese evento:

Dim Ulinea as Long

Si vuelve a marcar error, borra el "Error Resume Next", corre la macro y comenta qué línea es la del error y qué mensaje exacto manda.

Abraham Valencia

estimado avalencia

gracias tenias razon .. me soluciono el detalle 

atte 

Milton