Copiar dados automaticamente

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Copiar dados automaticamente

Mensagem por cl4ud10 em Sex Jun 28, 2013 9:33 am

Boas tardes a todos.
Eu venho aqui pedir a vossa ajuda para resolver um pequeno problema.
Eu criei um ficheiro com varias folhas( de classes de resistencia) que tenho que actualizar. E outra que tem um "resumo" de todas as outras.
Como é que eu posso fazer que a pagina resumo se actualize automaticamente quando eu entro os valores nas outras paginas...
Não sei se me faço muito bem compreender, mas se alguem por cà me disser como se faz, eu posto aqui a folha de excell que eu criei e assim sera talvez mais facil perceber o que eu quero....

Desde ja um obrigado pela ajuda que encontrar por cá...

cl4ud10
Iniciante
Iniciante

Mensagens : 3
Data de inscrição : 28/06/2013

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Copiar dados automaticamente

Mensagem por cl4ud10 em Sex Jun 28, 2013 9:49 am

Aqui fica o ficheiro que eu criei...

http: // www .sendspace. com/ file / 6gcyoj

Passo a explicar, nas folhas 20-25, 25-30, 30-37 ..... eu entro os valores nas celulas amarelas;
Date, N° de BL, Recette Beton, Fck, R1 e R2, o resto é calculado automaticamente...
O que eu queria é que os dados Data, N° de BL, Recette Beton, Fck e Fci fossem copiados automaticamente para a folha Famille NF.


Obrigado a todos pelas ajudas que possa obter.

cl4ud10
Iniciante
Iniciante

Mensagens : 3
Data de inscrição : 28/06/2013

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Copiar dados automaticamente

Mensagem por alexandrevba em Sab Jun 29, 2013 8:29 am

Bom dia!!!
Faça os teste.
Código:
Option Explicit

Sub AleVBA_Copiar_t82()
Dim ws  As Worksheet, _
    LR1 As Long, _
    LR2 As Long
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
    If ws.Name <> "Famille NF1" Then
        LR1 = Sheets("Famille NF1").Range("B" & Rows.Count).End(xlUp).Row + 1
        LR2 = ws.Range("B" & Rows.Count).End(xlUp).Row
        ws.Range("B19:F" & LR2).Copy Destination:=Sheets("Famille NF1").Range("B" & LR1)
    End If
Next ws
Application.ScreenUpdating = True
End Sub
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: Copiar dados automaticamente

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum