Notifications
Clear all

Preencher Células Vazias

5 Posts
3 Usuários
0 Reactions
1,031 Visualizações
(@miguel-70)
Posts: 207
Estimable Member
Topic starter
 

Alguém dispõe de uma macro que faça um loop ate a ultima célula da coluna M e preencha todas as células vazias?
Preencher com ( )
Também não sei se é possível.
Obrigado.

 
Postado : 07/11/2015 7:54 pm
(@mprudencio)
Posts: 2749
Famed Member
 

disponibilize seu arquivo mas isso nao precisa de vba.

BAsta selecionar a planilha dar f5 escolher especial vazios digitar e dar ctrl + enter

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 07/11/2015 7:58 pm
(@miguel-70)
Posts: 207
Estimable Member
Topic starter
 

É porque eu gostaria que esta função fosse disparada automaticamente, pois minha pasta de trabalho tem vários usuários. O disparador já esta pronto falta a macro.
Também não ha necessidade dispor o meu arquivo porque não tenho nada de código Loop.

 
Postado : 07/11/2015 8:03 pm
(@nelson-s)
Posts: 96
Trusted Member
 

Não entendi muito bem o porque da necessidade de preencher TODAS as células da coluna M. Dependendo da versão do Excel utilizada, a macro vai levar algum tempo para ser executada.

Mas segue o código,,,

Public Sub PreencherVazios()

    Dim wks As Worksheet
    Dim rng As Range
    Dim cel As Range
    
    Application.ScreenUpdating = False
    
    Set wks = ThisWorkbook.Worksheets("Plan1")
    Set rng = wks.Range("M1:M" & wks.Rows.Count)
    
    For Each cel In rng.Cells
        If Len(Trim(cel)) = 0 Then cel = ""
    Next cel

    Set cel = Nothing
    Set rng = Nothing
    Set wks = Nothing
    
    Application.ScreenUpdating = True

End Sub
 
Postado : 07/11/2015 11:43 pm
(@miguel-70)
Posts: 207
Estimable Member
Topic starter
 

Desculpe me pela demora fiz algumas modificações no código e deu certo.
Obrigado Nelson S.

 
Postado : 13/11/2015 12:28 pm