Hola a todos. Me gustaría me ayuden con lo siguiente. Quiero hacer una macro que borre el contenido de 10 combobox cuyo nombre es CbxComp1.....al....CbxComp10.

Una forma de hacerlo es obviamente la que sigue (y me funciona):

CbxComp1.Value = ""
    CbxComp2.Value = ""
    CbxComp3.Value = ""
    CbxComp4.Value = ""
    CbxComp5.Value = ""
    CbxComp6.Value = ""
    CbxComp7.Value = ""
    CbxComp8.Value = ""
    CbxComp9.Value = ""
    CbxComp10.Value = ""

 

El tema es que quiero hacerlo con un bucle porque voy otras situaciones similares pero con más comboxes. He probado lo siguiente pero no me funciona (no soy experto):

Dim i As Byte
Dim k As String

For i = 1 To 10
    k = "CbxComp" & i & ".value"
    k = ""
Next i

 

Agradezco la ayuda de antemano

Hace 17 minutos , jik dijo:

Agradezco la ayuda de antemano

El código que buscas es el siguiente. Lo puedes asignar a un botón, o incluirlo en algún módulo

Dim ctrl As Control

For Each ctrl In UserForm1.Controls
  If TypeName(ctrl) = "ComboBox" Then
  	ctrl.clear
  End If
Next

Muchas gracias por la respuesta pero no me sirve por 2 motivos:

1) borra todos los combobox del formulario y yo sólo quiero los 10 que indiqué

2) borra el contenido y la lista queda en blanco. Yo necesito que la lsita quede con contenido para elegir un nuevo valor.

Saludos y muchas gracias.

Dim i As Byte
For i = 1 To 10
   Controls("CbxComp" & i).Value = ""
Next i

 

Un genio!!! Muchas gracias. 

Antoni, aprovecho a consultar: como borrar todo el contenido de las LABELS si el nombre no tiene una constante como el caso anterior?

 

Con la solución aportada por Haplox, cambiando "ComboBox" por "Label".

Dim ctrl As Control

For Each ctrl In Controls
  If TypeName(ctrl) = "Label" Then
  	ctrl.Caption = ""
  End If
Next

 

Editado el el 8 de mayo4 años por Antoni