Notifications
Clear all
2024 - VBA & Macros
3
Posts
2
Usuários
0
Reactions
572
Visualizações
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
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
Postado : 28/07/2016 1:30 pm
Topic starter
Boa Edson,
me ajudou muuuito. Valeu mesmo !
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 28/07/2016 4:56 pm