Limpar vários ComboBox da planilha (e não do formulário Form) através de código VBA (resposta)

Question

O código é o seguinte, galera:

For contbox = 1 To 50
    ActiveSheet.OLEObjects("ComboBox" & contbox).Object.Text = ""
Next

Valeu!

Answer 1

Sub teste()

Dim i As Integer

For i = 1 To Plan1.OLEObjects.Count

If Left(Plan1.OLEObjects(i).Name, 8) = "ComboBox" Then
Plan1.OLEObjects(i).Object.Clear
End If


If Left(Plan1.OLEObjects(i).Name, 7) = "ListBox" Then
Plan1.OLEObjects(i).Object.Clear
End If


If Left(Plan1.OLEObjects(i).Name, 7) = "TextBox" Then
Plan1.OLEObjects(i).Object.Text = ""
End If

Next i

End Sub

---

A melhor forma de agradecer e votar como util e / ou marcar como resposta. Anderson Diniz [e-mail]