Este fórum está sendo desativado

[nelson288]

macro tirar 0

Mensagempor jau288 » Dom Mar 06, 2016 11:08 pm
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

[alexandrevba]

Bom dia!!!

Tente algo asssim, favor adaptar o código...

Código: Selecionar todos

Sub AleVBA_1611()
    Dim wsSrc As Worksheet
    Dim wsDst As Worksheet

    Set wsSrc = Worksheets("Planilha1")
    Set wsDst = Worksheets("Planilha1")
    
    wsSrc.Range("B2:AB3").Copy
    wsDst.Range("AK2").PasteSpecial xlPasteValues, Transpose:=True
    
    For Each cell In Range("AK2:AL30")
        If cell.Value = "0" Then cell.Clear
    Next
    
    [AK1].Value = "Ale1"
    [AL1].Value = "Ale2"
    Range("AK1:AK30").Sort Key1:=Range("AK1"), Order1:=xlAscending, Header:=xlYes
    Range("AL1:AL30").Sort Key1:=Range("AL1"), Order1:=xlAscending, Header:=xlYes
    
    wsSrc.Range("AK2:AL30").Copy
    wsDst.Range("B20").PasteSpecial xlPasteValues, Transpose:=True
End Sub

Att

[nelson288]

Bom dia alexandrevba deu certo , obrigado pela atenção e pela ajuda foi muito útil.
Grato a todos...


jau