AJUSTE DE UMA MACRO...
 
Notifications
Clear all

[Resolvido] AJUSTE DE UMA MACRO [2]

10 Posts
3 Usuários
2 Likes
1,287 Visualizações
JSCOPA10
(@jscopa10)
Posts: 341
Reputable Member
Topic starter
 

Meus caros, boa tarde.

Eu utilizo esta macro abaixo em um arquivo ... mas surgiu uma necessidade em outro arquivo, e não consigo ajustar a Macro!!

Ao invés de fixar o range em J3:AG2000, gostaria de saber qual a última linha preenchida da coluna N (supondo que seja 1600 - ficaria J3:AG1600) !! ... Ou seja, o final do range vai depender da última célula preenchida na coluna N !!

Alguém dá uma luz?? ... Desde já MUITO Obrigado!! 

Sub CopiareColarJ3:AG2000()

'colado na planilha FICHAS
'copia J3:AG2000 e cola em AR3:BO2000 ... E para o cursor em AR3

Range("J3:Ag2000").Copy

With Range("AR3")

.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats

End With

End Sub
Este tópico foi modificado 2 anos atrás 3 vezes by JSCOPA10
 
Postado : 18/06/2022 2:05 pm
EdsonBR
(@edsonbr)
Posts: 1056
Noble Member
 

Buenas, guri!

 Range("J3", Range("AG" & Rows.Count).End(xlUp)).Copy

 
Postado : 18/06/2022 3:34 pm
JSCOPA10
(@jscopa10)
Posts: 341
Reputable Member
Topic starter
 

EdsonBR, guri gente boa, obrigado pela resposta ... mas acho que, pelo visto, minha explicação inicial não ficou clara!!

A Macro que postei copia J3:AG2000 e cola em AR3 e funciona perfeitamente!!

A nova necessidade no meu trabalho é que esta mesma macro olhe ANTES para a coluna N ... ou seja, vá até a linha N10000, suba até a última célula preenchida da coluna N ... e monte a matriz a ser copiada e colada ... J3:AG(última linha na coluna N)!!

 

 
Postado : 18/06/2022 4:16 pm
JSCOPA10
(@jscopa10)
Posts: 341
Reputable Member
Topic starter
 

AMO VBA/Macro, mas sou meio burrinho nisso!! kkkkk .............. Estou há 2h tentando resolver essa Macro!! ... Já vi uns 10 vídeos sobre Macro no youtube, mas nenhum é tão específico!!

 

 
Postado : 18/06/2022 4:36 pm
(@osvaldomp)
Posts: 852
Prominent Member
 

@jscopa10
Range("J3:AG" & Cells(Rows.Count, "N").End(3).Row).Copy

Osvaldo

 
Postado : 18/06/2022 4:44 pm
JSCOPA10
(@jscopa10)
Posts: 341
Reputable Member
Topic starter
 

Osvaldomp, sua sugestão está contando, mas inclusive as células vazias, ou seja, o resultado do ... "Range("J3:AG" & Cells(Rows.Count, "N").End(3).Row).Copy" ... é 1.048,576

 

Gostaria que o comendo fosse na célula N10000 e subisse (Crlt+seta pra cima) até a primeira linha preenchida da coluna N ... e aí montasse a Matriz J3:AG (nº desta última preenchida da coluna N)!! 

========================

 

É regra do fórum, e eu também acho chato postar a Macro e não um modelo de exemplo ............. já que o arquivo do trabalho é enorme e não posso postar, vou montar um exemplo aqui para postar - assim a pergunta fica objetiva!!!!!!!!!!!!!!!!!

 

 

Este post foi modificado 2 anos atrás por JSCOPA10
 
Postado : 18/06/2022 5:40 pm
JSCOPA10
(@jscopa10)
Posts: 341
Reputable Member
Topic starter
 

Montar o arquivo será 2 trabalhos (já que não posso postar o original) ... 

O que gostaria é ajustar esta linha de comando ... ou seja, copiar A1:M& (vai na célula I10000 sob até a primeira célula preenchida)!! ... Esta variável da coluna I que não estou conseguindo montar!!

Range("A1:M" & Cells(Rows.Count, "I10000").End.xlUp).Copy

Este post foi modificado 2 anos atrás por JSCOPA10
 
Postado : 18/06/2022 6:08 pm
JSCOPA10
(@jscopa10)
Posts: 341
Reputable Member
Topic starter
 

Sub Copia()
Range("A1:M10000").Copy
End Sub

'isto eu sei fazer ... mas gostaria de condicionar o M10000 à última célula preenchida da coluna I - buscando de I10000 para cima!!

 
Postado : 18/06/2022 6:56 pm
(@osvaldomp)
Posts: 852
Prominent Member
 

@JSCOPA10

A linha de código que eu sugeri atende este critério que você colocou no primeiro post ~~~> "gostaria de saber qual a última linha preenchida da coluna N"

Já, este novo critério diverge do anterior, pois agora você quer localizar a última célula com valor que esteja acima da linha 10.000 ~~~> "Gostaria que o comendo fosse na célula N10000 e subisse (Crlt+seta pra cima) até a primeira )linha preenchida da coluna N ... e aí montasse a Matriz J3:AG (nº desta última preenchida da coluna N)!!"

Para atender a esse novo critério utilize a linha abaixo no lugar da anterior.

Range("J3:AG" & Cells(10000, "N").End(3).Row).Copy

 

Osvaldo

 
Postado : 18/06/2022 7:18 pm
JSCOPA10 reacted
JSCOPA10
(@jscopa10)
Posts: 341
Reputable Member
Topic starter
 

Oswaldomp, perfeito!! ...

Realmente vacilei, achei que postando a Macro que utilizo em outro arquivo conseguiria ajustar, mas não consegui!!

Agora com esse seu comendo, e com os ajustes, ficou perfeito!! ... RESOLVIDO!!

MUIIIIIITO OBRIGADOOOOO!!!

 
Postado : 18/06/2022 7:47 pm
Osvaldomp reacted