Error 1004 en tiempo de ejecución VBA Excel

Ho la Lucas, bienvenido al foro.

Visita:

Macros y Excel

Me gustaría ayudarte pero no estás poniendo toda la información relevante:

1. Debes poner toda la macro.

2. Identificar en cuál línea tienes el problema

3. En tu macro veo que pasas los datos myval y el textbox a la hoja, pero no veo ni el copy ni el paste.

O comparte tu archivo en google drive para revisarlo. Después de subir el archivo a google drive comparte el archivo, copias el enlace y lo pegas aquí.

Si tu archivo contiene información confidencial la puedes reemplazar por datos genéricos.

Nuevo:

Simular carrito de compras - YouTube

Recomendaciones:

Curso de macros. Cargar datos en un ListBox con formato. - YouTube

Hola Dante!

En orden cronológico ejecuto esas macros.

Private Sub Comprobante2_button_Click()
    buscar = Sheets("Ventas").Range("I4").value
    [AREA_COPY].Copy  'Rango C15:D40 de la hoja ventas
    Sheets("Comprobante 2").Activate
    Range("A15").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
End Sub

            Private Sub Lista_buscador_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
            Dim value As Variant           
            Set lookupRange = Sheets("Productos").Range("Tabla1[DESCRIPCIÓN]")
            value = Lista_buscador.List(Lista_buscador.ListIndex, 0)
            Set findval = lookupRange.Find(What:=value, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
            MyVal = findval.Offset(, -1).value
            ingrese_cantidad.Show
            ingrese_cantidad.TextBox1.Text = ""
            ingrese_cantidad.TextBox1.SetFocus
            End Sub

        Dim n As Integer
        Dim Z As Range
        n = Application.WorksheetFunction.CountA(ActiveSheet.Range("A15:A40"))
        If n = 26 Then
             MsgBox "Todas las celdas están llenas para poder ingresar un nuevo código", vbInformation + vbOKOnly, "Celdas llenas"
        End
        End If                                                            
        If ActiveSheet.Range("A15").value = "" Then
            ActiveSheet.Range("A15").value = MyVal
            ActiveSheet.Range("A15").Offset(0, 1) = TextBox1.value
            ingrese_cantidad.Hide
        Else
            Set Z = ActiveSheet.Range("A14").End(xlDown).Offset(1, 0)
            ActiveSheet.Range("A14").End(xlDown).Offset(1, 0).value = MyVal
            Z.Offset(0, 1) = TextBox1.value
            ingrese_cantidad.Hide
        End If

En la imagen que adjunte anteriormente, solo figuran dos celdas visualmente con valores, la A15 y la A16, y se observan las celdas A17:A40 vacias, por lo que la macro deberia posicionarse en la celda A17 y rellenar con el dato que selecciona en el userform.

Pero es como que las detecta con valores, por lo tanto quiere irse a la celda A41 bloqueada.

Cuando borro el contenido "vacio" de la celda A17 presionando la tecla suprimir, la macro funciona correctamente y coloca el dato seleccionado en dicha celda.

La línea que tiene el problema es la siguiente:

ActiveSheet.Range("A14").End(xlDown).Offset(1, 0).value = MyVal

Cambia tu código por lo siguiente:

  Dim i As Long
  Dim b As Boolean
  If TextBox1.Value = "" Then
    MsgBox "Captura textbox1"
    Exit Sub
  End If
  b = False
  i = 15
  Do While Range("A" & i).Value <> ""
    i = i + 1
  Loop
  If i > 40 Then
    MsgBox "Todas las celdas están llenas para ingresar un nuevo código", vbInformation + vbOKOnly, "Celdas llenas"
    Exit Sub
  End If
  Range("A" & i).Value = MyVal
  Range("B" & i).Value = TextBox1.Value

Prueba y me comentas.