Localizar em outra planilha e alterar

Question

 

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 - [e-mail]
irc - online no canal #excel da rede brasnet nick Adriner

Answer 1

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/

Answer 2

Fabio vou tentar --- fazer isso

Depois te retorno se deu certo

Muito obrigado pela sua ajuda.

Obrigado mesmo..

 

Answer 3

Fabio desculpa minha ignorancia mais nao consegui fazer

fica dando um erro 1004

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