Ahora filatra por suministrador
dentro de la anterior pregunta una vez que he elegido por fecha de los que me presenta, poder elegir por suminstrador
1 Respuesta
Respuesta de Dante Amor
1
Le hice unos ajustes a la macro, entiendo que primero vas a filtrar por fecha y de ese filtro ahora vas a filtrar por suministrador.
Private Sub ComboBox1_Change()
'Por.Dante Amor
Application.ScreenUpdating = False
On Error Resume Next
Set h1 = Sheets("PLANTILLAFECHA")
Set h2 = Sheets("PLANTILLA-FECHA")
j = 2
'
uf = h1.Range("A" & Rows.Count).End(xlUp).Row
If uf = 1 Then uf = 2
h1.Range(h1.Cells(2, 1), h1.Cells(uf, 13)).ClearContents
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To u2
If h2.Cells(i, 3) = ComboBox1 Then
h2.Rows(i).Copy h1.Rows(j)
j = j + 1
End If
Next
Application.ScreenUpdating = True
h1.[A1].Select
MsgBox "Se exportaron con éxito " & j - 2 & " registros", vbInformation, "FILTRO SUMINISTRADOR"
End SubSaludos.Dante Amor
Recuerda valorar la respuesta.
