Pintar Label de un Userform según condición (Excel)

Solamente otra manera de buscar el label y de poner el color:

Private Sub CommandButton1_Click()
  Dim ct As Control, dato As String
  dato = "B10"
  For Each ct In Controls
    If TypeOf ct Is MSForms.Label And ct.Caption = dato Then ct.BackColor = &H80FF80
  Next
End Sub

Te dejo la macro del bucle que recorrerá todos los label hasta encontrar ese caption y colocarle el color.

Private Sub CommandButton1_Click()
dato = "B10"
For Each ct In Me.Controls
    If TypeName(ct) = "Label" Then
        If ct.Caption = dato Then ct.BackColor = RGB(255, 255, 0): Exit For
    End If
Next ct
End Sub

En tu botón colocarás solo la parte del bucle, ajustando el nombre de la variable (dato).

En este caso se recorren todos los controles del Userform (Me. Controls) pero bien podrías limitar la búsqueda a solo el Frame que los contiene si es que tienes más de un cuadro. Por ejemplo:

For Each ct in Frame2.Controls

Sdos y no olvides valorar la respuesta.

Elsa

http://aplicaexcel.com/manuales.htm