Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Como colar logo em ...
 
Notifications
Clear all

Como colar logo em várias sheets ao mesmo tempo

 
2024 - VBA & Macros
8 Posts
2 Usuários
0 Reactions
1,137 Visualizações
RSS
 vsophia
(@vsophia)
Posts: 31
Eminent Member
Topic starter
 

Olá pessoal!

Mais uma vez venho aqui pedir ajuda.

Eu tenho um arquivo com várias sheets.

Como eu faço para colar a logo em todas ao mesmo tempo?

Eu seleciono a primeira, e segurando o shift a última, quando dou colar, dá erro.

uma ajuda por favor!

 
Postado : 18/02/2013 11:15 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Eu fiquei boiando ...

O que "logo"?

logomarca?
Leia também:
http://office.microsoft.com/pt-br/excel ... 17042.aspx
http://miscelanes.wordpress.com/2011/08 ... planilhas/

Att

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

 
Postado : 18/02/2013 11:27 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não entendi?

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

 
Postado : 18/02/2013 11:27 am
 vsophia
(@vsophia)
Posts: 31
Eminent Member
Topic starter
 

Por exemplo, eu preciso colar a imagem da sheet 1 na mesma célula que ela está, só que nas outras sheets.

Link abaixo:

http://www.4shared.com/file/B15q73Vm/teste.html

Não sei se uma macro resolveria o problema, o que seria melhor e como ?

 
Postado : 18/02/2013 11:31 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Talvez assim

Sub Copte()
For Each ws In Sheets
    Sheets(1).Shapes.Range(Array("Picture 1")).Select
    Selection.Copy
    ws.Activate
    ws.Range("B3").Select
    ActiveSheet.Paste
    Next
End Sub

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

 
Postado : 18/02/2013 11:57 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Atrasado ....vou aproveitar para mudar a postagem de lugar (VAB & Macros).

Sub Test()
Worksheets("Sheet1").Shapes("Picture 1").Copy
For i = 2 To 8 'número de guias
    Sheets("Sheet" & i).Select
    Range("A1").Select
    ActiveSheet.Paste
Next i
End Sub

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

 
Postado : 18/02/2013 12:35 pm
 vsophia
(@vsophia)
Posts: 31
Eminent Member
Topic starter
 

Muito obrigado gente!

E como eu faço para aplicar esse comando?

Eu crio um botão ou crio um comando tipo crtl+o

Abs!

 
Postado : 18/02/2013 1:14 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

É melhor com um botão

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

 
Postado : 18/02/2013 1:55 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico