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

  • Discussão Geral

  • O código é o seguinte, galera:

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

    Valeu!



    • Tipo Alterado João Gualberto quinta-feira, 8 de outubro de 2020 02:09 Era uma dúvida que eu tinha e não tinha e descobri a solução.
    • Editado João Gualberto quinta-feira, 8 de outubro de 2020 02:12 Era uma dúvida que eu tinha e descobri a solução.
    quinta-feira, 8 de outubro de 2020 02:08

Todas as Respostas

  • 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 diniabr2011@gmail.com

    quinta-feira, 8 de outubro de 2020 11:12