none
2 For para procurar Atividades em base RRS feed

  • Pergunta

  • Caros

    Podem ajudar

    Tenho uma plan base onde possuem este codigos

    Codigos
    João1
    João2
    João3
    João4
    João5
    João6

    Preciso consultar em outra plan chamadas atividades , onde na coluna B cada linha pussuem codigos diferentes, preciso que seja consultada toda a coluna B e onde ele achar o 1° codigo selecione toda a linha copie e cole esta linha em uma nova planilha chamada colagem onde cada resultado seja colocado um abaixo do outro


    Sub III()
    
    Dim valor
    Dim linha
    
    linha = Sheets("base").Range("a65536").End(xlUp).Row
    
    For i = 1 To linha
    
    Cells(i, 1).Select
    valor = Cells(i, 1).Value Next i End Sub
    Grato ;
    Buno
    sexta-feira, 24 de abril de 2009 03:18

Respostas


  • Consegui , cao alguem precise

    Sub III()
    Dim valor
    Dim linha, a
    linha = Sheets("base").Range("a65536").End(xlUp).Row
    linha2 = Sheets("atividades").Range("a65536").End(xlUp).Row
    linha3 = Sheets("colagem").Range("a65536").End(xlUp).Row
    For i = 2 To linha
    valor = Sheets("base").Cells(i, 1).Value
        For a = 2 To linha2
        If valor = Sheets("atividades").Cells(a, 1) Then
        Sheets("colagem").Range("a" & linha3 & ":z" & linha3) = Sheets("atividades").Range("a" & a & ":z" & a).Value
        linha3 = linha3 + 1
        End If
        Next a
    Next i
    End Sub
    • Marcado como Resposta BRUNOJUL sexta-feira, 1 de maio de 2009 23:03
    sexta-feira, 1 de maio de 2009 23:03