Conteúdo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Fundo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Desenho: Liso Onda Linha Retalho Madeira Rocha Couro Colméia Vertical Triângulo
Bem-vindo ao Fórum do BABOO!

Desde 2000 o Fórum do BABOO tem ajudado milhões de internautas de Windows a resolverem seus problemas e dúvidas, além de ajudar na remoção de vírus e malwares de seus computadores. Somos o único fórum brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows, então se você tem uma dúvida ou problema que nenhum outro fórum resolve, poste-a aqui pois o MVP Babooadora desafios!
  

O Fórum do BABOO também conta com a participação exclusiva do administrador da área de Segurança MVP Mr.Million que tem reconhecimento internacional da Microsoft pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Se o seu computador está infectado por algum vírus, ele te ajudará a removê-lo!
  

Nosso time de especialistas também inclui Patropi  Osvaldomp  Caze  Ciro-Mota  XERLOUCO ROUMS  Tatha que responderão suas dúvidas sobre diversos assuntos.
 

Participe da nossa comunidade! 

Entre para seguir isso  
Seguidores 0
Douglas Filipe

Macro Copiar Celula para Outra Celula

8 posts neste tópico

Tenho uma planilha onde faço consulta em uma View do SQL Server, o resultado da consulta é retornado na linha 5 da planilha como pode ser visto na figura abaixo:

Excel.jpg

Minha necessidade é, criar um botão, macro, qualquer coisa facil, simples e dinamico, para que o resultado da linha 5 seja copiado/duplicado para a linha 7, se a linha 7 ja estiver preenchida ele copia/duplica pra linha 8 e assim sucetivamente, até quando o usuario finalizar o processo. É possivel fazer isso no Excel 2007? Como fazer?


http://douglasfilipe.wordpress.com

Diga se a dica funcionou, POR FAVOR!

Não respondo duvidas por MP. Use o fórum, assim todos se beneficiam.

Compartilhar este post


Link para o post
Compartilhar em outros sites

ALT F11-Entra em VBA- Inserir Modulo-Copie e cole as linhas abaixo.

Atribua a um botão o nome da macro.

Sub CopiaeCola()

Rows("6:6").Select

Selection.Insert Shift:=xlDown

Rows("5:5").Select

Selection.Copy

Range("A7").Select

ActiveSheet.Paste

Application.CutCopyMode = False

End Sub


" A maior Riqueza do Homem e o seu Conhecimento e sua Sabedoria e isto ninguém tira ,mas podemos dividi-la" - " A cada dia que passa descobri que Só sei que nada Sei"

Compartilhar este post


Link para o post
Compartilhar em outros sites

Meu irmão, to de cara (Y) funcionou direitinho, ta do jeito que eu queria, muito obrigado mesmo!

Agora se nao for pedir demais tem como colocar uma "cereja" nesse sorvete? Um função pra copiar para area de transferencia os dados que foram inseridos, porque essa seria uma planilha modelo, o usuario iria adicionar esses resultados para outra planilha, e iniciar um fluxo de trabalho no SharePoint, mas ja ajudou muito. thanks a lot!!!


http://douglasfilipe.wordpress.com

Diga se a dica funcionou, POR FAVOR!

Não respondo duvidas por MP. Use o fórum, assim todos se beneficiam.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tenho uma planilha onde faço consulta em uma View do SQL Server, o resultado da consulta é retornado na linha 5 da planilha como pode ser visto na figura abaixo:

Excel.jpg

Minha necessidade é, criar um botão, macro, qualquer coisa facil, simples e dinamico, para que o resultado da linha 5 seja copiado/duplicado para a linha 7, se a linha 7 ja estiver preenchida ele copia/duplica pra linha 8 e assim sucetivamente, até quando o usuario finalizar o processo. É possivel fazer isso no Excel 2007? Como fazer?
Aproveitando a Ótima resposta do Spielmann ...

Caso queira copiar o Conteúdo do Intervalo mencionado e Não a Fórmula - Se tiver Fórmula na Linha a ser Copiada :

.

.

.

6 - Range("A7").Select

7 -
ActiveSheet.Paste

8 - Application.CutCopyMode = False

9 - End Sub

Substitua a Linha 7 por => Selection.PasteSpecial Paste:=xlPasteValues

Espero ter Sido Útil .

Aguardo resposta neste Fórum , Vlw !?


 

 

 

Disponibilizando Arquivo no Fórum - Regras do Fórum - Diga se a Dica Funcionou , POR FAVOR ! - Sites que oferecem apostilas gratuitamente

ccclxvii - A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original.

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ta otimo, usuario consulta no banco SQL da nossa ERP, relatorio ta saindo padrao, ja publiquei no sharepoint.


http://douglasfilipe.wordpress.com

Diga se a dica funcionou, POR FAVOR!

Não respondo duvidas por MP. Use o fórum, assim todos se beneficiam.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá senhores,

Reascendendo a chama.

Se eu precisasse colocar as informações coletadas em outra planilha, como ficaria o código.

Eu tentei um worksheets("plan2").select no meio do código mas meti os pés pelas mãos.

Dei uma alterada no código.

Private Sub CommandButton1_Click()

Range("a6:j6").Select

Selection.Insert Shift:=xlDown

Range("a5:j5").Select

Selection.Copy

Range("a7").Select

Selection.PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

Range("a5:j5").Select

Selection.Clear

Range("a5").Select

End Sub

Abraços.

R.


R.

Fascinado por excel.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá senhores,

Reascendendo a chama.

Se eu precisasse colocar as informações coletadas em outra planilha, como ficaria o código.

Eu tentei um worksheets("plan2").select no meio do código mas meti os pés pelas mãos.

Tente este abaixo ... Desculpas pela demora =D .

Private Sub CommandButton1_Click()

Sheets("Plan1").Select

Rows("5:5").Copy

Sheets("Plan2").Select

Range("A7").Select

Selection.Insert Shift:=xlDown

Selection.PasteSpecial Paste:=xlPasteValues
'<= ou
ActiveSheet.Paste
para colar com Fórmulas caso tenha

Application.CutCopyMode = False

Sheets("Plan1").Select

End Sub

Espero Ter Sido Útil .

Aguardo Resposta , Vlw !?


 

 

 

Disponibilizando Arquivo no Fórum - Regras do Fórum - Diga se a Dica Funcionou , POR FAVOR ! - Sites que oferecem apostilas gratuitamente

ccclxvii - A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original.

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Socorro tenho uma duvida, esse post é antigo mais esta ser util. Estou agora a aprender macro em excel e estou a usar o seguinte codigo abaixo postado por um dos intervenientes no post:

Private Sub Workbook_Open()

Sheets("Folha1").Select

Rows("2:9").Copy

Sheets("detalhe").Select

If Sheets("detalhe")

Range("A810").Select

Selection.Insert Shift:=xlDown

Selection.PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

Sheets("Folha1").Select

End Sub

Na folha1 eu tenho o resultado de uma consulta proveniente do Miscrosoft Query, que pelo codigo acima, sempre Workbook_Open, ele actualiza o planilha "detalhe" apartir da Range(A810), mais a vezes que a folha1 não é actualizada e ele duplica as linhas sempre que abre o ficheiro.

O que eu pretendia é que ele so copia se as linhas não existentes no planilha "detalhe" ou seja caso existam ele não toma se nehuma acção, e ignora se as linhas em branco da folha 1 e so copia se as que tem algum conteudo.

Não sei se me fiz perceber, toda a ajuda é bem vida.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Responda via Facebook

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Quer postar a sua dúvida? Cadastre-se pois é rápido e fácil!


Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.


Entrar Agora
Esse tópico é útil para você?
Então compartilhe e ajude outros internautas!
Entre para seguir isso  
Seguidores 0

O site BABOO está no ar para informar e ajudar o internauta de Windows. Este site foi publicado em 1999 por Aurélio "Baboo", engenheiro e um dos maiores especialistas brasileiros em Windows, que trabalha profissionalmente com esse sistema operacional desde 1987. Desde 2004 ele é premiado anualmente pela Microsoft como MVP (Most Valuable Professional) pela sua contribuição e ajuda à comunidade de usuários de Windows.

Em 2001 foi criado o
Fórum do BABOO para ajudar o internauta brasileiro a solucionar problemas e dúvidas sobre Windows, Segurança, Office, Hardware e outros temas. Desde 2010 a Microsoft também tem premiado o Mr.Million, administrador da área de Segurança do Fórum do BABOO, pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Atualmente ele é o único MVP brasileiro de Segurança em desktop.

O BABOO é o único site brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows e que participa diariamente e ativamente nos comentários e discussões do site e fórum BABOO.