MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Formatação condicional via VBA

    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 374
    Registrado : 28/10/2010

    Formatação condicional via VBA Empty Formatação condicional via VBA

    Mensagem  zcarloslopes 12/10/2020, 12:24

    Bom dia a todos,

    Começo por pedir desculpa por colocar esta dúvida aqui, mas estou mesmo sem soluções... e parece-me um problema fácil de resolver para os peritos em VBA.

    Tenho este código que funciona há anos no excel 2003, mas não tenho conseguido por nada colocar a funcionar no excel 2007.
    Código:
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Not Intersect(Target, Range("B12:AL36")) Is Nothing Then
    If Target.Cells.Count > 1 Or IsEmpty(Target.Cells) Then Exit Sub
    Cancel = True
    With Target.Cells
            
        If .Interior.ColorIndex = xlNone Or .Interior.ColorIndex = 2 Then
        
            .Interior.ColorIndex = 4
            .FormatConditions(1).Interior.ColorIndex = 4
        
        Else
        
            .Interior.ColorIndex = xlNone
            .FormatConditions(1).Interior.ColorIndex = 15

        End If
    End With
    End If
    End Sub
    O erro é nas linhas:
    Código:
    .FormatConditions(1).Interior.ColorIndex
    Ficaria mesmo muito agradecido se conseguir uma solução.

    Obrigado
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2611
    Registrado : 22/11/2016

    Formatação condicional via VBA Empty Re: Formatação condicional via VBA

    Mensagem  DamascenoJr. 12/10/2020, 12:36

    Tópico movido para off topic por não se tratar de VBA Access.

    Lembre-se: este fórum é voltado para VBA Access, está buscando ajuda para VBA Excel.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 8/3/2021, 05:26