Detalhes de vba numeros deleta pares ou impares em determinada range

Saberexcel - o site das macros
Essas macros do Aplicativo Microsoft Excel VBA, deletam números pares ou impares, incluí na planilha uma macro para copiar os números de 1 a 100 para facilitar o seu teste. Espero que o exemplo possa lhe ser útil. Fiique com Deus, E_Marcondes.

Deleta números pares
Sub Deletar_numeros_pares()
For i = 1 To [A1].CurrentRegion.Rows.Count
For j = 1 To Cells(i, 1).CurrentRegion.Columns.Count
If Cells(i, j).Value Mod 2 = 0 Then
Cells(i, j).Delete xlToLeft
End If
Next
Next
End Sub

'Deleta números ímpares
'Observe que aqui usamos a mesma macro, porém, mudamos o nome e a atribuição
'do Operador Mod 1 (impares) Operador Mod 2 (pares)
Sub Deletar_numeros_impares()
For i = 1 To [A1].CurrentRegion.Rows.Count
For j = 1 To Cells(i, 1).CurrentRegion.Columns.Count
If Cells(i, j).Value Mod 1 = 0 Then
Cells(i, j).Delete xlToLeft
End If
Next
Next
End Sub

Esta é uma macro auxiliar que usei para copiar os números da Plan2 para a Plan2
Sub copiar_teste()
Sheets("Plan2").Range("A1:J10").Copy
Sheets("Plan1").Select
Range("A1").Select
ActiveSheet.Paste
Range("N1").Select
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

Baixe o exemplo de planilha contendo as macros acima
vba numeros por extenso ate 9999 (20.9 kB 2010-11-25 19:28:18)


Publicidade:
Compre com segurança, qualidade, garantia e preços baixos - Lojas SubMarino.