Boa tarde!!

Já tentou usar ?

Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.copy

Att

Boa tarde,
intão esse código funcionou, porem ele copia a planilha inteira, até o cabeçalho (linha A1 inteira),
no entanto, a planilha que receberá a cópia já tem o cabeçalho idêntico e tem um limite, tipo da linha 3 até a linha 50 para receber os dados copiados
Preciso encaixar esses dados copiados nesse limite de linhas da utra planilha
Tem algum código pra selecionar só as linhas preenchidas, e não todas as visíveis?

Vlw pelo ajuda!

Boa tarde!!

Enquanto não uma resposta satisfatória, poderia postar seu arquivo modelo, simulando o antes e depois do que deseja?

Att

Você tem algum email de contato, não estou conseguindo anexar a planilha?

Boa tarde!!

Você pode depositar seu arquivo modelo, aqui mesmo no fórum desde que seja compactado, ou pode postar em site gratuito como send space e depositar o link aqui.

Att

<font><font> https://www.sendspace.com/file/1skwei</font></font>

Segue o link do arquivo

Att

cara eu fiz, mas vc tem que ve sua planilha, não tem nada ali para que ela fique desse tamanho
de qualquer forma testa aí

Sub Macro2()
   Dim nLinhas As Long

    Sheets("Extrusão").Range("A:S").AutoFilter Field:=19, Criteria1:="=Aguardando Movimentação", Operator:=xlOr, Criteria2:="=Em Aberto"
    Sheets("Extrusão").Visible = True
 
k = 0
For UL = 1 To 19
nLinhas = Sheets("Extrusão").Cells((Rows.Count), UL).End(xlUp).Row
If nLinhas >= k Then k = nLinhas
Next
Sheets("Extrusão").Range("A" & 2, "S" & nLinhas).Copy

Sheets("Programação").Cells(2, 1).PasteSpecial Paste:=xlPasteValues
ActiveWorkbook.Save
    
End Sub

Até

Para constar, a planilha está "desse tamanho" devido a aba Programação. Apesar de estar aparentemente limpa, o Excel considera o usedrange até a célula 1 milhão e pouco (Posicione na célula A5 e precione simultaneamente Alt+Ctrl+End; exclua essas linhas e salve o arquivo; deverá ficar com algo em torno de 40kb

mais uma que eu não sabia

mas esse usedrange serve para q
é realmente tão necessário?

Isso apenas a "Fabriquinha" do Tio Bill (entenda como Microsoft) pode responder.

bem se nem vc que está nisso a pelo menos deste 2009 imagina eu...

Segue uma alteração da macro,
como não entendi oq era explicado só fiz para oq estava especifico na macro
mas é muito facil modificar para outras necessidades.

Att.

Reinaldo, não seria : Ctrl + Shift + End ?

Eu não gosto muito de usar UsedRange, pelo fato de o excel enxergar celulas vazias como se estivessem preenchidas, isto pode ser explicado mais facilmente da seguinte forma:
1° ) Abra o excel, não digite nada;
2° ) Selecione algumas celulas;
3° ) Selecione formatar celulas e escolha qualquer formato, como não digitamos nada, para nós as celulas estão vazias, mas para o Excel não, elas estão preenchidas com a formatação, agora tecle simultaneamente Ctrl + Shift + End e será selecionada todas as celulas que acabou de formatar, então a grosso modo, é mais ou menos isto o que UsedRange entende.

A mesma coisa acontecerá se em uma coluna a ultima celula preenchida for A10, e selecionarmos ela e apagar o conteudo usando o Delete, ela estará vazia de valor, mas não da formatação, então ainda assim em uma rotina para saber a ultima celula preenchida se utilizarmos UsedRange ele informará a A10.

O ideal é limpar a celula usando "Limpar Tudo", veja que no Menu tem Limpar Conteudo, Limpar Formato e Limpar Tudo.

[]s

Mauro ,
vc falou que não gosta de usar, então isso não é uma coisa automática do excel, ou é?

fui olha a minha planilha e tinha mesmo em áreas que não tem nenhuma informarão ou formatação

mas mesmo com 3 plans recheadas de dados algo como 6000 linha x 140 colunas mais dezenas de formatações condicionais com formulas e mais uma aba de analises fora as macros
isso tudo e apenas tem o tamanho da plan que ele postou 9Mb

o UsedRange pode ter sido causado pelo efeito sanfona da minha planilha que muda de tamanho constantemente ??

não achei "Limpar Tudo"

eu tento controlar o máximo possível o tamanho da minha planilha pq o planejado é ela tabalhar com pelo menos 3x mais dados que irão variar de tamanho e tipo e serão trocadas pelas macros para analises .

tem alguma forma de evitar que o UsedRange extrapole na planilha?

att.

Mauro,
Realmente é o shift (no meu teclado a tecla com seta para maiúscula).
Lembrando que após o limpar tudo ou exclusão das linhas/colunas desejadas deve-se salvar a planilha para que seja "visualizado essa limpeza". Aparentemente, somente após a operação de salvar, e que é dado o refresh nessa área de memoria do Excel.
Ed,
Pelo pouco que conheço, a maneira e evitar esses espaços e rotineiramente verificar se o espaço utilizado está conforme o visualizado.
No VBA também não gosto de utilizar o UsedRange para definição de a linhas/colunas/range, pois eventualmente poderá trazer essas informações desencontradas