Ajuda com Macro

[Diogo Valentim]

Bom dia, Galera!

Estou precisando de uma ajudinha rápida:

Tenho a seguinte Macro:

Sub Clientes()

Sheets("Query").Select

Range("A1").Select

Range(Selection, Selection.End(xlToRight)).Select

Selection.AutoFilter

Range("O1").Select

ActiveSheet.Range("$A$1:$Y$65536").AutoFilter Field:=15, Criteria1:=Array( _

"001SC502007F"), Operator:=xlFilterValues

Range("E1").Select

ActiveCell.FormulaR1C1 = "Clientes Devedores"

Range(Selection, Selection.End(xlDown)).Select

Selection.FillDown

Range("E1").Select

ActiveCell.FormulaR1C1 = "Resp Area"

Range("A1").Select

Range(Selection, Selection.End(xlToRight)).Select

Selection.AutoFilter

End Sub

Pois bem meu problema todo é em uma coisa bem simples e não estou conseguindo achar os comandos no VBA pra isso.

Nesta parte do código tenho:

Range("E1").Select

ActiveCell.FormulaR1C1 = "Clientes Devedores"

Range(Selection, Selection.End(xlDown)).Select

Selection.FillDown

Mas nao tenho uma tratativa caso não existam realmente campos existentes, neste caso o excel preenche todos os campos abaixo com o "Clientes Devedores", ou seja 650000 campos.

Tentei fazer um IF Else, pedindo para selecionar a celula E2 e caso ela for <> de "" ele preenchia com o nome desejado, mas a celula E2 nem sempre é da seleção desejada.

Ai tente uma outra forma, declarei uma variável que seria igual a próxima celula, mas esta dando erro de depuração:

Dim LastRow as Long

LastRow = Range("A65536").End(xlUp).Row

Ai eu chamaria:

IF LastRow <> "Resp Area" then

Onde Resp Area é o nome desta coluna.

Aguem me ajuda?

[jeffsilveira]

Olá!

Tente substituir:

Range(Selection, Selection.End(xlDown)).Select

Por:

Range(Selection, Cells(Rows.Count, _

Selection.Columns).End(xlUp)).Select

Seu comando simula um End na primeira célula e cursor para baixo. Assim, se não houver dados, seleciona toda a planilha.

Meu comando simula o oposto, ou seja, End na última célula e cursor para cima. Assim seleciona até a última preenchida.

Teste aí e me avise.

[Diogo Valentim]

Bom dia, Jeff!

Funcionou sim!

Muito obrigado!!!!!!

[Patropi]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.