Pero al exportar en PDF me salen todos los turnos, no solo el que acabo de filtrar
Anteriormente te escribí, que en el listbox si me filtra turno y fecha, pero al exportar me salen todos los turnos de esa fecha que deje seleccionada y el del turno no me la muestra... Sino que todos los turnos
1 respuesta
Respuesta de Dante Amor
1
Te anexo el código par filtrar en la hoja y exportar a pdf
'
Private Sub CommandButton2_Click()
'Exporta
'MsgBox "RECUERDE: Solo un PDF a la vez"
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
u = Range("F" & Rows.Count).End(xlUp).Row
f1 = Format(ComboBox1.Value, "mm/dd/yyyy")
If ComboBox2.Value = "" Then
f2 = f1
Else
f2 = Format(ComboBox2.Value, "mm/dd/yyyy")
End If
'
ruta = ThisWorkbook.Path & "\"
arch = "BitacoraMantencion"
prefijo = ""
ver = ""
ext = ".pdf"
una = True
Do While True
If Dir(ruta & arch & prefijo & ver & ext) <> "" Then
prefijo = "_v"
If una Then
ver = 1
una = False
Else
ver = ver + 1
End If
Else
Exit Do
End If
Loop
'
If ComboBox1 <> "" Then
ActiveSheet.Range("$A$2:$H$" & u).AutoFilter Field:=5, Criteria1:= _
">=" & f1, Operator:=xlAnd, Criteria2:="<=" & f2
End If
If ComboBox3 <> "" Then
ActiveSheet.Range("$A$2:$H$" & u).AutoFilter Field:=1, Criteria1:= _
"=" & ComboBox3
End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & arch & prefijo & ver & ext, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
End Subsal u dos, no olvides valorar.
