3

Estaría interesado en ocultar filas en hoja excel antes de imprimir, tengo un código con error

Me podrían dar ayuda ?

Sub OcultarFilas()

    Dim Celda As Range
    Hoja1.Select 
    while Celda == Range("A1:W393")
        If Celda.Value = 0 || Empty(Celda) Then
            Rows(Celda.Row & ":" & Celda.Row) = True
        End If
    Hoja1.PrintPreview

End Sub

1 respuesta 1

3

Puedes probar así

Creo que estas mezclando varios lenguajes. Cambia || por Or

Sub OcultarFilas()

    Dim Celda As Range
    Hoja1.Select 'seleccionas por nombre del objeto
    For Each Celda In Range("A1:W393")   'usa un For Each
        If Celda.Value = 0 Or IsEmpty(Celda) Then 'si esta vacía o con cero la oculta
            Rows(Celda.Row & ":" & Celda.Row).EntireRow.Hidden = True  'Agrega la parte final del código
        End If
    Next Celda  'pasa a la siguiente
    Hoja1.PrintPreview

End Sub
1
  • Vaya, que rapido, muchas gracias. Lo pruebo
    – Henry
    el 15 may. 2021 a las 19:42

Tu Respuesta

Al pulsar en “Publica tu respuesta”, muestras tu consentimiento a nuestros términos de servicio, política de privacidad y política de cookies

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.