Duda sobre la exportación de hoja excel
El botón que tengo no visible en miniatura, me falta solo que al filtrar el combobox de Turno, también me exporte por turno por que por el momento solo me exporta por fecha.. La hoja de excel, te envío el archivo cualquier cosa.
1 Respuesta
Respuesta de Dante Amor
1
Atento a respuesta
Anexo el código
Private Sub CommandButton4_Click()
'exportar a hoja
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'
Set l1 = ThisWorkbook
'Set h1 = ActiveSheet
ruta = ThisWorkbook.Path & "\"
arch = ActiveSheet.Name
If h1.AutoFilterMode Then h1.AutoFilterMode = False
u = h1.Range("A" & Rows.Count).End(xlUp).Row
h1.Copy
Set l2 = ActiveWorkbook
Set h2 = l2.Sheets(1)
f1 = CDate(ComboBox1.Value)
If ComboBox2.Value = "" Then
f2 = f1
Else
f2 = CDate(ComboBox2.Value)
End If
'
For i = u To 3 Step -1
If ComboBox3.Value = "" Then
turno = h2.Cells(i, "A")
Else
turno = ComboBox3.Value
End If
If h2.Cells(i, "E") >= f1 And h2.Cells(i, "E") <= f2 And _
h2.Cells(i, "A") = turno Then
Else
h2.Rows(i).Delete
End If
Next
On Error Resume Next
h2.DrawingObjects("Button 1").Delete
On Error GoTo 0
l2.SaveAs Filename:=ruta & arch & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
l2.Close
MsgBox "Base de datos guardada en ESCRITORIO"
End Subsal u dos
