Usuário com melhor resposta
Excluir planilha da pasta de trabalho do Excel2007

Pergunta
-
Respostas
-
Sub Deletar() Dim a As String a = InputBox("Digite as planilhas, separe com virgula") lista = Split(a, ",") Dim v As Boolean v = True Dim n As Integer n = 0 Do While v On Error GoTo erros Sheets(lista(n)).Delete n = n + 1 Loop erros: v = False Exit Sub End Sub
Caio Vitullo- Marcado como Resposta zinhovba sexta-feira, 1 de abril de 2011 22:26
Todas as Respostas
-
-
Obrigado!!...Caio..mas, não deu muito certo sempre fica uma planilha sem deletar.
Ex: eu tenho a Plan1, Plan2,Plan3 o código deleta a Plan2 e fica a Plan3 sendo que era para ser deletada.
Gostaria de saber duas coisas se poder me ajudar.
1º Como eu faria e exclusão Ex: Sheets("Plan1","Plan2","Plan3").delete......... algo assim seria possível dar o nome das Plans, para o código deletar?
2º Como ficaria caso eu queira usar uma inputBox, para excollher a Plan que quero deletar?
Obrigado!!!!!!!!!
zinho -
voce opde deletar uma a uma:
sheets("NomePlanilha").Delete
ou fazer o looping como no caso anterior.
tira o "-1" da variavel "i", vai resolver o problema.
quanto ao inputBox,
voce pode usar
dim nome as String
nome = InputBox("digite o nome da planilha")
Sheets(nome).Delete
Caio Vitullo -
-
Sub Deletar() Dim a As String a = InputBox("Digite as planilhas, separe com virgula") lista = Split(a, ",") Dim v As Boolean v = True Dim n As Integer n = 0 Do While v On Error GoTo erros Sheets(lista(n)).Delete n = n + 1 Loop erros: v = False Exit Sub End Sub
Caio Vitullo- Marcado como Resposta zinhovba sexta-feira, 1 de abril de 2011 22:26
-