Bom dia a todos do Planilhando.
Gostaria de saber se é possível criar um if mas com o critério do nome das planilhas exemplo.
Tenho uma planilha origem onde exporto ela para outro arquivo com o nome de histórico e a partir dai eu renomeio o nome da planilha para a data do dia
porem quando rodo a macro mais de uma vez ela da erro pois já tem uma planilha renomeada. Gostaria da ajuda de vocês para tratar esse erro.
Segue Abaixo trecho do Codigo
Sub Exportar_PLanilha()
'
' Exportar_PLanilha Macro
Dim nome As String
'
'Copiar a PLanilha Excel vba
nome = Format(Date, "dd.mm.yyyy")
Workbooks.Open Filename:= _
ThisWorkbook.Path & "Historico.XLSB"
Windows("Historico.XLSB").Activate
Windows("Origem.XLSB").Activate
Sheets("Base").Select
Sheets("Base").Copy After:=Workbooks("Historico.xlsb").Sheets(3)
Sheets("Base").Name = nome
Workbooks("Historico").Save
Workbooks("Historico").Close
End Sub
Acho que consigo criar um if onde posso colocar um end sub e caso contrario eu rodo esse trecho para exportar e renomear
porém estou com dificuldade de criar a condição para verificar nome com todas as planilhas existentes.
Se alguem puder ajuda agradeço.
Segue um exemplo em Anexo
Postado : 18/10/2013 9:15 am