Pergunte aqui

Histórico de revisões [voltar]

EJRAS, não me parece difícil, porém será bem mais fácil, se me enviar a planilha, email: strong textgilberto@schiavinatto.comstrong text

EJRAS, não me parece difícil, porém será bem mais fácil, se me enviar a planilha, email: strong textgilberto@schiavinatto.comstrong text

EJRAS, não me parece difícil, porém será bem mais fácil, se me enviar a planilha, email: gilberto@schiavinatto.com

Faça uso da função SE para mostrar os dados da parcela e se não houver dados a mostrar coloque branco ("").

Para ocultar as parcelas com valores em branco, use a macro abaixo:

Rem Attribute VBA_ModuleType=VBAModule Option VBASupport 1 Sub Ocultar() Dim i As Integer For i = 1 To 79 If Range("A" & i).Value = "" Then Rows(i & ":" & i).Select Selection.EntireRow.Hidden = True Else End If Next i End Sub

e para mostrar novamente:

Sub mostrar() Cells.Select Selection.EntireRow.Hidden = False Range("A1").Select End Sub

EJRAS, não me parece difícil, porém será bem mais fácil, se me enviar a planilha, email: gilberto@schiavinatto.com

Faça uso da função SE para mostrar os dados da parcela e se não houver dados a mostrar coloque branco ("").

Para ocultar as parcelas com valores em branco, use a macro abaixo:

Rem Attribute VBA_ModuleType=VBAModule VBA_ModuleType=VBAModule

Option VBASupport 1 1

Sub Ocultar() Ocultar()

Dim i As Integer Integer

For i = 1 To 79 79

If Range("A" & i).Value = "" Then Then

Rows(i & ":" & i).Select i).Select

Selection.EntireRow.Hidden = True Else True

Else

End If If

Next i i

End Sub

e para mostrar novamente:

Sub mostrar() Cells.Select mostrar()

Cells.Select

Selection.EntireRow.Hidden = False Range("A1").Select False

Range("A1").Select

End Sub

clique para ocultar/mostrar a revisão 5
No.5 Revision

EJRAS, não me parece difícil, porém será bem mais fácil, se me enviar a planilha, email: gilberto@schiavinatto.com

Faça uso da função SE para mostrar os dados da parcela e se não houver dados a mostrar coloque branco ("").

Para ocultar as parcelas com valores em branco, use a macro abaixo:

Rem Attribute VBA_ModuleType=VBAModule 

Option VBASupport 1

1 Sub Ocultar()

Ocultar() Dim i As Integer

Integer For i = 1 To 79

79 If Range("A" & i).Value = "" Then

Then Rows(i & ":" & i).Select

i).Select Selection.EntireRow.Hidden = True

True Else

Else

End If

If Next i

End Sub

Sub

e para mostrar novamente:

Sub mostrar()

mostrar()

Cells.Select

Cells.Select Selection.EntireRow.Hidden = False

False Range("A1").Select End Sub

Range("A1").Select

End Sub