Notifications
Clear all

macro tirar 0

6 Posts
3 Usuários
0 Reactions
1,572 Visualizações
(@jau288)
Posts: 61
Estimable Member
Topic starter
 

Saudações a todos.
Preciso de codigo vba para uma tabela ( h31:af31) tem vários números , e entre as células existem vários números "0 " . Preciso copiar os valores para outra tabela sem "0" . Coloco em anexo exemplo
Fico muito grato a todos

 
Postado : 06/03/2016 7:08 pm
Trindade
(@trindade)
Posts: 278
Reputable Member
 

Boa noite, jau288.

Vê se isso te ajuda.

Sub SemZero()

Dim x As Long
Dim i As Long
Dim c As Long
Dim UltCol As Long
Dim UltLin As Long
    
    UltLin = Cells(Rows.Count, 2).End(xlUp).Row
    UltCol = Cells(2, Columns.Count).End(xlToLeft).Column
    
    For x = 2 To UltLin
    
        c = 3

        For i = 2 To UltCol
        
            If Cells(x, i) <> 0 Then
                Cells(x + 15, c) = Cells(x, i)
                c = c + 1
            End If

        Next i

    Next x

End Sub

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 06/03/2016 7:36 pm
(@jau288)
Posts: 61
Estimable Member
Topic starter
 

Bom dia Trindade, obrigado pela atenção...
Quanto este código não consegui rodar...

 
Postado : 07/03/2016 5:54 am
(@fabiosp)
Posts: 291
Reputable Member
 

Bom dia colega,

Eu testei a rotina criada pelo Trindade e aparentemente está funcionando perfeitamente.

Abraços.

 
Postado : 07/03/2016 7:18 am
Trindade
(@trindade)
Posts: 278
Reputable Member
 

Bom dia, jau288.

O amigo Fabiosp anexou um arquivo com botão mas sem ação ou código na planilha.

Testa ai novamente, simplesmente peguei o código e coloquei em um botão na planilha.

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 07/03/2016 9:38 am
(@jau288)
Posts: 61
Estimable Member
Topic starter
 

Bom dia .agradeço a ajuda , e obrigado pela atenção...
Está perfeito ...

Encerendo...

 
Postado : 08/03/2016 5:33 am