Identificar e apagar última linha dentro de um intervalo

2024 - VBA & Macros

Post Recente por Fernando Fernandes 11 anos atrás

4 Posts

3 Usuários

0 Reactions

1,301 Visualizações

RSS

Edmaxy

(@edmaxy)

Posts: 54

Trusted Member

Topic starter

Olá Amigos,

mais uma vez aqui solicitando o auxílio de vocês.

tenho um um formulário onde preciso de um código que limpe a ultima linha preenchida dentro do seguinte intervalo ("B18:M37")

Consegui um código que limpa o intervalo inteiro que me serve caso eu queira apagar todo o intervalo, mas caso eu precise limpar somente as linhas B30 ao M30 por exemplo,
teria que apagar tudo e preencher tudo novamente.

desde já agraço.

att..

Edmaxy :mrgreen:

Postado : 24/03/2014 11:30 am

Edcronos

(@edcronos)

Posts: 1006

Noble Member

eu uso assim

Sub Limpa()
If Plan_Aq <> Plan_Princ Then Range(Ti & Li, Cf & Lf).ClearContents
End Sub

Sub auxb()
Ti = "HM"        'Coluna titulo
CData = "HN"
Ci = "HP"        'Coluna inicial
'Cf = "HJ"       'Coluna final
End Sub

Sub Limit()
Li = 100
Lf = 5000
Di = Cells(18, 16).Value

Plan_Aq = ActiveSheet.Name       'Planilha Ativa
Plan_Princ = Range("E10").Value       'Planilha Principal

End Sub

Mas vc pode usar assim

Sub Proa()
Ci = Range("F12").Value         'Coluna inicial apenas letra >> pega letra de coluna na celula  (F12)
Li = Range("F13").Value     'linha inicial apenas numero

Cf = Range("F14").Value      'Coluna Final  apenas letra >>>pega letra de coluna na celula  (F14)
Lf = Range("F15").Value      'linha final dados apenas numero

Range(Ci & Li, Cf & Lf).ClearContents
End Sub

como não sei como é sua planilha fica difícil definir algo mais eficiente

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

Postado : 24/03/2014 11:50 am