Pennafortt Posted August 7, 2012 at 09:31 PM Report Share #471702 Posted August 7, 2012 at 09:31 PM Boas Utilizando de formulas SE, consigo "limpar" uma lista com alguns valores não aproveitáveis. Mas um código daria uma melhorada na execução da tarefa. O código em questão atuaria no espaço amostral A3:F10 e o parâmetro é deletar qualquer numero acima de um valor determinado. Ex.: Qualquer numero acima de 10. Se alguém souber de link que tenha alguma coisa parecida ou queira desenvolver o código, fico agradecido. Cumps Link to comment Share on other sites More sharing options...
acao Posted August 8, 2012 at 08:03 AM Report Share #471716 Posted August 8, 2012 at 08:03 AM boas faz um ciclo for each que resolve Dim vRangeCelula As Range Dim vRangeA3F10 As Range Set vRangeA3F10 = Range("A3:F10") For Each vRangeCelula In vRangeA3F10 If vRangeCelula.Value > 10 Then vRangeCelula.Value = "" End If Next cumps acao Link to comment Share on other sites More sharing options...
Pennafortt Posted August 8, 2012 at 11:47 AM Author Report Share #471739 Posted August 8, 2012 at 11:47 AM Boas 👍 muito bom cumps Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now