Private Sub Cbo_Atividades_Click() If Cbo_Atividades.BackColor = RGB(128, 128, 128) Then Cbo_Atividades.BackColor = RGB(64, 64, 64) Cbo_Gra...

A resposta está acima. Veja o anexo Alterar cores de botões 2. Favor marcar como resolvido na parte que eu enviei.

A resposta está acima. Veja o anexo Alterar cores de botões 2

Boa observação

Esta forma é mais resumida e vale para grandes quantidades de botões: Public nome As Integer Sub Botao() Dim Botao(6) As Object Dim i, j As Integer...

Esta forma é extensa e inviável para grandes quantidades de botões: Private Sub Cbo_Atividades_Click() If Cbo_Atividades.BackColor = RGB(128, 1...

Option Explicit Private Sub UserForm_Initialize() Dim intervalo As Range Set intervalo = Plan1.Range("valores") Dim ar(0 To 9) ...

Cada célula vai em uma posição do array Option Explicit Private Sub UserForm_Initialize() Dim intervalo As Range Set intervalo = Plan1.Ran...

Sub somar() On Error Resume Next Dim ct As Object Dim soma As Double soma = 0 For Each ct In Me.Controls If TypeName(ct) = "TextBox" T...

Dim Item As ListItem Set item = ListView1.ListItems.Add(,,"Item 1") Set item = ListView1.ListItems.Add(,,"Item ...

Esse erro é referente a qual linha?

https://www.youtube.com/results?search_query=excel+vba+carregar+listview

Quando for inserir código, você deve clicar no botão code

Por que você não anexou o arquivo?

Você deve colocar o link aqui. Neste fórum há milhares de pessoas, somente algumas viram o seu tópico anterior: http://www.planilhando....