escolher dados de outra aba

[Davi Ferreira]

Fala galera, boa tarde!

Olha eu novamente, dessa vez algo um tanto quanto complicado...

Eu preciso basicamente que, quando "A1"(situação) da aba "plan2" estiver vazia o valor referente a B1(valor) seja enviado para o "A1" da "plan1".

E quando A1 da plan2 for preenchido com "compensado" esse valor saia do A1 da plan1

Porém o problema é que eu preciso que, o A1 da plan1 puxe o próximo valor se A1 da plan2 estiver preenchido com compensado

Exemplo.

Se a1tiver compensado, puxar de A2, Se a2 tiver compensado, puxar de A3 e assim sucessivamente.

Se n der pra entender eu tento enviar um modelo pra vocês, mas desde já agradeço.

[Patropi]

Boa tarde Davi

Para facilitar poste um exemplo da tua planilha, demonstrando manualmente o resultado esperado, num site gratuito como:

www.sendspace.com

Depois cole o link aqui no fórum.

At.te

[Davi Ferreira]

Ae segue o exemplo man

http://www.sendspace.com/file/5da0p7

[zinhovba]

Boa tarde!

Seria isso?

Sub tetes()
Range("B23").End(xlUp).Offset(1, 0).Select
Selection.Offset(0, 1).Resize(1, 3).Select
Selection.Copy Destination:=Worksheets("Dezembro").Range("A35")
End Sub

Att

[Davi Ferreira]

Então amigo, quase isso..

Eu modifiquei a macro porque tipo, eu me atraplhei e é pra peencher a partir da A37

Além disso, botei para ele puxar os dados da b5 até a b23.

Mas quando ele puxa os dados ele puxa somente da primeira (10mil e alguma coisa)

Eu gostaria que ele puxasse todos os cheques não compensados (no caso ele puxaria R$ 10.123,48

R$ 10.028,90

R$ 805,00

R$ 600,00

E quando Eu preenchesse "compensado" na situação de, por exemplo o cheque de 600 reais ele sumisse.

E quando eu adicionasse um novo cheque ele entrasse lá, entendeu?

Ah e a macro ficou assim:

Sub tetes()

Range("B5:B23").End(xlUp).Offset(1, 0).Select

Selection.Offset(0, 1).Resize(1, 3).Select

Selection.Copy Destination:=Worksheets("Dezembro").Range("A37:A54")

End Sub

[zinhovba]

Boa tarde!!

Use Private Sub Worksheet_Change(ByVal Target As Range), para excutar essa macro.

Att

[Davi Ferreira]

Não entendi

Use Private Sub Worksheet_Change(ByVal Target As Range)

Eu associei essa macro a um retangulo arredondado.

Ele ta assim:

Private Sub Retângulodecantosarredondados1_Clique()

Range("B23").End(xlUp).Offset(1, 0).Select

Selection.Offset(0, 1).Resize(1, 3).Select

Selection.Copy Destination:=Worksheets("Dezembro").Range("A37")

End Sub

[zinhovba]

Boa tarde!!

Veja no modelo:

http://www.sendspace.com/file/wmqg66

Quando for alterrado qualquer valor na coluna B da guia "CONTROLE DEZEMBRO" a macro será executada.

Att

[Davi Ferreira]

Boa tarde!!

Veja no modelo:

http://www.sendspace.com/file/wmqg66

Quando for alterrado qualquer valor na coluna B da guia "CONTROLE DEZEMBRO" a macro será executada.

Att

Então amigo, ela continua puxando apenas do primeiro nome (no caso os 10mil)

Eu preciso que ele puxe todos que não foram compensados.

Olha desculpa ai tanta coisa mas é porque to precisando mesmo e mt obrigado