Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Macro para acrescentar informação após a ultima linha escrita

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



Mensagens : 1
Data de inscrição : 08/01/2014

MensagemAssunto: Macro para acrescentar informação após a ultima linha escrita   Qua Jan 08, 2014 6:51 pm

Boa tarde,

Preciso da vossa ajuda para concluir um código do meu ficheiro de análise.
Basicamente tenho a sheet3 (onde tenho os dados que quero ir buscar), e tenho a sheet4 (onde quero colar os dados da sheet3, especificamente só a "película decorativa").

A questão é que a sheet3 vai diariamente sendo atualizada, e quero atualizar a sheet4 com novos dados de película decorativa, mas sem apagar as que tinha no passado.
Ou seja, quero colar para a sheet4 na primeira linha vazia..
Mas não consigo encontrar o código certo???
Podem me ajudar,sff?

O código (este código cola sempre na sheet4 a partir da linha 2)

Código:

Sub estOnze()
'
' estação 11
   
    ultimalinha = Sheet3.Cells(Rows.Count, "a").End(xlUp).Row
    ultimacoluna = Sheet3.Cells(1, Columns.Count).End(xlToLeft).Column
   
    linha = 2
   
    For x = 2 To ultimalinha
        If Sheet3.Cells(x, 1) = "Película decorativa|falta" Then
            For i = 1 To ultimacoluna
            Sheet4.Cells(linha, i) = Sheet3.Cells(x, i)
            Next
            linha = linha + 1
        End If
    Next
End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Macro para acrescentar informação após a ultima linha escrita   Ter Jan 14, 2014 5:00 pm

Boa tarde!!!

Seria bom que postasse seu arquivo modelo.

Deposite-o em site gratuito como sendspace.

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Macro para acrescentar informação após a ultima linha escrita
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Av1 - Segurança da Informação
» Como valido cpf e cnpj em vba no access?
» Macro para exportar para o word
» [Resolvido] Erro em conversão de macro para código
» Macro para Excel armazenar dados no Access.

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: