PROBLEMAS COM BOTOES DO INPUTBOX
E aà gente! Estou com uma problema com os botões do inputbox. Tenho um inputbox que tem a seguinte função. Fiz uma macro que cria a cópia da guia atual da planilha e antes de copiar aparece uma inputbox para nomear a guia que vai ser criada e clico em ok e pronto aparece a guia já renomeada ao lado. Só que, se eu desistir da ação e clicar no botão cancelar ou fechar a ação é realizada do mesmo jeito. O que faço pra resolver este problema? Me ajudem galera..rs..rs....Obrigado.
poste o codigo
Segue código:
[ô]Pede para o usuário dar um nome à nova planilha, ou melhor, à [Ô]planilha-cópia[Ô] !!!
NomePlan$ = InputBox([Ô]Digite o nome do destinatário e data de envio: Ex: Pablo DD-MM-AA[Ô], [Ô]Nome do Recibo[Ô], ActiveSheet.Name)
[ô]Coloca o nome digitado pelo usuário na planilha
If Len(NomePlan$) <> 0 Then ActiveSheet.Name = NomePlan$
[ô]Pede para o usuário dar um nome à nova planilha, ou melhor, à [Ô]planilha-cópia[Ô] !!!
NomePlan$ = InputBox([Ô]Digite o nome do destinatário e data de envio: Ex: Pablo DD-MM-AA[Ô], [Ô]Nome do Recibo[Ô], ActiveSheet.Name)
[ô]Coloca o nome digitado pelo usuário na planilha
If Len(NomePlan$) <> 0 Then ActiveSheet.Name = NomePlan$
Coloque um EXIT SUB ou EXIT FUNCTION, dependendo de como vc chama esse procedimento:
[ô]Pede para o usuário dar um nome à nova planilha, ou melhor, à [Ô]planilha-cópia[Ô] !!!
NomePlan$ = InputBox([Ô]Digite o nome do destinatário e data de envio: Ex: Pablo DD-MM-AA[Ô], [Ô]Nome do Recibo[Ô], ActiveSheet.Name)
[ô]Coloca o nome digitado pelo usuário na planilha
If Len(NomePlan$) <> 0 Then
ActiveSheet.Name = NomePlan$
Else
Exit Sub ou Exit Function
End IF
[ô]Pede para o usuário dar um nome à nova planilha, ou melhor, à [Ô]planilha-cópia[Ô] !!!
NomePlan$ = InputBox([Ô]Digite o nome do destinatário e data de envio: Ex: Pablo DD-MM-AA[Ô], [Ô]Nome do Recibo[Ô], ActiveSheet.Name)
[ô]Coloca o nome digitado pelo usuário na planilha
If Len(NomePlan$) <> 0 Then
ActiveSheet.Name = NomePlan$
Else
Exit Sub ou Exit Function
End IF
if nomedainput = [Ô][Ô] then
msgbox [Ô]Operaçao cancelada[Ô]: exit sub
end if
msgbox [Ô]Operaçao cancelada[Ô]: exit sub
end if
SACOFRITO, blz!
O seu código realmente cancela a ação, mas quando clico em ok aparece a mesma mensagem de operação cancelada e não realiza a ação.
O seu código realmente cancela a ação, mas quando clico em ok aparece a mesma mensagem de operação cancelada e não realiza a ação.
Ué, mas seu código nao serve para renomear, se serve pra renomear entao ao clicar ok deve ter algum valor dentro da inputbox, se nao tiver, a execuçao irá parar mesmo
AÃ voce pode fazer tratamentos pro tipo de dado que tiver dentro
Exemplo
cima:
nomedainput = inputbox[Ô]digite um numero[Ô]
If not isnumeric(nomedainput) then
msgbox [Ô]isso nao eh valor numerico[Ô] goto cima
end if
De outro jeito eu sinceramente nao sei como fazer, talvez algum tratamento com a msm estrutura do exemplo sirva para isso
AÃ voce pode fazer tratamentos pro tipo de dado que tiver dentro
Exemplo
cima:
nomedainput = inputbox[Ô]digite um numero[Ô]
If not isnumeric(nomedainput) then
msgbox [Ô]isso nao eh valor numerico[Ô] goto cima
end if
De outro jeito eu sinceramente nao sei como fazer, talvez algum tratamento com a msm estrutura do exemplo sirva para isso
Ok SACOFRITO, deu certo aqui, muito obrigado pela força cara. Um abraço.
Tópico encerrado , respostas não são mais permitidas