Catsof
Mensagens : 1 Data de inscrição : 08/01/2014
| Assunto: 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
| |
|
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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 | |
|