AJUSTE DE UMA MACRO...
 
Compartilhar:
Notifications
Clear all

[Resolvido] AJUSTE DE UMA MACRO [2]

Página 2 / 2

JSCOPA10
Posts: 348
Moderator
Topic starter
(@jscopa10)
Reputable Member
Entrou: 3 anos atrás

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
Responder
9 Respostas
JSCOPA10
Posts: 348
Moderator
Topic starter
(@jscopa10)
Reputable Member
Entrou: 3 anos atrás

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

Responder
JSCOPA10
Posts: 348
Moderator
Topic starter
(@jscopa10)
Reputable Member
Entrou: 3 anos atrás

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!!

Responder
Osvaldomp
Posts: 532
Registered
(@osvaldomp)
Honorable Member
Entrou: 10 anos atrás

@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

 

Responder
JSCOPA10
Posts: 348
Moderator
Topic starter
(@jscopa10)
Reputable Member
Entrou: 3 anos atrás

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!!!

Responder
Página 2 / 2
Compartilhar: