Este fórum foi descontinuado. LEIA AQUI e participe da Comunidade BABOO :)

Ir para conteúdo
Rodrigo Damaso

RESPONDIDO EXCEL - Transferir Dados de uma Célula para outra Coluna

Mensagem Recomendada

Olá,

 

Gostaria de ajuda para a seguinte situação. Imaginando que tenho certo número de equipes, gostaria de fazer transferências entre as listagens, selecionando um único membro, saindo da equipe de origem indo para a de destino, como um Recortar - Colar entre as listas.

 

É possível uma macro (ou outra forma) que viabilize esse tipo de ação, clicando em um botão transferir? Não sei se consegui passar a ideia. Posso explicar melhor.

 

Obrigado desde já pela atenção.

 

image.png.590475fb03bdc3ad402b24624d150950.png

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

 

Experimente:

Sub TransfereDado()
 Dim o As Long, d As Long, r As Long, LRo As Long, LRd As Long
  o = Range("B1:E1").Find([B10]).Column
  d = Range("B1:E1").Find([B12]).Column
  LRo = Cells(1, o).End(4).Row
  LRd = Cells(1, d).End(4).Row
  r = Range(Cells(1, o), Cells(LRo, o)).Find([B11]).Row
  Cells(r, o).Cut Cells(LRd + 1, d)
  Range(Cells(2, o), Cells(LRo, o)).Sort Key1:=Cells(2, o), Order1:=xlAscending
End Sub

Osvaldo


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
Em 26/06/2018 at 9:29 AM, osvaldomp disse:

 

Experimente:

Sub TransfereDado()
 Dim o As Long, d As Long, r As Long, LRo As Long, LRd As Long
  o = Range("B1:E1").Find([B10]).Column
  d = Range("B1:E1").Find([B12]).Column
  LRo = Cells(1, o).End(4).Row
  LRd = Cells(1, d).End(4).Row
  r = Range(Cells(1, o), Cells(LRo, o)).Find([B11]).Row
  Cells(r, o).Cut Cells(LRd + 1, d)
  Range(Cells(2, o), Cells(LRo, o)).Sort Key1:=Cells(2, o), Order1:=xlAscending
End Sub

Osvaldo

image.png.ba2d2d8939f3b481b52f3c7e76754e49.png

É possível fazer conforme o passo a passo? clicar em transferir e as quantias de cada equipe mencionada se alterarem, pelo valor inserido na celula F36, para mais ou para menos?

Compartilhar este post


Link para o post
Compartilhar em outros sites
7 horas atrás, Rodrigo Damaso disse:

É possível fazer conforme o passo a passo? clicar em transferir e as quantias de cada equipe mencionada se alterarem, pelo valor inserido na celula F36, para mais ou para menos?

Sim, é possível.


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
Em 25/06/2018 at 7:02 PM, Rodrigo Damaso disse:

Obrigado desde já pela atenção.

Em 26/06/2018 at 1:31 PM, Rodrigo Damaso disse:

Valeu Osvaldo, perfeito! Obg!

Osvaldo,

Por obséquio, vossa excelência verifique se essas citações que fiz em meus tópicos te re-sugerem algo 😏

Atenciosamente,

1 minuto atrás, Rodrigo Damaso disse:

Osvaldo,

Por obséquio, vossa excelência verifique se essas citações que fiz em meus tópicos te re-sugerem algo 😏

Atenciosamente,

@osvaldomp

Compartilhar este post


Link para o post
Compartilhar em outros sites
1 hora atrás, osvaldomp disse:

Aguarde ajuda de outro usuário 😉

@osvaldomp

Obrigado, última bolacha do pacote!

Infelizmente, arrogância e conhecimento técnico às vezes andam juntos, como é no seu caso.

Bem como a piadinha que você tentou fazer com o "Sim, é possível". Responder literalmente uma pergunta sabendo o que realmente eu quis te pedir só mostra sua soberba inútil.

Passar bem ! 😉

Compartilhar este post


Link para o post
Compartilhar em outros sites

×
×
  • Criar Novo...