Importar somente determinados dados da planilha

[TIA0]

Boa tarde,

Estou precisando importar somente determinados dados de uma planilha para outra, mas não estou vendo jeito para isso! Imaginem a seguinte planilha...

ESCOLA...|NOME...|NOTA|

ESCOLA A|Márcio..|8......|

ESCOLA A|João.....|7......|

ESCOLA C|Augusto|4.....|

ESCOLA B|Camila..|7.....|

ESCOLA B|Roberta|8......|

ESCOLA C|Felipe...|3......|

Ou seja, uma planilha com o nome da escola, nome do aluno e a sua nota. Como podem ver a planilha não tem ordem! Preciso descobrir um jeito de somente esportar os alunos da "ESCOLA A" para outra planilha, alguém pode me ajudar?

abraços

[kuroi]

tiao, qual o codigo q você usa pra fazer essa importacao??

basicamente, você so precisa testar com um if o valor da primera coluna.

exemplo:

If Range("A" & linha).Value = "ESCOLA A" Then
    'Importa
End If[/code]

[JoséA]

Sub FiltroAvançado()
 Application.EnableEvents = False
        Dim lastRow As Long
        Dim lastResultRow As Long
        Dim X As Long
        ' Verifica qual a ultima célula preenchida
        lastRow = Plan1.Cells(Rows.Count, 1).End(xlUp).Row
        ' Apaga valores anteriores
        Plan2.Range("A2:C65536").ClearContents
        
        lastResultRow = 2 'linha resultado
        
        ' Ciclo em todas as linhas
        For X = 2 To lastRow '1 Linha dados pequisa
        
           ' verifica se o valor é igual ao da pesquisa
           If Plan1.Cells(X, 1).Value = "ESCOLA A" Then '1 coluna pequisa
           
                ' Copia os valores
                Plan2.Cells(lastResultRow, 1).Value = Plan1.Cells(X, 1).Value
                Plan2.Cells(lastResultRow, 2).Value = Plan1.Cells(X, 2).Value
                Plan2.Cells(lastResultRow, 3).Value = Plan1.Cells(X, 3).Value
                lastResultRow = lastResultRow + 1
           End If
        Next
    Application.EnableEvents = True
End Sub