Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Selecionar Ultima L...
 
Notifications
Clear all

Selecionar Ultima Linha ativa em excel sem vba

 
2024 - VBA & Macros
Post Recente por ericksant 6 anos atrás
5 Posts
2 Usuários
0 Reactions
1,515 Visualizações
RSS
 ericksant
(@ericksant)
Posts: 0
New Member
Topic starter
 

Oi!
Boa noite,

É possível eu especificar qual a última linha de um outro excel ?

Exemplo:

 

   Workbooks.Open Filename:="C:UserserickDiferenças.xlsx"
    Windows("Template conciliacao fiscal_impostos_a_pagar_rodado.xlsb").Activate
  
  'busca diferenças contábil
  Windows("Template conciliacao fiscal_impostos_a_pagar_rodado.xlsb").Activate
  Sheets("Contábil").Select
  Selection.AutoFilter
  
    ActiveSheet.Range("C1").AutoFilter Field:=3, Criteria1:="001"
    ActiveSheet.Range("D1").AutoFilter Field:=4, Criteria1:="<>PM" _
        , Operator:=xlAnd, Criteria2:="<>OV"
    
    Range("J:J,O:O,P:P").Select
    Selection.Copy
    
  Windows("Diferenças.xlsx").Activate
  Sheets("ICMS_N").Select
  UltimaLinhaAtiva = Planilha1.Cells(Planilha1.Rows.Count, 2).End(xlUp).row
  
  ActiveSheet.Paste

Minha ideia seria copiar certas colunas e colar depois da ultima linha ativa em um outro excel, mas esse excel não tem vba...

É possível ??

 
Postado : 25/09/2018 7:18 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

ericksant,

Bom dia!

Perfeitamente possível. Tem alguma coisa errada? Algo não deu certo com o seu código? Qual o erro?

 
Postado : 26/09/2018 4:39 am
 ericksant
(@ericksant)
Posts: 0
New Member
Topic starter
 

Oi Wagner,
bom dia,

Primeiro obrigado pela resposta.

Então, quando o vba ler essa declaração do UltimaLinhaAtiva, ele reconhece o "planilha1" como a planilha1 de onde tem o código vba e não o novo arquivo que abrimos... A ideia do código é, filtrar algumas colunas no excel q tem o codigo, recortar essas colunas, abrir um novo excel e colar na ultima linha preenchida de uma coluna especifica, o problema está no reconhecimento da ultima linha ativa desse novo excel...

 
Postado : 26/09/2018 6:00 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

ericksant,

Bom dia!

Então, é só alterar a linha:

UltimaLinhaAtiva = Planilha1.Cells(Planilha1.Rows.Count, 2).End(xlUp).row

Para:

UltimaLinhaAtiva = Activesheet.Cells(Activesheet.Rows.Count, 2).End(xlUp).row
 
Postado : 26/09/2018 6:57 am
 ericksant
(@ericksant)
Posts: 0
New Member
Topic starter
 

era isso mesmo cara.

Muito obrigado!

 
Postado : 26/09/2018 7:26 am
Forum Jump:
  Tópico Anterior
Próximo Tópico