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 ??
ericksant,
Bom dia!
Perfeitamente possível. Tem alguma coisa errada? Algo não deu certo com o seu código? Qual o erro?
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
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...
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
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
era isso mesmo cara.
Muito obrigado!