PeHeBaCaSo

Caro R. Negrão

você pode utilizar um "SE" para cada coluna que deseja copiar.

Exemplo:

coluna ITEM

=SE(Plan1!B2="S";Plan1A2;"")

coluna CRÍTICO

=SE(Plan1!B2="S";Plan1B2;"")

coluna C/TRABALHO

=SE(Plan1!B2="S";Plan1C2;"")

coluna ORDEM

=SE(Plan1!B2="S";Plan1D2;"")

Mas já aviso que algumas linhas irão ficar em branco, daí terá de utilizar um filtro para selecionar somente as linhas copiadas preenchidas.

Espero ter ajudado!:)

Abraços

Pedro Henrique B. C. de Souza

Bom dia,

sou iniciante em VB Excel portanto fiquei confuso com o código que você utilizou, criei o código abaixo com poucos conhecimentos que tenho, é mais simples mas creio que irei poder te ajudar.

Private Sub CommandButton1_Click()
    Workbooks.Open ("C:\Documents and Settings\Administrador\Meus documentos\B.xls")
    Worksheets("Plan1").Activate
End Sub

Private Sub CommandButton1_Click()
    Workbooks.Open ("C:\Documents and Settings\Administrador\Meus documentos\B.xls")
    Worksheets("Plan2").Activate
End Sub

Obs.:

"C:\Documents and Settings\Administrador\Meus documentos\" é o caminho onde sua planilha B está localizada.

Espero ter te ajudado, poste se o código funcionou!!!!

:D:D

Abraços!

Pedro Henrique B. C. de Souza