none
Erro em tempo de execução “91” RRS feed

  • Pergunta

  • Boa Tarde a Todos

    Por favor, gostaria da ajuda de VC´s com este projeto, eu tenho um form com 10
    Label  vinculada em uma linha de minha planilha de valores 1 a 10
    aleatórios, e  quando inicia o form a cor das label mudam de
    acordo com o valor, pelo menos deveria ser se não aparecesse um erro:

    Erro em tempo de execução “91”

    A variável do objeto ou a variável do bloco ‘With’ não foi definida

    Sub CorLabel()

    Dim myLabel As MSForms.Label

      Select Case myLabel

      Case 1 To 3: myLabel.BackColor = &HBB00D

      Case 3 To 5: myLabel.BackColor = &H8099D

      Case 5 To 10: myLabel.BackColor = &H80CCCD

      End Select

    End Sub

    Alguém conhece esse erro, pode me ajudar

    Grato

    Mauro



    • Editado MauroMeira quarta-feira, 15 de junho de 2016 17:54 erro
    quarta-feira, 15 de junho de 2016 17:51

Respostas

  • Fiz um teste para buscar um comportamento do jeito que você descreveu. Utilizei o código abaixo. Voce pode adaptá-lo a sua necessidade.

    Private Sub UserForm_Initialize()
    Label1.Caption = ThisWorkbook.Sheets("Plan1").Range("A1")
    Label2.Caption = ThisWorkbook.Sheets("Plan1").Range("A2")
    Label3.Caption = ThisWorkbook.Sheets("Plan1").Range("A3")
    Label4.Caption = ThisWorkbook.Sheets("Plan1").Range("A4")
    
    Dim myLabel As MSForms.Label
    For Each myLabel In UserForm1.Controls
      Select Case myLabel.Caption
      Case 1 To 3: myLabel.BackColor = &HBB00D
      Case 4 To 5: myLabel.BackColor = &H8099D
      Case 6 To 10: myLabel.BackColor = &H80CCCD
      End Select
    Next myLabel
      
    End Sub


    Rafael Kamimura - http://excelmaniacos.com

    • Marcado como Resposta MauroMeira quinta-feira, 16 de junho de 2016 12:10
    quarta-feira, 15 de junho de 2016 20:29
  • Bom Dia Rafael Kamimura

    Obrigado pelo retorno, resolveu meu problema.

    Grato

    Abraço

    Mauro

    • Marcado como Resposta MauroMeira quinta-feira, 16 de junho de 2016 12:10
    quinta-feira, 16 de junho de 2016 12:10

Todas as Respostas

  • Fiz um teste para buscar um comportamento do jeito que você descreveu. Utilizei o código abaixo. Voce pode adaptá-lo a sua necessidade.

    Private Sub UserForm_Initialize()
    Label1.Caption = ThisWorkbook.Sheets("Plan1").Range("A1")
    Label2.Caption = ThisWorkbook.Sheets("Plan1").Range("A2")
    Label3.Caption = ThisWorkbook.Sheets("Plan1").Range("A3")
    Label4.Caption = ThisWorkbook.Sheets("Plan1").Range("A4")
    
    Dim myLabel As MSForms.Label
    For Each myLabel In UserForm1.Controls
      Select Case myLabel.Caption
      Case 1 To 3: myLabel.BackColor = &HBB00D
      Case 4 To 5: myLabel.BackColor = &H8099D
      Case 6 To 10: myLabel.BackColor = &H80CCCD
      End Select
    Next myLabel
      
    End Sub


    Rafael Kamimura - http://excelmaniacos.com

    • Marcado como Resposta MauroMeira quinta-feira, 16 de junho de 2016 12:10
    quarta-feira, 15 de junho de 2016 20:29
  • Bom Dia Rafael Kamimura

    Obrigado pelo retorno, resolveu meu problema.

    Grato

    Abraço

    Mauro

    • Marcado como Resposta MauroMeira quinta-feira, 16 de junho de 2016 12:10
    quinta-feira, 16 de junho de 2016 12:10