Claudio Teo

desde ja agradeço atodos , sou iniciante em vba ,o codigo que foi utilizado somente apaga uma linha por vez,gostaria se alguem tem essa solução para apagar todas as linhas de uma só vez utilizando o critério da coluna pedido. sub atualizacombo() application.screenupdating = false dim w as worksheet set w = sheets("plan1") w.select w.range("c2").select 'apaga o conteudo da caixa de seleção sheets("plan1").combobox1.clear do while activecell.value <> "" 'adiciona o valor da celula atual 'ao combobox1 da planilha cadastro 1 sheets("plan1").combobox1.additem activecell.value 'descer para a próxima celula activecell.offset(1, o).select loop application.screenupdating = true end sub