For Next em Caption de Labels

2024 - VBA & Macros

Post Recente por Fernando Fernandes 8 anos atrás

3 Posts

2 Usuários

0 Reactions

532 Visualizações

RSS

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Ola Pessoal,

Estou precisando criar um laço para verificar o CAPTION de várias LABELS, mas estou me embolando em alguma coisa. Será que alguém poderia me dar um help.

Abaixo segue minha rotina, ela precisa verificar na CAPTION dos LABEL1 até Label 37 e verificar se o valor da CAPTION é igual ou menor a um determinado valor de um listbox. Se o resultado for sim ele executa uma outra rotina.No código abaixo, esta a forma como coloquei, mas a rotina esta dando erro 13 "Tipos Incompatíveis".

Valeu

For k = 1 To Label37
         
                If k.Caption < FORMAG3.ListBox1.List(a, 3) Then
                             
                    If ListBox1.List(a, 1) = "M" Then
                        k.BackColor = &HFF8080
                    ElseIf ListBox1.List(a, 1) = "A" Then
                        k.BackColor = &H80FF&
                    ElseIf ListBox1.List(a, 1) = "PG" Then
                        k.BackColor = &HFF00&
                    ElseIf ListBox1.List(a, 1) = "C" Then
                        k.BackColor = &HFF&
                    End If

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 28/07/2016 12:36 pm

EdsonBR

(@edsonbr)

Posts: 1057

Noble Member

Boa tarde, Guima

Uma ideia:

  Dim lbl As MSForms.Label
  Dim k As Integer
  For k = 1 To 37
    Set lbl = Me.Controls("Label" & k)
    If lbl.Caption < blá, blá, blá Then
       'blá, blá, blá...
    End If
  Next k