Página 1 de 1

usar IF para verificar uma informação na inputbox

Enviado: 12 Ago 2021 às 19:31
por marcoenz
Prezados, boa noite

eu desenvolvi um código que vai copiar os dados de uma planilha colar e uma nova, o usuário vai informar via inputbox o nome da nova planilha e o código vai rodar, o problema é se o usuário tentar criar duas planihas com o mesmo nome, o excel até exibe uma mensagem dizendo:

erro em tempo de execução '1004'
esse nome já foi usado. Escolha outro

porém mesmo assim o excel acaba criando a planilha, no entanto ele define automaticamente um nome para a nova planilha.

alguém sabe como faço para poder criar uma verificação, se já existir uma planilha com o mesmo nome que o usuário esta tentando criar, o excel não vai deixar.

exemplo:
Código: Selecionar todos
if nomedaplanilha = "alguma planilha já existente then
....
....
...
código utilizado na minha planilha de teste
Código: Selecionar todos
Sub criarnovaplanilha()

    Dim nomedaplanilha As String
    
    nomedaplanilha = InputBox("Digite aqui o nome da sua nova planilha", "Criando uma nova planilha")

' eu copio os dados dessa planilha, ela será minha base   
 Sheets("teste").Select
    
    Sheets("teste").Copy After:=Sheets(1)
    
    ActiveSheet.Name = nomedaplanilha
    
    ActiveSheet.Range("d2").Value = nomedaplanilha
     
        
End Sub

Re: usar IF para verificar uma informação na inputbox

Enviado: 13 Ago 2021 às 09:25
por Foxtri
Bom dia
Veja se era isso .

Sub criarnovaplanilha()
Dim nomedaplanilha As String
nomedaplanilha = InputBox("Digite aqui o nome da sua nova planilha", "Criando uma nova planilha")
If Evaluate("ISREF('" & "" & nomedaplanilha & "" & "'!A1)") Then MsgBox "Esta planilha já existe": Exit Sub
'eu copio os dados dessa planilha, ela será minha base
Sheets("Teste").Select
Sheets("Teste").Copy After:=Sheets(1)
ActiveSheet.Name = nomedaplanilha
ActiveSheet.Range("d2").Value = nomedaplanilha
End Sub


Até
Foxtri

Re: usar IF para verificar uma informação na inputbox

Enviado: 14 Ago 2021 às 04:55
por marcoenz
bom dia

poderia me explicar essa linha de código, caso eu precise adpatar para outras condições de verificação, por exemplo verificar um texto digitado em um text box, em um userform ao invés de usar um inputbox.

supondo que eu troque o meu inputbox por um textbox existente em um userform
Código: Selecionar todos
If Evaluate("ISREF('" & "" & nomedaplanilha & "" & "'!A1)") Then MsgBox "Esta planilha já existe": Exit Sub
desde já agradeço