macro tirar 0
Enviado: 06 Mar 2016 às 22:29
por 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
Re: macro tirar 0
Enviado: 07 Mar 2016 às 11:50
por alexandrevba
Bom dia!!!
Tente algo asssim, favor adaptar o código...
Código: Selecionar todosSub 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
Re: macro tirar 0
Enviado: 09 Mar 2016 às 08:42
por nelson288
Bom dia alexandrevba deu certo , obrigado pela atenção e pela ajuda foi muito útil.
Grato a todos...
jau