Bom dia

Seria mais digno e atitude de sujeito homem, se excluísse minha conta e não ficar boicotando meu tópico. Felizmente a internet é vasta e existem inúmeros sites de ajuda aqui e fora do Brasil que são representados por pessoas que não se escondem no anonimato para praticar esse tipo de comportamento. Atitude própria de gente mesquinha e arrogante. Minha vida não vai ficar melhor ou pior por causa de tal fato. A presunção assim como a soberba aparece com a sensação de que "eu sou melhor, tenho poder" por algum motivo. Isto leva a ter uma imagem de si inflada, aumentada, nem sempre correspondendo à realidade. Ponho fim a essa discursão idiota e tenham certeza que não voltarei a ocupar nenhum dos pretensos sábios tupiniquins.

Que é isso amigo,

Ninguém está boicotando seu tópico. Particularmente lhe informo que ando com o tempo escasso para avaliar sua complexa dúvida. Vc postou dia 08 e no dia 10 já desistiu do fórum. Se não houve resposta é porquê, com certeza, a sua dúvida não é tão simples. Portanto, não está diante de: "pretensos sábios tupiniquins..."

Tenha paciência.

Boa noite!!

Seja justo com todos e torne sua postagem mais atraente!

Dê exemplos e fala ao menos um pouco do que precisa!!!

Afinal, quem quer ajuda é você!!!

Além disso temos nossos afazeres, e é de coração que tentamos AJUDAR!!!!

Vai insistir neste questionamento tolo ou vamos resolver seu problema postado neste tópico
Att

Boa noite ilbeh

Você esta se esquecendo que todos aqui são voluntários, e que nem sempre sobra tempo para atender ao fórum.
Todos trabalham, muitos, além de trabalharem, também estudam.
Deixamos de compartilhar alguns momentos com nossos filhos e esposas para contribuir com as pessoas que têm dúvidas, mas nem por isso temos a obrigação de estar sempre disponíveis a hora que a pessoa desejar.
Além disso, nem todos entendem de VBA, como eu mesmo, que ainda estou aprendendo.

Ponha a mão na conciência e veja como você está sendo injusto com todos aqui do fórum.

Abraço.

Ibeh Morais,

Por favor releia as regras do forum, e atente ao item: aqui ninguém é remunerado.
Concordo com alguém que disse que sua dúvida não está bem formulada.
Eu só nao respondi antes, pq não entrei no site por uns dias. Pq? Problema meu. Eu não te devo esta satisfação. Assim como ninguém deve.

Agora chega de lenga lenga, que esse forum vive de respostas. Não se espante que eu sou meio duro nas minhas observações.
Eu sou assim. Não é nada pessoal (se fosse eu nem responderia o tópico, vc pegou pesado desnecessariamente).

1) Analisei seu código, interessante o que ele faz, apesar de eu não entender o motivo. Eu reidentei tudo, pq isso dificultava e muito a leitura. Dê uma olhada no resultado e qdo for codificar em VBA, tente seguir este padrão, que não é só do VBA, é de qualquer linguagem de programação.

2)

O código funciona bem, inserindo valores (vermelho e azul) no alto da tela , o código busca na diagonal sequencias de binario (1) e pinta de azul ou vermelho. Preciso alterar o codigo (vide tabela ao lado) para mostrar o binario (0) em negrito com interior color bege ou cinza

Esta, acima, é a explicação dentro da sua pasta de trabalho. Vamos lá:
Se não fosse pela "tabela ao lado, "seria impossível atender sua solicitação. Pq os zeros não tem interior color bege ou cinza. Os zeros tem interior color branco.

3) a solução para mudar o interior color (como vc mesmo disse) era simples, a linha abaixo, inserida nos locais corretos dos dois códigos (Red e Blue) fez o trabalho:

ActiveCell.Interior.ColorIndex = 15

4) Para pintar todos os seus zeros de negrito, pq é isso que eu vi na "tabela ao lado", um simples Localizar/Substituir em código resolveria, e foi o que eu inseri num módulo chamado Planilhando, com o código abaixo:

Public Sub FazerZerosNegritos(rng As Range)

    With Application
        With .ReplaceFormat.Font
            .FontStyle = "Bold"
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            rng.Replace What:="0", Replacement:="0", LookAt:=xlPart, _
                        SearchOrder:=xlByRows, MatchCase:=False, _
                        SearchFormat:=False, ReplaceFormat:=True
        End With
        .FindFormat.Clear
        .ReplaceFormat.Clear
    End With
   
End Sub

Pra quem entende de VBA, esse foi um tópico super simples e fácil. Portanto acredito que vc já deva ter visto sua resposta em outro forum, que bom.
Se não tiver visto, favor agradecer e marcar este tópico como resolvido assim que você validar a resposta.

Obrigado,