Gravar dados de uma determinada celula para uma coluna em outra planilha.

[Maicon Mello]

Ola, meu primeiro post no fórum e preciso da ajuda de alguém mais

experiente pois comecei a lidar com Excel tem muito pouco tempo.

Eu tenho uma planilha e queria saber como criar um modulo para gravar os valores da Plan1,

célula A30 na Plan2, célula A11,A12,A13 etc:

sempre que eu executar esse modulo os dados sejam gravados um debaixo do outro, pois na Plan1,célula A30

serão gerados valores diferentes diariamente e preciso registrar esses valores.

 

Obrigado!

 

[CasaDoHardware]

Cole esse codigo em um modulo 

 

 

Sub Gravar()

Dim linha As Long
Dim WP2 As Worksheet
Dim WP1 As Worksheet

Set WP1 = Sheets("Plan1")
Set WP2 = Sheets("Plan2")

linha = WP2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row

WP2.Cells(linha, 1).Value = WP1.Range("A30").Value

End Sub

 

[Maicon Mello]

@CasaDoHardware obrigado pela atenção, mais não deu certo.

[CasaDoHardware]

você disse quero copiar da Plan1 para  Plan2

 

 

Onde esta o erro?

 

Copiar da Plan1 Para a Plan2.xlsm

[Maicon Mello]

Desculpe, não esta errado, só que foi como eu disse, sou iniciante, o erro estava aqui, Seu código está correto agora está 100% Muito obrigado.

Só mais uma duvida, tem como impedir que os valores sejam duplicados?

Por ex. quando salvar uma vez, depois de salvo o mesmo valor não se repita caso alguém clique acidentalmente no botão? Porque os valores são renovados de 6 em 6 horas, isso é controle de produção então tem q ser exato.
 

[CasaDoHardware]

Como não sei como é sua planilha e como não sei se a celula A30 é uma formula ou é apenas digitado então nao limpei a informação da celula A30

 

Mas se for digitado ou seja você digita e clica no botao pra gravar insira essa linha antes do end sub

 

 

WP1.Range("A30").Value = "" 

 

Assim apos gravar vai apagar os dados da celula 

[Maicon Mello]

 Desculpe incomodar mais uma vez, só queria saber se tem como usar esse código em mais de um botão? porque a planilha1 tem 4 colunas, cada coluna com seus

valores somados em E30,H30,L30 e P30 a planilha2 receberá os valores

somados das células que mencionei nas colunas A,D,G e J, as células q citei no inicio do tópico eram somente referencia, tentei assim mais não deu!

 

Sub Módulo1()

Dim linha As Long
Dim WP2 As Worksheet
Dim WP1 As Worksheet

Set WP1 = Sheets("Plna1")
Set WP2 = Sheets("Plan2")

linha = WP2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row

WP2.Cells(linha, 1).Value = WP1.Range("E36").Value

End Sub
Sub Módulo2()

Dim linha As Long
Dim WP2 As Worksheet
Dim WP1 As Worksheet

Set WP1 = Sheets("Plna1")
Set WP2 = Sheets("Plan2")

linha = WP2.Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Row

WP2.Cells(linha, 1).Value = WP1.Range("I36").Value

End Sub

 

[CasaDoHardware]

Faz o seguinte disponibiliza seu arquivo.

 

Indique onde quer copiar o que

[Maicon Mello]

Planilha01  D30, H30, L30 e P30 valores gravados em Plhanilha02 colunas a partir das células A,D,G e J.

 

http://www.mediafire.com/download/ccwq32ul1akjwz6/Planilha+-+Maicon.rar

[CasaDoHardware]

Os valores são registrados sempre no mesmo horario em todas as colunas?

 

Ou cada coluna tem o seu registro indepentende

[Maicon Mello]

@CasaDoHardware independente

 

[CasaDoHardware]

Ve se é isso

Planilha - Maicon.xlsm

[Maicon Mello]

@CasaDoHardware cara, te amo! é isso mesmo, percebi q se a planilha2 estiver com os valores com "0" zero, o total é gravado na ultima linha em branco.

 

[CasaDoHardware]

Ve se essa alteração resolve.

Planilha - Maicon.xlsm

[Maicon Mello]

Não resolveu, quando tem o ZERO pula pra outra célula.

 

 

 

[CasaDoHardware]

Acho que você nao entendeu o que eu fiz, caso você clique acidentalmente ou seja nao queira gravar o valor basta clicar em nao

 

A macro so roda se você confirmar a execução

[Maicon Mello]

Sim, eu entendi isso, muito obrigado pela ajuda.

Agora já sei como prosseguir!

[João Edegar]

Estou querendo gravar os valores de um site, ja usei o hiperlink e esta alterando conforme muda no site, gostaria que esses valores sejam gravado em outro planilha, criei uma macro mas ela nao roda automaticamente, saberia como posso fazer para pegar os valores em cada vez que eles atualizam. Utilizei esta macro

Sub Gravar()

 

Dim linha As Long

Dim WP2 As Worksheet

Dim WP1 As Worksheet

 

Set WP1 = Sheets("Plan1")

Set WP2 = Sheets("Plan2")

linha = WP2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row

WP2.Cells(linha, 1).Value = WP1.Range("b86").Value

End Sub

[Visitante]

 

Segue uma ideia.

1. Instale os dois códigos abaixo no módulo da planilha Plan1 e verifique se algum deles retorna uma Caixa de Mensagem após ocorrer a atualização no conteúdo de B86 pelo Hiperlink.

 

2. Se nenhum retornar então coloque em qualquer célula vazia =B86 e verifique se retorna a caixa WS Calculate
 

Private Sub Worksheet_Calculate()
 MsgBox "WS Calculate"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
 MsgBox "WS Change"
End Sub

Se algum  dos códigos retornar a Caixa conforme o item 1 ou o item 2 acima então substitua naquele código a linha de comando que faz retornar a Caixa pela linha abaixo.

Sheets("Plan2").Cells(Rows.Count, 1).End(3)(2) = [B86]