Selecionar um valor para ser transferido para outra planilha

[Mariangela Fernandes Marti]

Oi gente, boa tarde!

 

tenho uma pasta de trabalho de excel de conciliação bancária.

Tenho uma plan para o BB e outra plan para o Santander.

Queria lançar um débito na plan BB e automaticamente o mesmo valor entrar na plan Santander como crédito, e vice-versa.

Eu chamaria isso de "transferência entre contas".

 

Eu selecionaria o lançamento clicando num botão, e uma macro faria a movimentação.

 

Minha planilha ta no anexo.

Projeto Conciliação Bancária.rar

[Visitante]

Olá, Mariangela.

 

Restou a dúvida qual é a planilha de origem e qual é a de destino dos dados pois para cada banco há 2 planilhas.
Tendo em vista que nas planilhas 'Conc XXX' há fórmulas, então considerei as planilhas 'Lançam XXX' como planilhas de origem e destino dos dados.
Coloque um botão em cada planilha 'Lançam XXX' e vincule ambos os botões ao código abaixo.

funcionamento - na planilha de origem selecione qualquer célula da linha que deseja replicar os dados na planilha destino e clique no botão; na planilha origem a célula da coluna 'E' correspondente à linha selecionada será pintada de amarelo para sinalizar que o registro foi replicado.
 

Sub LançaTransf() Dim ws As Worksheet, LR As Long  If ActiveSheet.Name = "Lançam BB" Then   Set ws = Sheets("Lançam Santander")  Else: Set ws = Sheets("Lançam BB")  End If   With ws    If .[E11] = "" Then     LR = 10    Else: LR = .[E10].End(xlDown).Row    End If    .Cells(LR + 1, 2).Resize(, 6).Value = Range("B" & ActiveCell.Row).Resize(, 6).Value    .Cells(LR + 1, 8) = Cells(ActiveCell.Row, 9)   End With Cells(ActiveCell.Row, 5).Interior.ColorIndex = 6End Sub

[Mariangela Fernandes Marti]

Funcionou PERFEITAMENTE!!!!! Muito obrigada, já sou sua fã!!!!!