Estrutura de repetição For... next

2024 - VBA & Macros

Post Recente por MPrudencio 9 anos atrás

2 Posts

2 Usuários

0 Reactions

1,232 Visualizações

RSS

victorsam

(@victorsam)

Posts: 110

Estimable Member

Topic starter

Pessoal estou precisando resumir esse código não tenho muita experiência loops, se alguém quiser me dar um Help agradeço valew

 If Me.u1h83.BackColor = &HCFCFCF Then
            Select Case txtP1Dur9
            Case "1"
                Me.u1h9.BackColor = &HE9E9E9
            Case "2"
                Me.u1h9.BackColor = &HE9E9E9
                Me.u1h93.BackColor = &HE9E9E9
            Case "3"
                Me.u1h9.BackColor = &HE9E9E9
                Me.u1h93.BackColor = &HE9E9E9
                Me.u1h10.BackColor = &HE9E9E9
        End Select
 
    Else
        Select Case txtP1Dur9
            Case "1"
                Me.u1h9.BackColor = &HCFCFCF
            Case "2"
                Me.u1h9.BackColor = &HCFCFCF
                Me.u1h93.BackColor = &HCFCFCF
            Case "3"
                Me.u1h9.BackColor = &HCFCFCF
                Me.u1h93.BackColor = &HCFCFCF
                Me.u1h10.BackColor = &HCFCFCF
        End Select
    End If

Tentar não é saber, é ter a certeza que vai descobrir

Dicas excel, vba, Access http://vbaedit.blogspot.com.br/

Postado : 11/10/2015 4:45 pm