Este fórum está sendo desativado

[jeacks]

Boa Noite, ou bom dia Gurus!!

Pessoal a um tempo estou tentando finalizar essa planilha mas como sabem conheço quase nada em VBA:
Graças a ajuda de vocês aqui ja consegui chegar até aqui.
os dois itens a seguir é o meu problema, não sei de que forma fazer isso.

1-Quando clicar no botão Pagar, o excel deve buscar os dados na plhanilha "Propostas Não Pagas" e altomaticamente recorta-los para a planilha "Propostas Pagas" e ali ficar.
2-Quando eu salvar uma Proposta, o excel deve mandar os dados para a planilha de "historico" e para a planilha "Não pagos".

Planilha em Anexo:



Jefferson Santos

[osvaldomp]

Experimente:

1-Quando clicar no botão Pagar ...

Código: Selecionar todos

Sub TransferePropostaPaga()
 Dim p As Range
  Set p = Sheets("Propostas Não Pagas").[D:D].Find([J14])
  If Not p Is Nothing Then
   p.Offset(, -2).Resize(, 12).Copy Sheets("Propostas Pagas").Cells(Rows.Count, 2).End(3)(2)
   p.Offset(, -2).Resize(, 12).Delete Shift:=xlUp
  Else: MsgBox "PROPOSTA NÃO ENCONTRADA": Exit Sub
  End If
End Sub

2-Quando eu salvar uma Proposta ...

Código: Selecionar todos

Sub ReplicaProposta()
 Dim rng()
  rng = Array([D6], [D7], [G6], [J6], [J7], [D15], [D16], [D17], [D18], [G15], [G16], [G18])
  Sheets("Historico").Cells(Rows.Count, 2).End(3)(2).Resize(, 12).Value = rng
  Sheets("Propostas Não Pagas").Cells(Rows.Count, 2).End(3)(2).Resize(, 12).Value = rng
End Sub