Claudinei,

segue modelo anexo.

Considere a guia "base" e o retorno na guia "saída".

Matou a Pau , é exatamente isto ; é possivel vc comentar o código para que eu possa entender a lógica e quem sabe assim aprender um pouco

ah vc tem um código pra copiar de A2 a J até a ultima linha Não vazia?

Seguinte ; no programa que usamos ,(condisccs) existe uma tecla copiar ,a planilha está de maneira que quando clico em GERAR_Relatório; se já tiver lá no programa condisccs clicado em copiar ela cola os dados copiados ; mas se não tiver copiado ,quando clico dá erro , seria possivel uma msgbox informar quando clicar em Gerar_Relatorio e não tiver sido clicado no copiar do condisccs,neste caso sem nada apara ser colado?

Ah o tópico anterior ainda permanece

Resolvido com o código abaixo
If Application.CutCopyMode = False Then
MsgBox " Sem Dados de Origem Copiados." & Chr(13) & Chr(13) & " Ir para CONDIS e Clicar em Copiar." & Chr(13) & Chr(13) & Chr(13) & Chr(13) & " ESTA OPERAÇÃO SERÁ ABORTADA.", vbOKOnly, "Erro Severo"
Exit Sub
Else
ActiveSheet.Range("A2").Select
Selection.PasteSpecial xlPasteValues

Continuo precisando do código que selecione de A2 até a ultima célula NÃO vazia em J , se alguem puder ajudar agradeço.

Bom dia,

Veja se ajuda:

    'Retorna a quantidade de linhas usadas da planilha.
    'Na maioria das situações vai retornar a linha da coluna "J" que você precisa
    ActiveSheet.UsedRange.Rows.Count
    
    'Portanto vai retornar o intervalo desejado
    Range("A2:J" & ActiveSheet.UsedRange.Rows.Count).Select
    
    'Uma outra opção:
    'Retorna a quantidade de linhas das células adjacentes a "A2" preenchidas
    [A2].CurrentRegion.Rows.Count
    
    'Se a planilha tem dados na linha 1
    Range("A2:J" & [A2].CurrentRegion.Rows.Count).Select
    
    'Se a linha 1 estiver em branco
    Range("A2:J" & [A2].CurrentRegion.Rows.Count + 1).Select

Abraço

Na Mosca ; muitissimmmmmmmmmmooo obrigado.

Quando tiver um tempo poderia por favor dar uma olhada nesse tópico?

viewtopic.php?f=10&t=3412