Este fórum está sendo desativado

[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?

[Startec]

Alanis naõ sei o que voce quer fazer, mas de qq forma tente assim:

Código: Selecionar todos

Sub teste()
    Dim ws As Worksheet

    For Each ws In Sheets(Array("plan1", "Plan2"))

        MsgBox ws.Name

    Next ws

End Sub

[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

[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?

[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.

[alanisfcsm]

Exemplo em anexo:

[JFBERNARDES]

Você quer ativar as 5 ao mesmo tempo.
Ou ativar cada planilha individualmente conforme quiser?

[alanisfcsm]

Ao mesmo tempo, nas P02, P03, P04.

[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.

[alanisfcsm]

Valeu!
Obrigado!

[AndersonLeal]

Olá,

Caso sua dúvida tenha sido solucionada não esqueça de marcar o tópico como resolvido!

Abraço.