Guardar hoja de libro eliminando filas segun condicion
Publicado por Juan Jose (6 intervenciones) el 25/05/2018 19:07:09
Hola a todos.
tengo una hoja Excel con una columna con datos de personas y otra con los importes.

y he creado un boton que guarda con cuadro de dialogo la hoja .
pero quisiera modifcar el codigo para que en la hoja guardada , se eliminaran las filas en las que el importe sea 0
Es decir , copiamos la hoja , eliminamos las filas que contengan cero , y la guardamos en la direccion indicada por el cuadro de dialogo
El codigo a modificar es este :
Alguien me podria ayudar , le estaria muy agradecido.
un saludo
tengo una hoja Excel con una columna con datos de personas y otra con los importes.

y he creado un boton que guarda con cuadro de dialogo la hoja .
pero quisiera modifcar el codigo para que en la hoja guardada , se eliminaran las filas en las que el importe sea 0
Es decir , copiamos la hoja , eliminamos las filas que contengan cero , y la guardamos en la direccion indicada por el cuadro de dialogo
El codigo a modificar es este :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Guardar_plantilla()
'Cuadro de Dialogo para guardar el dato
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "Guardar Hoja Formateada "
.AllowMultiSelect = False
'nombre con el que se guardara
.InitialFileName = "Prueba Molino"
.FilterIndex = 1 'como xls
If .Show Then
ruta = .SelectedItems(1)
End If
End With
Worksheets(1).Copy
Application.DisplayAlerts = False
ActiveSheet.Unprotect
'ocultacion de los botones
ActiveSheet.Shapes("bt_guardar").Select
Selection.Visible = False
'Propiedades de la tabla
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ruta, FileFormat:=xlWorkbookDefault
ActiveWorkbook.Close
End Sub
Alguien me podria ayudar , le estaria muy agradecido.
un saludo
Valora esta pregunta


0