Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Mensagem para evita...
 
Notifications
Clear all

Mensagem para evitar tela de erro (ActiveSheet.Paste)

 
2024 - VBA & Macros
Post Recente por carlosrgs 9 anos atrás
6 Posts
3 Usuários
0 Reactions
1,931 Visualizações
RSS
carlosrgs
 carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
Topic starter
 

Boa tarde.

Minha dúvida é simples.

Se eu tiver uma macro somente com o código

ActiveSheet.Paste

Para que ela funcione eu tenho que ter copiado algo ok ?

Existe alguma maneira de apresentar uma mensagem falando que não há nada para ser colado ao invés de dar erro na Macro ?

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 23/12/2015 11:29 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Pq alguem faria uma macro somente com essa linha de codigo?

E activesheet.paste somente vai dar erro de qualquer maneira, pois esta incompleto.

O correto é activesheet.paste all

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 23/12/2015 12:48 pm
carlosrgs
 carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
Topic starter
 

O código é um exemplo somente.

Se eu executá-lo sem ter copiado nada, da erro.

Eu queria que apresentasse uma mensagem ao invés de erro.

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 23/12/2015 1:00 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde Carlos

Veja se o material abaixo pode te ajudar:

https://usuariosdoexcel.wordpress.com/2 ... digos-vba/

http://www.accelerated-ideas.com/pergun ... spage.aspx

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/12/2015 1:09 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Tem como fazer de diversas maneiras com tratamento de erro como pode ver nos links que o Patropi indicou, uma bem simples seria :

Sub PasteData()
  
  Application.ScreenUpdating = False
  
  On Error Resume Next
  ActiveSheet.Paste
  If Err Then MsgBox "Sem dados para colar !!!": Err.Clear

End Sub

De uma olhada nas dicas abaixo tambem :
http://www.thespreadsheetguru.com/blog/ ... ial-macros

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/12/2015 1:49 pm
carlosrgs
 carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
Topic starter
 

Obrigado Patropi e Mauro.

Após o Natal vou ler o conteúdo.

Vou ficar longe do Excel neste feriado.

Abraço.

Boas Festas!!!!!!

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 23/12/2015 1:58 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico