Jump to content

falexramos

Members
  • Content Count

    155
  • Joined

  • Last visited

  • Days Won

    2

falexramos last won the day on October 21 2012

falexramos had the most liked content!

About falexramos

  • Rank
    Advanced Member
  • Birthday 06/17/1986

Converted

  • Campos
    ,
  1. rulesagain prueba con esto haber si es lo que necesitas Sub Ocultar_filas_0() Dim x As Long Dim y As Integer Application.ScreenUpdating = False y = 0 Range("J2").Select For x = 1 To Rows.Count Cells(x, 1).Select If IsNull(ActiveCell.value) Or ActiveCell.value = "" Then MsgBox ("Fin del Proceso, Se modificaron: " & y & " Filas en Ceros") Exit Sub Else Selection.End(xlToRight).Select If ActiveCell.value = 0 Then Selection.EntireRow.Hidden = True y = y + 1 End If End If Next x Application.ScreenUpdating = True End Sub[/CODE] una modificacion que le hizo Adrian "Macro Antonio" y la mejoro.
  2. rulesagain el master macro antonio es fantastico, ami no se me hubiera ocurrido esto.
  3. Oculta la columna si cumple el criterio, que la columna este en valor 0. Sub Ocultar_columnas_0() Dim x As Integer Dim y As Integer y = 0 Range("J5").Select For x = 10 To 256 Cells(5, x).Select If IsNull(ActiveCell.value) Or ActiveCell.value = "" Then MsgBox ("Fin del Proceso, Se modificaron: " & y & " Columnas en Ceros") Exit Sub Else Selection.End(xlDown).Select If ActiveCell.value = 0 Then Selection.EntireColumn.Hidden = True y = y + 1 End If End If Next x End Sub[/CODE] Es algo que quice compartir, espero le sirva alguien mas.
×
×
  • Create New...

Important Information

Privacy Policy