Necesito generar un informe de una orden con varios Items
Tengo una base de datos grande, donde coloco ordenes las cuales cada una esta compuesta de 2 o mas items (Componentes), valido con el estado de los componentes de la orden, Necesito generar un informe que me diga en UNA (1) sola linea con el numero de orden; me diga si esta completa o incompleta y adicional en una Celda me coloque la referencia incompleta y el numero de unidades que falte, si son 2 o mas componentes que faltan aparezcan en una sola celda con sus respectivas unidades faltantes.
EJEMPLO DE MATRIZ (Base de Datos)
EJEMPLO DEL INFORME QUE QUIERO ME SALGA
Por favor su ayuda urgente experto, es vital.
H o l a:
Te anexo la macro, actualiza en la macro el nombre de las hojas: "base de datos" y "informe".
La macro supone que los datos está en las columnas de la A a la G y que el resultado lo quieres en las columnas A, B y C. Si no son esas columnas deberás poner las imágenes completas, para ver cuáles son las columnas.
Sub Informe()
'Por.Dante Amor
Set h1 = Sheets("base de datos")
Set h2 = Sheets("informe")
'
h2.UsedRange.Offset(1, 0).Clear
ant = h1.Cells(2, "A")
j = 2
u = h1.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To u + 1
If ant <> h1.Cells(i, "A") Then
If cad <> "" Then cad = Left(cad, Len(cad) - 3)
h2.Cells(j, "A") = ant
h2.Cells(j, "B") = IIf(cad = "", "CUMPLIDA", "INCOMPLETA")
h2.Cells(j, "C") = cad
j = j + 1
cad = ""
End If
If h1.Cells(i, "E") <> 0 Then cad = cad & h1.Cells(i, "B") & " : " & h1.Cells(i, "C") & " Unidades / "
ant = h1.Cells(i, "A")
Next
MsgBox "Informe terminado", vbInformation
End Sub