Formula que copie a linha inteira do Excel

[drika123]

Boa Tarde

Eu tenho uma planilha e quero que quando eu digitar uma palavra ela copie a linha inteira.

Por favor... eu estou tentando a dias e não obtive sucesso.

[marcmira]

Da uma visitada no setor de office nesse forum, e veja se tem algo parecido com o que precisa:

http://forum.clubedohardware.com.br/pacotes-escritorio/f132

att e bem vindo(a) ao forum

[drika123]

Obrigada mas o caminho que me passou é interessante mais não consegui achar exatamente o que preciso.

Vou tentar me explicar melhor

Tenho hoje uma planilha com uma relação de informações EX:

Empresa / Valor / Local / Descrição do Produto

Eu gostaria que quando eu digitar nessa planilha na coluna LOCAL a palavra MADRID ela copiasse a linha inteira e o restante das informações fossem para a planilha 2.

[Patropi]

Bom dia drika

Para facilitar poste um exemplo da tua planilha, demonstrando o resultado esperado, num site gratuito como:

www.sendspace.com

Depois cole o link aqui no fórum

Um abraço.

[zinhovba]

Boa noite!!

Veja se é isso

http://www.sendspace.com/file/9drqir

[drika123]

Não consegui abri o link que você me enviou

porém ai esta o que eu preciso da minha planilha, que quando digitar Ferro por exemplo no Res. California ele jogue a despesa para o local especificado.

Se já conseguir me ajuda na situação em que eu digite Res. California e ela se copie para a pasta da com o mesmo nome já esta Bom, a outra formula eu sei fazer.

ex planilha: http://www.sendspace.com/file/muhvtr

[Patropi]

boa noite Drika

Se você tivesse postado o exemplo na primeira vez, já teria recebido a resposta no mesmo dia.

Baixe a planilha e veja se é isto que você quer, fiz como fórmula e retornei a linha toda, mas dá também, para retornar só os dados que você quiser.

Para baixar a planilha, clique no link abaixo --> quando estiver na página do sendspace --> clique no retângulo Azul com o inscrição:

" Click here to start download from sendspace"

http://www.sendspace.com/file/ey8nuv

Dê retorno.

Um abraço.

[zinhovba]

Boa noite!!

O arquivo continua lá.

Sub CopiarZinhoVBA()

    Dim Lastrow As Long

    With Sheets("Sheet1")

        If .Range("C:C").Find("MADRID", , xlValues, xlWhole, , , False) Is Nothing Then
            MsgBox "Não foi encontrado os dados desejados": Exit Sub
        Else

            Application.ScreenUpdating = False

            Lastrow = .Range("A" & Rows.Count).End(xlUp).Row
            .Range("A1:D" & Lastrow).AutoFilter Field:=3, Criteria1:="MADRID"
            .Range("A2:D" & Lastrow).SpecialCells(xlCellTypeVisible).EntireRow.Copy
            Sheets("Sheet2").Range("A2").PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, False
            .AutoFilterMode = False


            With Application
                .CutCopyMode = False
                .Goto Sheets("Sheet2").Range("A1")
                .ScreenUpdating = True
            End With

            MsgBox "Os dados foram copiados.", , "Copia completa"

        End If

    End With

End Sub

[drika123]

Obrigada pela ajuda... e desculpe de não ter me explicado tão bem, pois eu nunca havia participado de um forum... porém vai me ajudar bastante essa planilha.

Obrigada

[Patropi]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.