Error 1004 en tiempo de ejecución error definido por la aplicación o el objeto
No encuentro el error de acuerdo al código para comenzar en la fila 31 lo hace sin problemas pero a la hora de cerrar el formulario y abrirlo de n huevo con los datos insertados genera el error toca borrar y comenzar de la fila 31 de nuevo y ese no es el caso es para que queden insertados como una base de datos gracias...
Dim lr As Long, i As Long, fin As Long, cont As Long, n As Long
Dim pre As String
'
'Validaciones
If ComboBox1 = "" Or ComboBox1.ListIndex = -1 Then
MsgBox ("Se requiere que seleccione un nombre para insertar un codigo"), vbCritical, "AVISO"
ComboBox1.SetFocus
Exit Sub
End If
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
'
'Proceso
lr = Range("A" & Rows.Count).End(3).Row + 2
a = Range("A31:A" & lr)
Select Case lr
Case Is < 31: fin = 0
Case 31: fin = 1
Case Else: fin = UBound(a)
End Select
n = 1
pre = Split(ComboBox1.Value, "-")(0)
For i = 1 To fin
If Left(a(i, 1), Len(pre)) = pre Then
n = n + 1
End If
Next
'
'Salida
Application.ScreenUpdating = False
Range("A31").EntireRow.Insert
Range("A31").Value = pre & "-" & Format(n, "000")
Range("B31").Value = Me.txtpro.Value
Range("C31").Value = Me.txttipopro.Value
Range("D31").Value = Me.txtprove.Value
Range("E31").Value = Me.txtprecio1.Value
Range("F31").Value = Me.txtprecio2.Value
Application.ScreenUpdating = True
'Range("A31").EntireRow.Insert
' 'Range("A31").Value = Me.ComboBox1.Value
' Range("B31").Value = Me.txtpro.Value
' Range("C31").Value = Me.txttipopro.Value
' Range("D31").Value = Me.txtprove.Value
' Range("E31").Value = Me.txtprecio1.Value
' Range("F31").Value = Me.txtprecio2.Value