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

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

  • NOVIDADES DO SITE BABOO

  • Posts

    • Eu tenho uma certa experiência com placas de som USB, essas placas baratinhas não precisam de driver, somente aquelas mais caras com 5.1 ou 7.1 virtual, mas elas nunca entragam o que prometem, nunca entregam som surround como as mais caras, sempre são estéreo com microfone mono isso qdo o microfone funciona. Eu tenho uma Siberia que foi cara, placa muito boa com 5.1 virtual e uma dessas baratinhas com som estéreo horrível e microfone que não funciona, que é uma queixa comum.
    • Olá! Trabalho na área de hardware e essa impressora tem esse problema característico de fábrica. O problema é de peças: placa, cabo flat, isso se o usuário tem certeza que o cartucho está funcionando. Tem vezes que não compensa consertar a impressora.
    • Olá, recentemente abri meu notebook HP Pavilion G4 para fazer uma limpeza. Tirei um pouco de poeira de dentro, principalmente do teclado e da ventoinha. Depois que voltei a montar uma das entradas usb não funciona mais. Qualquer dispositivo que eu coloque lá não liga. Imagino se só a assistência técnica resolva isso.Tive muito cuidado com todo o processo de montagem e desmontagem. Já verifiquei a BIOS e ao que parece também não está listada no gerenciador de dispositivos, embora eu não esteja certo por ter uma lista grande de entradas. Alguém tem alguma sugestão antes de eu mandar para a assistência?
    • Olá amigos do fórum. Procuro uma solução para uma situação que não chega a ser um problema, mas que seria muito cômodo se conseguisse. Tenho um HP Pavilion G4. O Sistema Operacional nativo dele era o Windows 7. Acontece que no Gerenciador de Dispositivos de Áudio do Windows 7, a minha placa de som estéreo também era reconhecida na aba microfone. Então, ao utilizar programas como Hangouts, Skype, etc, eu conseguia facilmente transmitir o som que estava saindo das minhas placas de som para outras pessoas com 100% da qualidade original sem a necessidade de o microfone nativo do notebook ter que receber e reenviar esse som. Isso era muito útil às vezes. Como eu falei, não se trata de uma necessidade, e sim uma comodidade. Ao migrar para o Windows 10, ela continuou lá, no entanto, ao fazer uma restauração do computador (formatação limpa), a mesma já não se encontra na lista. Tem algo que eu possa fazer quanto a isso? Gostaria de algo mais simples, como comandos no prompt ou inclusões de chave no registro. Não gosto muito de ficar instalando programas à toa. Obrigado  
    • Troquei a CPU, porém mantive meu HD, o mesmo desativou a chave do Windows, e agora está solicitando senha, e não me lembro de ter senha nesta máquina, usei a do notebook, porém não deu certo. Pesquisei aqui no site mas não consegui encontrar nada de como resolver. alguém pode me dar um caminho para resolução desse caso? Grato.  
    • Não estou conseguindo configurar o Windows Update para procurar atualizações para outros produtos. Tenho o Office 2010 instalado e o Microsoft Security Essentials. Aparece a mensagem "Obtenha atualizações para outros produtos Microsoft. Saiba Mais" mas ao clicar aparece uma página web instruindo a carregar o Windows Update a partir do computador. Se tento atualizar por algum programa do Office no menu Ajuda, aparece a mesma coisa. Como procedo? Obrigado.
    • A placa da EVGA tem frequências um pouquinho maiores do que a Gigabyte.
    • Boa tarde. Por ser Plug & Play, não deverá precisar instalar drivers.
    • Olá amigos do fórum. Sempre tive só uma conta no meu Windows 7, que era administrador, de repente surgiu uma nova conta se dizendo administrador, que se eu clicar aparece um perfil temporário do Windows, algumas coisas estranhas acontecem, como o drive de cd/dvd só funciona no perfil temporário e em nenhum deles consigo abrir a pasta "documents and setting" Alguém sabe o que acontece?
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.