Mauricio1465 Pareo de datos tipo buscarv con vba
Dante, disculpa que te moleste, pero te envié el correo que me solicitaste, ¿se puede hacer algo?, no se si te llego o no llego.
1 respuesta
H o l a:
Sí me llegó el archivo y te envié los siguientes comentarios:
Las columnas de la hoja "Mayor" no coinciden con tu explicación.
En tu explicación mencionas:
"
1) Que filtre por DVENT en la columna K, de la hoja Mayor.
"
Pero el dato "DVENT" está en la columna J. Después pones esto:
"
2) Que vaya a la primera fila de la columna J que es el numero de factura de la hoja Mayor y tome su valor y lo busque en la columna H de la columna Clientes.
"
Pero en la columna J no está el número de factura.
Podrías enviarme el archivo correcto y en el archivo me pones con comentarios lo que necesitas.
Hola Dante buen día, te he vuelto enviar con fecha de ayer el correo con lo que me solicitaste, espero haberme explicado, para que me ayudes con este ejercicio, muchas gracias
Te anexo la macro completa
Sub calculo1()
'Por.Dante Amor
Set h1 = Sheets("Clientes")
Set h2 = Sheets("Mayor")
'
'Para COBMA y DGRL
For i = 3 To h1.Range("H" & Rows.Count).End(xlUp).Row
cob = 0
dgr = 0
Set r = h2.Columns("I")
Set b = r.Find(h1.Cells(i, "H"), lookat:=xlWhole)
If Not b Is Nothing Then
celda = b.Address
Do
'detalle
If h2.Cells(b.Row, "J") = "COBMA" Then
cob = cob + h2.Cells(b.Row, "E")
End If
If h2.Cells(b.Row, "J") = "DGRAL" Then
dgr = dgr + h2.Cells(b.Row, "E")
End If
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> celda
h1.Cells(i, "R") = cob
h1.Cells(i, "S") = dgr
End If
Next
'
'En el caso de DVENT
For i = 2 To h2.Range("I" & Rows.Count).End(xlUp).Row
If h2.Cells(i, "J") = "DVENT" Then
Set b = h1.Columns("H").Find(h2.Cells(i, "I"), lookat:=xlWhole)
If b Is Nothing Then
u = h1.Range("H" & Rows.Count).End(xlUp).Row + 1
h1.Cells(u, "C") = h2.Cells(i, "A")
h1.Cells(u, "D") = h2.Cells(i, "B")
h1.Cells(u, "G") = h2.Cells(i, "G")
h1.Cells(u, "H") = h2.Cells(i, "I")
h1.Cells(u, "K") = h2.Cells(i, "Q")
h1.Cells(u, "N") = h2.Cells(i, "E")
End If
End If
Next
MsgBox "Pareo terminado"
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
