Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Executa Sub no botã...
 
Notifications
Clear all

Executa Sub no botão mas dá erro no formulário

 
2024 - VBA & Macros
Post Recente por klarc28 6 anos atrás
2 Posts
2 Usuários
0 Reactions
963 Visualizações
RSS
 DCMAC
(@dcmac)
Posts: 3
New Member
Topic starter
 

Bom dia,

Tenho uma macro que quando eu mando executar através do click do botão, funciona perfeitamente.
Mas queria que a macro executasse quando fosse ativada uma aba da planilha (Aba Visual). Mas quando coloco o mesmo do botão no Sheet_Activate (), dá um erro quando executa a macro...
Podem me ajudar a corrigir isso, por favor?
Segue código, pois o arquivo é muito grande.

Sub Macro_Plataforma()
Sheets("Dados").Activate

'TK-111.01
Sheets("Dados").Activate
If Range("D2") <> "" Then
    If ActiveSheet.Range("D2") = "Disponível" Then
        C = ActiveSheet.Range("D2").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 62").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 62").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D2").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 62").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 62").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 62").Visible = False
End If

'TK-111.02
Sheets("Dados").Activate
If ActiveSheet.Range("D3") <> "" Then
    If ActiveSheet.Range("D3") = "Disponível" Then
        C = ActiveSheet.Range("D3").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 57").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 57").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D3").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 57").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 57").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 57").Visible = False
End If

'TK-111.03
Sheets("Dados").Activate
If ActiveSheet.Range("D4") <> "" Then
    If ActiveSheet.Range("D4") = "Disponível" Then
        C = ActiveSheet.Range("D4").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 84").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 84").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D4").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 84").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 84").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 84").Visible = False
End If

'TK-111.04
Sheets("Dados").Activate
If ActiveSheet.Range("D5") <> "" Then
    If ActiveSheet.Range("D5") = "Disponível" Then
        C = ActiveSheet.Range("D4").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 64").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 64").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D5").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 64").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 64").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 64").Visible = False
End If

'TK-111.05
Sheets("Dados").Activate
If ActiveSheet.Range("D6") <> "" Then
    If ActiveSheet.Range("D6") = "Disponível" Then
        C = ActiveSheet.Range("D6").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 93").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 93").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D6").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 93").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 93").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 93").Visible = False
End If

'TK-111.06
Sheets("Dados").Activate
If ActiveSheet.Range("D7") <> "" Then
    If ActiveSheet.Range("D7") = "Disponível" Then
        C = ActiveSheet.Range("D7").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 118").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 118").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D7").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 118").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 118").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 118").Visible = False
End If

'TK-111.07
Sheets("Dados").Activate
If ActiveSheet.Range("D8") <> "" Then
    If ActiveSheet.Range("D8") = "Disponível" Then
        C = ActiveSheet.Range("D8").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 119").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 119").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D8").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 119").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 119").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 119").Visible = False
End If

'TK-111.08
Sheets("Dados").Activate
If ActiveSheet.Range("D9") <> "" Then
    If ActiveSheet.Range("D9") = "Disponível" Then
        C = ActiveSheet.Range("D9").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 120").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 120").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D9").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 120").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 120").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 120").Visible = False
End If

'TK-111.09
Sheets("Dados").Activate
If ActiveSheet.Range("D10") <> "" Then
    If ActiveSheet.Range("D10") = "Disponível" Then
        C = ActiveSheet.Range("D10").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 121").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 121").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D10").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 121").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 121").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 121").Visible = False
End If

'TK-111.10
Sheets("Dados").Activate
If ActiveSheet.Range("D11") <> "" Then
    If ActiveSheet.Range("D11") = "Disponível" Then
        C = ActiveSheet.Range("D11").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 124").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 124").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D11").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 124").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 124").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 124").Visible = False
End If

'TK-111.11
Sheets("Dados").Activate
If ActiveSheet.Range("D12") <> "" Then
    If ActiveSheet.Range("D12") = "Disponível" Then
        C = ActiveSheet.Range("D12").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 123").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 123").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D12").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 123").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 123").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 123").Visible = False
End If

'TK-111.12
Sheets("Dados").Activate
If ActiveSheet.Range("D13") <> "" Then
    If ActiveSheet.Range("D13") = "Disponível" Then
        C = ActiveSheet.Range("D13").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 122").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 122").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D13").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 122").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 122").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 122").Visible = False
End If

'TK-111.13
Sheets("Dados").Activate
If ActiveSheet.Range("D14") <> "" Then
    If ActiveSheet.Range("D14") = "Disponível" Then
        C = ActiveSheet.Range("D14").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 100").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 100").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D14").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 100").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 100").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 100").Visible = False
End If

'TK-111.14
Sheets("Dados").Activate
If ActiveSheet.Range("D15") <> "" Then
    If ActiveSheet.Range("D15") = "Disponível" Then
        C = ActiveSheet.Range("D15").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 85").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 85").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D15").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 85").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 85").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 85").Visible = False
End If

'TK-111.15
Sheets("Dados").Activate
If ActiveSheet.Range("D16") <> "" Then
    If ActiveSheet.Range("D16") = "Disponível" Then
        C = ActiveSheet.Range("D16").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 63").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 63").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D16").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 63").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 63").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 63").Visible = False
End If

'TK-111.16
Sheets("Dados").Activate
If ActiveSheet.Range("D17") <> "" Then
    If ActiveSheet.Range("D17") = "Disponível" Then
        C = ActiveSheet.Range("D17").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 51").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 51").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D17").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 51").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 51").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 51").Visible = False
End If

'TK-112.01
Sheets("Dados").Activate
If ActiveSheet.Range("D18") <> "" Then
    If ActiveSheet.Range("D18") = "Disponível" Then
        C = ActiveSheet.Range("D18").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 52").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 52").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D18").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 52").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 52").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 52").Visible = False
End If

'TK-112.02
Sheets("Dados").Activate
If ActiveSheet.Range("D19") <> "" Then
    If ActiveSheet.Range("D19") = "Disponível" Then
        C = ActiveSheet.Range("D19").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 55").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 55").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D19").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 55").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 55").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 55").Visible = False
End If

'TK-112.03
Sheets("Dados").Activate
If ActiveSheet.Range("D20") <> "" Then
    If ActiveSheet.Range("D20") = "Disponível" Then
        C = ActiveSheet.Range("D20").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 95").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 95").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D20").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 95").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 95").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 95").Visible = False
End If

'TK-112.04
Sheets("Dados").Activate
If ActiveSheet.Range("D21") <> "" Then
    If ActiveSheet.Range("D21") = "Disponível" Then
        C = ActiveSheet.Range("D21").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 89").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 89").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D21").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 89").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 89").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 89").Visible = False
End If

'TK-112.05
Sheets("Dados").Activate
If ActiveSheet.Range("D22") <> "" Then
    If ActiveSheet.Range("D22") = "Disponível" Then
        C = ActiveSheet.Range("D22").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 125").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 125").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D22").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 125").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 125").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 125").Visible = False
End If

'TK-112.06
Sheets("Dados").Activate
If ActiveSheet.Range("D23") <> "" Then
    If ActiveSheet.Range("D23") = "Disponível" Then
        C = ActiveSheet.Range("D23").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 126").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 126").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D23").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 126").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 126").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 126").Visible = False
End If

'TK-112.07
Sheets("Dados").Activate
If ActiveSheet.Range("D24") <> "" Then
    If ActiveSheet.Range("D24") = "Disponível" Then
        C = ActiveSheet.Range("D24").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 127").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 127").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D24").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 127").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 127").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 127").Visible = False
End If

'TK-112.08
Sheets("Dados").Activate
If ActiveSheet.Range("D25") <> "" Then
    If ActiveSheet.Range("D25") = "Disponível" Then
        C = ActiveSheet.Range("D25").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 128").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 128").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D25").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 128").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 128").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 128").Visible = False
End If

'TK-112.09
Sheets("Dados").Activate
If ActiveSheet.Range("D26") <> "" Then
    If ActiveSheet.Range("D26") = "Disponível" Then
        C = ActiveSheet.Range("D26").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 129").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 129").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D26").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 129").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 129").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 129").Visible = False
End If

'TK-112.10
Sheets("Dados").Activate
If ActiveSheet.Range("D27") <> "" Then
    If ActiveSheet.Range("D27") = "Disponível" Then
        C = ActiveSheet.Range("D27").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 133").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 133").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D27").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 133").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 133").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 133").Visible = False
End If

'TK-112.11
Sheets("Dados").Activate
If ActiveSheet.Range("D28") <> "" Then
    If ActiveSheet.Range("D28") = "Disponível" Then
        C = ActiveSheet.Range("D28").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 132").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 132").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D28").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 132").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 132").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 132").Visible = False
End If

'TK-112.12
Sheets("Dados").Activate
If ActiveSheet.Range("D29") <> "" Then
    If ActiveSheet.Range("D29") = "Disponível" Then
        C = ActiveSheet.Range("D29").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 131").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 131").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D29").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 131").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 131").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 131").Visible = False
End If

'TK-112.13
Sheets("Dados").Activate
If ActiveSheet.Range("D30") <> "" Then
    If ActiveSheet.Range("D30") = "Disponível" Then
        C = ActiveSheet.Range("D30").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 130").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 130").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D30").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 130").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 130").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 130").Visible = False
End If

'TK-112.14
Sheets("Dados").Activate
If ActiveSheet.Range("D31") <> "" Then
    If ActiveSheet.Range("D31") = "Disponível" Then
        C = ActiveSheet.Range("D31").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 101").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 101").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D31").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 101").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 101").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 101").Visible = False
End If

'TK-112.15
Sheets("Dados").Activate
If ActiveSheet.Range("D32") <> "" Then
    If ActiveSheet.Range("D32") = "Disponível" Then
        C = ActiveSheet.Range("D32").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 56").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 56").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D32").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 56").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 56").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 56").Visible = False
End If

'TK-112.16
Sheets("Dados").Activate
If ActiveSheet.Range("D33") <> "" Then
    If ActiveSheet.Range("D33") = "Disponível" Then
        C = ActiveSheet.Range("D33").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 94").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 94").Visible = True
    Else
        'Identificar cor pelo código RGB
        C = ActiveSheet.Range("D33").Interior.Color
        R = C And 255
        G = C  256 And 255
        B = C  256 ^ 2 And 255
        Sheets("Visual").Activate
        ActiveSheet.Shapes("Retângulo 94").Fill.ForeColor.RGB = RGB(R, G, B)
        ActiveSheet.Shapes("Retângulo 94").Visible = True
    End If
Else
    Sheets("Visual").Activate
    ActiveSheet.Shapes("Retângulo 94").Visible = False
End If

End Sub
 
Postado : 24/07/2018 6:21 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

Evite usar activate, pois deixa o processamento mais lento. Vou fazer apenas um exemplo, faça o mesmo para os outros:

Sub Macro_Plataforma()


'TK-111.01

If Sheets("Dados").Range("D2") <> "" Then
If Sheets("Dados").Range("D2") = "Disponível" Then
C = Sheets("Dados").Range("D2").Interior.Color
R = C And 255
G = C  256 And 255
B = C  256 ^ 2 And 255

Sheets("Visual").Shapes("Retângulo 62").Fill.ForeColor.RGB = RGB(R, G, B)
Sheets("Visual").Shapes("Retângulo 62").Visible = True
Else
'Identificar cor pelo código RGB
C =Sheets("Dados").Range("D2").Interior.Color
R = C And 255
G = C  256 And 255
B = C  256 ^ 2 And 255

Sheets("Visual").Shapes("Retângulo 62").Fill.ForeColor.RGB = RGB(R, G, B)
Sheets("Visual").Shapes("Retângulo 62").Visible = True
End If
Else

Sheets("Visual").Shapes("Retângulo 62").Visible = False
End If



End Sub

Quando colocar código neste fórum aperte o botão Code.

Anexe o arquivo ou compartilhe o link da nuvem (OneDrive, GoogleDrive etc.)

 
Postado : 24/07/2018 8:17 am
Forum Jump:
  Tópico Anterior
Próximo Tópico