Página 1 de 1
Set A = Worksheets("P01, P02, P03, P04, P05") É possível
Enviado: 26 Mar 2016 às 08:34
por alanisfcsm
Olá!
Dim A As Worksheet
Dim img As Shape
Set A = Worksheets("P01")
Tenho 10 planilhas em um arquivo, mas gostaria de definir apenas seis como "A".
Exemplo:
Set A = Worksheets("P01, P02, P03, P04, P05, P06")
Mas não funciona.
Seria possível , ou não funciona assim?
Re: Set A = Worksheets("P01, P02, P03, P04, P05") É possível
Enviado: 26 Mar 2016 às 13:43
por Startec
Alanis naõ sei o que voce quer fazer, mas de qq forma tente assim:
Código: Selecionar todosSub teste()
Dim ws As Worksheet
For Each ws In Sheets(Array("plan1", "Plan2"))
MsgBox ws.Name
Next ws
End Sub
Re: Set A = Worksheets("P01, P02, P03, P04, P05") É possível
Enviado: 26 Mar 2016 às 14:07
por alanisfcsm
Enrolado aqui!
tenho planilhas P01 A P20, mas gotaria que ele fizesse apenas enas planilhas: P03, P04, P05 e P06
Sub APAGA_COPIA_LOGO_RMT_P01()
Dim A As Worksheet
Dim img As Shape
Set A = Worksheets("P01")
For Each img In A.Shapes
If Not Application.Intersect(img.TopLeftCell, A.Range("B2:D8")) Is Nothing Then
img.Delete
End If
Next
Worksheets("P01").Range("AF2:AH8").CopyPicture xlScreen, xlBitmap
Worksheets("P01").Paste _
Destination:=Worksheets("P01").Range("B2")
End Sub
Set A = Worksheets("P01, P02, P03, P04, P05") É possível
Enviado: 26 Mar 2016 às 14:20
por JFBERNARDES
Boa tarde Alan, tudo bem?
Poderia ser um pouco mais específico?
O que você deseja fazer nas planilhas 3, 4, 5 e 6?
Re: Set A = Worksheets("P01, P02, P03, P04, P05") É possível
Enviado: 26 Mar 2016 às 14:27
por alanisfcsm
Boa tarde!
O código acima apaga o intervalo de células no destino, depois copia uma imagem em um intervalo de células na origem e cola em um intervalo de células no destino.
Funciona, mas apenas em uma planilha, gostaria que funcionasse em mais quatro das 20 que possuo.
Re: Set A = Worksheets("P01, P02, P03, P04, P05") É possível
Enviado: 26 Mar 2016 às 14:54
por alanisfcsm
Exemplo em anexo:
Set A = Worksheets("P01, P02, P03, P04, P05") É possível
Enviado: 26 Mar 2016 às 15:10
por JFBERNARDES
Você quer ativar as 5 ao mesmo tempo.
Ou ativar cada planilha individualmente conforme quiser?
Re: Set A = Worksheets("P01, P02, P03, P04, P05") É possível
Enviado: 26 Mar 2016 às 15:21
por alanisfcsm
Ao mesmo tempo, nas P02, P03, P04.
Re: Set A = Worksheets("P01, P02, P03, P04, P05") É possível
Enviado: 26 Mar 2016 às 15:37
por JFBERNARDES
Beleza Alan,
Veja no anexo as alterações que eu fiz.
A origem continua na planilha 01.
Porém temos 5 destinos agora.
Caso queira 5 origens é só falar.
Re: Set A = Worksheets("P01, P02, P03, P04, P05") É possível
Enviado: 26 Mar 2016 às 15:48
por alanisfcsm
Valeu!
Obrigado!
Set A = Worksheets("P01, P02, P03, P04, P05") É possível
Enviado: 27 Mar 2016 às 00:26
por AndersonLeal
Olá,
Caso sua dúvida tenha sido solucionada não esqueça de marcar o tópico como resolvido!
Abraço.