Notifications
Clear all

[Resolvido] Tamanho da fonte em formatação condicional.

4 Posts
2 Usuários
1 Reactions
927 Visualizações
Betito
(@betito)
Posts: 7
Active Member
Topic starter
 

Boa tarde Amigos. Sou novo no forum e preciso de vossa ajuda. Tenho uma planilha onde cadastro minhas despesas do mês. Na aba lançamentos, tem a planilha com a coluna vencimento a qual fiz formatação condicional para que a data de vencimento seja destacada de acordo com a data do sistema, porém queria mais, queria que a mesma aumentasse o tamanho da fonte por exemplo de 14 para 18 mas sei que na formatação condicional isso não e´possivel. Então criei um codigo vba para fazer isso mas como meu conhecimento em vba é limitado, não consegui. Por isso estou pedindo a ajuda dos universitários, por favar me dêem uma luz paraque eu possa resolver essa questão. Conto com vosso reortno, obrigado desde já.

 
Postado : 26/09/2022 6:27 pm
(@kikoerick)
Posts: 51
Trusted Member
 

Boa noite Betito,

 

Segue o código:

Sub data_venc()

Dim inicio, fim As Integer
Dim vencimento, hoje As Date

inicio = 6
fim = Planilha1.Range("H6:H1000000").Find(Empty).Row

hoje = Format(Now(), "DD/MM/YYYY")

    While inicio < fim

        vencimento = CDate(Planilha1.Cells(inicio, 8).Text)
    
        If vencimento = hoje Then
    
            Planilha1.Cells(inicio, 8).Font.Size = 18

        Else

            Planilha1.Cells(inicio, 8).Font.Size = 14

        End If
    
        inicio = inicio + 1

    Wend

End Sub

 

Em algum momento, esse "Sub" terá que ser chamada com o comando abaixo:

Call data_venc()
 
Postado : 29/09/2022 10:17 pm
Betito reacted
Betito
(@betito)
Posts: 7
Active Member
Topic starter
 

Valeu Kikoerick, vou testar aqui e assim que der retorno contato, obrigado.

 
Postado : 30/09/2022 4:26 pm
Betito
(@betito)
Posts: 7
Active Member
Topic starter
 

Valeu @kikoerick, funcionou legalzinho. Coloquei o codigo no evento selectionchange da worksheet e toda a vez que mudo de celula executa o comando. Valeu mesmo. Vc é fera!!!!

 
Postado : 30/09/2022 8:39 pm