Verificar menor valor e excluir os outros valores

2024 - VBA & Macros

Post Recente por gtsalikis 11 anos atrás

2 Posts

2 Usuários

0 Reactions

656 Visualizações

RSS

alemaontx

(@alemaontx)

Posts: 1

New Member

Topic starter

ola amigos, gostaria de saber como faço para
verificar uma linha com varios valores onde preciso que o menor valor permaneça e os outros seja excluidos

OBS. vou usar em varias linhas distintas mas sabendo como fazer em uma o resto eu tento me virar OK

MUITO OBRIGADO....

Postado : 20/03/2014 3:10 pm

gtsalikis

(@gtsalikis)

Posts: 2373

Noble Member

seria algo assim:

Sub Verfica_e_Apaga_GT()

Dim Menor_valor

Menor_valor = WorksheetFunction.Min(Range("A1:A10"))

For Each cell In Range("A1:a10")
    If Not cell.Value = Menor_valor Then cell.ClearContents
Next
End Sub

Lembrando que se tiver uma célula em branco, já era, rs (vc não falou nada sobe isso).

Porém, vc pode adaptar para ignorar células em branco.

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

Postado : 20/03/2014 3:16 pm