Excel - Macros

   
Vista:

Macros

Publicado por Carlos (2 intervenciones) el 13/05/2010 16:24:57
Estimad@s,

Me gustaria que me brindaran la ayuda con una macro, necesito que la misma me elimine de un formato todo lo que contenga celdas en blanco y que contenga ceros!

Saludos!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

RE:Macros

Publicado por JuanC (1052 intervenciones) el 13/05/2010 16:59:32
tenés algo hecho o querés que te hagan todo el código?
por otro lado no se entiende del todo el problema a resolver...

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Macros

Publicado por Carlos (4 intervenciones) el 13/05/2010 18:44:19
Si me puedes ayudar con el codigo seria mucho mejor.

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JuanC

RE:Macros

Publicado por JuanC (1052 intervenciones) el 13/05/2010 19:34:10
por favor explica mejor el problema o enviame detalles (y archivo) a mi
correo...
[juanc2942[@]gmail.com]

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Macros

Publicado por Carlos (4 intervenciones) el 15/05/2010 00:39:31
Le mostrare un ejemplo de los que hago

00000
00000
00000 Este es un formato generico que tengo, cada celda contiene ceros
00000 Ha este formato le ingreso cantidades pero hay veces que no se llenan
--------- todas las lineas entonces hay lineas que quedan con ceros
00000 total

12345
12345
00000 Asi quedaria el formato si me quedara algunas lineas por llenar
00000 Nota: no siempre quedara asi hay veces que se llenan todas las lineas
---------
12345 Total

Lo que necesito es que la macro me borre las lineas que contengan ceros.

Para que me genere un formato asi:

12345
12345
--------
12345 Total
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JuanC

RE:Macros

Publicado por JuanC (1052 intervenciones) el 15/05/2010 13:10:08
te dejo un código para que lo adaptes a tu gusto... (no lo hice yo)

Sub DeleteIf()
On Error Resume Next
x = ActiveCell.Value '//Aquí debería ir 00000
Set region = ActiveCell.CurrentRegion
Set col = ActiveCell.EntireColumn
Set checkrange = Intersect(region, col)

For Each cell In checkrange
If cell.Value = x Then
If n = 0 Then
Set delrange = cell.EntireRow
n = 1
Else
Set delrange = Union(delrange, cell.EntireRow)
End If
End If
Next
delrange.Delete
End Sub

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar