Inquiridor
Localizar em outra planilha e alterar

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
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 IfEnd Sub
e finalmente a macro Salvar:
Sub Salvar()
Dim Linha As IntegerLinha = 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/
-
-