Como filtrar tabla segun 4 parametros y escribir resultados en otra tabla resumen
Estimado mi idea es generar una tabla resumen a partir de una tabla con muchos valores de los cuales quiero filtrar en el siguiente orden:
1) Nombre cliente
2) Conservacion
3) Corte
4) Calidad
De acuerto a estos filtros ver los kilos correspondientes y reescribirlos en la tabla resumen colocandolos en las celdas correspondientes segun la asignacion de calibre MP.
A continuacion te dejo 2 imagenes ejemplo de la tabla imagen 1 y de la tabla resumen imagen 2, en donde todo lo escrito en rojo es lo que se debe transcribir de la primera tabla.
2 respuestas
H o l a:
Podrías enviarme en un correo nuevo el ejemplo que pusiste.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “usuario nuevo” y el título de esta pregunta.
Archivo con ejemplo enviado, saludos y atrnto a tu respuesta
Te anexo la macro
Sub Resumen()
'Por.Dante Amor
Set h1 = Sheets("Resultados Asiganación")
Set h2 = Sheets("Resumen")
'
uc = h2.Cells(2, Columns.Count).End(xlToLeft).Column
If uc < Columns("F").Column Then uc = Columns("F").Column
h2.Range(h2.Cells(7, "F"), h2.Cells(22, uc)).ClearContents
'
For j = Columns("F").Column To uc
For i = 4 To h1.Range("B" & Rows.Count).End(xlUp).Row
cte = h2.Cells(2, j)
cte1 = h1.Cells(i, "B")
con = h2.Cells(3, j)
con1 = h1.Cells(i, "D")
cor = h2.Cells(4, j)
cor1 = h1.Cells(i, "E")
cal = h2.Cells(5, j)
cal1 = h1.Cells(i, "H")
If i = 30 Then
f = f
End If
If h1.Cells(i, "B") = h2.Cells(2, j) And _
h1.Cells(i, "D") = h2.Cells(3, j) And _
h1.Cells(i, "E") = h2.Cells(4, j) And _
h1.Cells(i, "H") = h2.Cells(5, j) Then
For k = 7 To 22
If InStr(1, h1.Cells(i, "I"), h2.Cells(k, "C")) > 0 Then
h2.Cells(k, j) = h1.Cells(i, "K")
Exit For
End If
Next
End If
Next
Next
MsgBox "Terminado"
End Subs a l u d o s
Se me olvido adjunta imágenes perdón.
Foto 1
foto 2
