ERROR 1004' al cambiar el valor en una celda

Estoy haciendo un código que al indicar un valor en un combobox, lo busque en una hoja específica y al encontrarlo, me copie ciertos valores en celdas de otra hoja, al momento de indicar que me copie los valores de la "hoja1=cotizaciones", en la "hoja2=formulario", me arroja un error del tipo 1004, he intentado colocar el código de diversas maneras pero aún no logro encontrar el error.

Private Sub ComboBox2_Click()
    Set h2 = Sheets("COTIZACIONES")
    Set h3 = Sheets("FORMULARIO")
    Dim fila As Long
    For i = 4 To h2.Range("C" & Rows.Count).End(xlUp).Row
        If h2.Cells(i, "C") = ComboBox2.Value Then
            fila = i
        End If
    Next
    h3.Cells(7, 4).Value = h2.Cells(fila, 4).Value 'Nombre empresa
    h3.Cells(8, "D").Value = h2.Cells(fila, "G").Value 'FECHA
    h3.Cells(10, "D").Value = h2.Cells(fila, "H").Value 'AREA
    h3.Cells(11, "D").Value = h2.Cells(fila, "A").Value 'COD COTIZACION
    h3.Cells(15, "C").Value = h2.Cells(fila, "K").Value 'OBJETIVOS
    h3.Cells(4, "Q").Value = h2.Cells(fila, "U").Value 'PLAZOS
    h3.Cells(8, "Q").Value = h2.Cells(fila, "L").Value 'VALIDEZ
    h3.Cells(13, "M").Value = h2.Cells(fila, "N").Value 'EXCEPCIONES
    h3.Cells(19, "M").Value = h2.Cells(fila, "M").Value 'OBSERVACIONES
    'Carta Gantt
    h3.Cells(25, "BB").Value = h2.Cells(fila, "Q").Value 'inicio
    h3.Cells(27, "BB").Value = h2.Cells(fila, "R").Value 'revision A
    h3.Cells(29, "BB").Value = h2.Cells(fila, "S").Value 'revision O
    h3.Cells(31, "BB").Value = h2.Cells(fila, "T").Value 'finalizacion
    'llenar detalle pago
    If h2.Cells(fila, "P") = 1 Then
     h3.Range("M37:N39").Value = Worksheets("HOJA MAESTRA").Range("U8:V10").Value
     borde1
    End If
    If h2.Cells(fila, "P") = 2 Then
     h3.Range("M37:N40").Value = Worksheets("HOJA MAESTRA").Range("W8:X11").Value
     borde2
    End If
End Sub

Al depurar el código, el error comienza a partir de esta línea:

 h3.Cells(7, 4).Value = h2.Cells(fila, 4).Value 'Nombre empresa

La variable fila, al colocarla como Integer o Long me arroja el error igual.

1 respuesta

Respuesta
1

H o l a:

No es por que falte declarar la variable, lo que pasa es que no está encontrando ningún dato en la hoja "Cotizaciones", columna "C" que sea igual a lo que tienes en el combobox2.

Lo que tienes que poner después del Next es:

If fila = "" then
   msgbox "No existe el dato del combo"
   exit sub
end if

Revisa que lo que tengas en el combo sea exactamente igual a alguno de los datos de la columna C de "Cotizaciones".

También revisa si es en la columna C donde se tiene que buscar.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas