Ajuda para Criar planilha do excel

[arilanio]

Preciso criar uma planilha para pagamento de alguns fornecedores (pago mensalmente)

gostaria de colocar o nome do fornecedor, o valor a ser pago e data de vencimento,

quando estiver faltando 20 dias ou mais para o vencimento algum campo (pode ser qq um dos tres campos) ficar verde, faltando 15 dias amareloe faltando 10 dias vermelho

quando eu colocar "pago" para a contagem... será que é possivel?

Fico imensamente grato pela ajuda!

[leno mota]

Claro que sim! Tente formatação condicional. Caso não saiba utilizar, poste um exemplo de sua planilha no sendspace e nos mande o link e lhe ajudaremos.

Ah! Caso tenha sido útil, não esqueça de marcar o polegar verde a sua direita e encerrar o tópico.

Att,

Leno Mota.

[arilanio]

Claro que sim! Tente formatação condicional. Caso não saiba utilizar, poste um exemplo de sua planilha no sendspace e nos mande o link e lhe ajudaremos.

Ah! Caso tenha sido útil, não esqueça de marcar o polegar verde a sua direita e encerrar o tópico.

Att,

Leno Mota.

Obrigado leno..

segue o link para planilha http://www.sendspace.com/file/j7icm3

se puder dar essa força fico grato

[leno mota]

Bem...

Fiz algo via VBA e espero que atenda sua necessidade e que eu não tenha feito confusão com as cores.

Pressiona "alt + f11" no seu excel e logo depois click duas vezes em "EstaPasta_de_trabalho" que fica na parte superior esquerda da tela que vai aparecer.

Insira este código na folha em branco que vai aparecer.

Private Sub Workbook_Open()
    Dim X As Date
    Dim Preencher As Boolean
        X = Date
        Range("d5").Select

        Do While Preencher = False
            If ActiveCell.Value <> vbNullString Then
                If Selection >= X + 20 Then
                    ActiveCell.Interior.ColorIndex = 10
                ElseIf ActiveCell.Value >= X + 15 Then
                    ActiveCell.Interior.ColorIndex = 6
                ElseIf ActiveCell.Value >= X + 10 Then
                    ActiveCell.Interior.ColorIndex = 3
                Else
                    ActiveCell.Interior.ColorIndex = 0
                End If
            Else
                Preencher = True
            End If
                ActiveCell.Offset(1, 0).Select
        Loop
End Sub

Feche a planilha.

Abra novamente.

Volte ao tópico do Clube do Hardware.

Marque o polegar que está agora a sua direita e encerre o tópico... hehe

Em caso de dúvidas estou à disposição.

Att,

Leno Mota.

[rariani]

Arilanio, bom dia!

Minha contribuição usando formataçao condicional.

http://www.sendspace.com/file/un5acd

Caso tenha sido útil, marque o polegar verde que está à sua direita e encerre o tópico

Dê retorno.

Abraços.

[arilanio]

Leno e Rariani, ficou perfeito, valeu mesmo

close topic

[Flavio Soares]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.