Guru do Excel e Power BI

Ola Boa Tarde já agradeço por esta lendo minha duvida estou desenvolvendo uma aplicação e fiz ela desse modo gostaria de saber se teria outro modo fazer.

With formulario_menu
If Sheets("Recados").Range("B2") <> "" Then
.cmd_ap11.BackColor = &H808080
.cmd_ap11.ForeColor = &HFFFFFF
ElseIf Sheets("Recados").Range("B2") = "" Then
.cmd_ap11.BackColor = &HFFFFFF
.cmd_ap11.ForeColor = &H808080
End If

If Sheets("Recados").Range("B3") <> "" Then
.cmd_ap12.BackColor = &H808080
.cmd_ap12.ForeColor = &HFFFFFF
ElseIf Sheets("Recados").Range("B3") = "" Then
.cmd_ap12.BackColor = &HFFFFFF
.cmd_ap12.ForeColor = &H808080
End If

Cada vez que abro meu formulário ,essa formula passa pela células e me retorna resultado se esta vazia ou não e com isso o meu Bt muda de cor para avisar se esta vazia ou cheia so que tenho 72 botão

gostaria saber se teria ou modo de escrever.

Experimente

Código: Selecionar todos

 Dim i As Long
  For i = 2 To 71
   With formulario_menu
    If Sheets("Recados").Range("B" & i) <> "" Then
     .Controls("cmd_ap" & i + 9).BackColor = &H808080
     .Controls("cmd_ap" & i + 9).ForeColor = &HFFFFFF
    Else
     .Controls("cmd_ap" & i + 9).BackColor = &HFFFFFF
     .Controls("cmd_ap" & i + 9).ForeColor = &H808080
    End If
   End With
  Next i

Boa Tarde ,Obrigado pelo Sr ter tido a boa vontade de ler minha pergunta e mais ainda de ter dedicado o seu tempo para escrever um codigo mais acho que não soube eu me expressar direito e o código que o Sr escreveu não atenderia.
Mais muito obrigado pela sua atenção

MrLyma escreveu:... mais acho que não soube eu me expressar direito e o código que o Sr escreveu não atenderia.

E o senhor poderia nos informar a razão pela qual o senhor acha que o código que eu sugeri não atenderia ?

O senhor ao menos fez testes ?

Guru do Excel e Power BI

Excel VBA Aviso

Excel VBA Aviso

Re: Excel VBA Aviso

Excel VBA Aviso

Re: Excel VBA Aviso