none
Localizar em outra planilha e alterar RRS feed

  • Pergunta

  •  

    Bom Tarde a todos

    Estou com um problema q nao consigo resolver. Tenho uma planilha que
    faço um controle de duplicatas
    Faço o lançamento em um mes e no mes que vem dou baixa se houve o
    pagamento. Peguei um exemplo
    que rolou aqui no forum e  adaptei nesta planilha. na planilha ("Dar
    Baixa") coloco o numero da duplicata e
    e ele busca na planilha("Plan1"). Retornando os dados encontrados na
    planilha ("Dar Baixa") apartir da celula("A8").
    Depois vou dar baixa colocando na celula("F8") Pago. (((( Agora aqui
    encontra meu problema nao consigo retornar
    estes dados para a planilha("Plan1") sobrepondo os dados antigos que
    ali estava. Nao sei como fazer porque os dados
    encontrados pode variar.

    Vou colocar um link aqui para quem quiser baixar ela la explico tambem
    o q esta acontecendo

    http://www.escritoriojm.com.br/info/duplicatas.rar


    Desde ja agradeço pela ajuda dos companheiros...
    msn - adriner@msn.com
    irc - online no canal #excel da rede brasnet nick Adriner

    segunda-feira, 11 de dezembro de 2006 15:05

Todas as Respostas

  • Utilize a coluna G da planilha "Dar Baixa" para capturar a linha da referida duplicata.

    Na macro procurar acrescente esta linha:

    .

    .

                    Plan1.Cells(A, 6).Value = Plan2.Cells(Z, 6).Value
                    Plan1.Cells(A, 7).Value = Z
                    Set c = Plan2.Range("A2:f" & s).FindNext(c)
    .

    .

     

    e no evento Worksheet_SelectionChange da planilha "Dar Baixa":

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

        If Not Application.Intersect(Range("f2"), Target) Is Nothing Then
            Call Salvar
        Else
        End If
       
        If Target.Column = 2 And Target.Row > 7 Then
        Range("A2") = Target.Offset(0, -1)
        Range("B2") = Target.Offset(0, 0)
        Range("C2") = Target.Offset(0, 1)
        Range("D2") = Target.Offset(0, 2)
        Range("E2") = Target.Offset(0, 3)
       
       
       
        End If

     

    End Sub

    e finalmente a macro Salvar:

    Sub Salvar()
    Dim Linha As Integer

    Linha = Plan1.Range("g2")

    Plan2.Cells(Linha, 6) = "PAGO"

    Plan1.Range("A2") = ""
    Plan1.Range("b2") = ""
    Plan1.Range("c2") = ""
    Plan1.Range("d2") = ""
    Plan1.Range("e2") = ""
    Plan1.Range("g2") = ""

    End Sub

     

    Fábio S.

    http://www.tudosobrexcel.com/curso_excel_vba/

    terça-feira, 12 de dezembro de 2006 10:57
  • Fabio vou tentar --- fazer isso

    Depois te retorno se deu certo

    Muito obrigado pela sua ajuda.

    Obrigado mesmo..

     

    terça-feira, 12 de dezembro de 2006 19:11
  • Fabio desculpa minha ignorancia mais nao consegui fazer

    fica dando um erro 1004

    Ai que raiva q dá ... rs...

     

    terça-feira, 12 de dezembro de 2006 19:47