Visual Basic para Aplicaciones - Macros/Excel

Life is soft - evento anual de software empresarial
   
Vista:

Macros/Excel

Publicado por Julio Cesar Castillon (1 intervención) el 26/02/2012 22:26:37
Buen dia.

Me preguntaba si abria alguna manera de realizar un macros que cortara Valores Inecesarios (Que no se utilizen)
Es decir...
(TABLA EXCEL)
--------------------------------------------------------------------------------------------------------------------------------------------Descripcion| local1int | Local2int | LocalExt1 | LocalExt2 |
------------------------------------------------------------------------------------------------------------------------------------------
num.mat 10 20 0 0 <--Borar renglones convalores 0
num.mat 13 22 4 10 <-- Dejar solamente con valores


Lo que quiero es que el macros Borre las celdas donde en Localext1 y local Ext2 Marque "0"
Y solo dejar los que tienen valores en esas columnas
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
información
Otras secciones de LWP con contenido de Visual Basic para Aplicaciones
- Código fuente de Visual Basic para Aplicaciones
- Cursos de Visual Basic para Aplicaciones
- Temas de Visual Basic para Aplicaciones
información
Códigos de Visual Basic para Aplicaciones
- Juego del Ahorcado
- Rompecabezas
- controlar tecla Numlock
Imágen de perfil de JuanC

Macros/Excel

Publicado por JuanC juanc2942@gmail.com (431 intervenciones) el 04/03/2012 11:29:29
un ejemplo bien simple...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
Dim i&, cell As Range, r As Range
i = 0
Set cell = Range("D2") '//Primer valor de la columna LocalExt1
Do While cell.Offset(i).Value <> ""
   If cell.Offset(i, 0).Value = 0 And cell.Offset(i, 1).Value = 0 Then
      If r Is Nothing Then
         Set r = cell.EntireRow
      Else
           Set r = Union(r, cell.Offset(i).EntireRow)
      End If
   End If
   i = i + 1
Loop
If Not r Is Nothing Then r.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