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