Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
GENECI

Resumo diário contas a receber.

Mensagem Recomendada

Olá, Geneci.

1. para buscar os dados cole o código abaixo no módulo da planilha "Plan2"

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim r As Range
  If Target.Count > 1 Then Exit Sub
  If Target.Address = "$C$1" And Target.Value <> "" And Application.CountIf(Sheets("Plan1").[G:G], Target.Value) > 0 Then
   Application.ScreenUpdating = False
    If [A4] <> "" Then Range("A4:N" & Cells(Rows.Count, 1).End(3).Row).Value = ""
     With Sheets("Plan1")
      .AutoFilterMode = False
      .Range("A2:N" & .Cells(Rows.Count, 1).End(3).Row).AutoFilter 7, Format(Target.Value, "dd/mm/yyyy")
      .Range("A3:N" & .Cells(Rows.Count, 1).End(3).Row).Copy
      Sheets("Plan2").[A4].PasteSpecial xlValues
      .AutoFilterMode = False
     End With
   End If
 [C1].Activate
 Application.CutCopyMode = False
 Application.ScreenUpdating = True
End Sub

 

2. para pintar as células da planilha "Plan1", selecione 'A4:N4' e arraste até a linha em que deseja aplicar a formatação,
na Caixa de diálogo da Formatação Condicional ---> Usar uma fórmula ---> cole a fórmula abaixo e formate como desejar
=E($A4<>"";$C$1=HOJE())


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...