Macro ou botão de comando para Selecionar e Excluir

[Faeo 0]

Pessoal alguem pode me ajudar????

 

O caso é o seguinte:

 

Tenho uma planilha onde existem diversas colunas e linhas com alguns chamados em aberto (cerca de 3000 linhas preenchidas) uma das colunas tem o nome de Status, preciso que a macro ou o botão de comando leia esta coluna e quando o Status estiver como Closed a linha inteira seja recortada e colada em uma nova planilha, fazendo com que nessa planilha somente fiquem os chamados que estiverem abertos ou em acompanhamento, pois os que já estiverem fechados estarão em uma outra planilha paralela.

 

Muito obrigado.

 

Faeo.

[jolienai 0]

abaixo um exemplo simples de como fazer....

 

Sub Botão1_Clique()

 

Sheets("Plan1").Select

 

Dim i As Integer

 

For i = 1 To 5

If Cells(i, 1) = "Closed" Then

 

MsgBox (Cells(i, 1))

Recorta_Copia_Closed (i)

 

Sheets("Plan1").Select

 

End If

 

Next i

 

End Sub

 

 

Sub Recorta_Copia_Closed(Linha As Integer)

 

 

Dim r As String

 

r = "A" & Linha & ":C" & Linha

 

Range®.Select

Selection.Copy

Sheets("Plan2").Select

 

Cells(Linha, 1).Select

 

ActiveSheet.Paste

 

End Sub