¿Como contabilizo los números pares e impares en una determinada celda? - Usando Excel Macros.
Estoy aprendiendo a usar macros, y tengo esa duda~ Espero puedan ayudarme.
Respuesta de Dante Amor
1
Si quieres revisar un rango de números, y quieres saber cuántos son pares, por ejemplo:
Sub Contar_Pares()
Set rango = Range("B3:B9") 'rango de celdas con números
For Each numero In rango
If WorksheetFunction.IsEven(numero) Then
contar = contar + 1
End If
Next
Range("C3").Value = contar
End SubPara contar los números impares
Sub Contar_ImPares()
Set rango = Range("B3:B9") 'rango de celdas con números
For Each numero In rango
If WorksheetFunction.IsOdd(numero) Then
contar = contar + 1
End If
Next
Range("D3").Value = contar
End SubSi quieres contar los pares y los nones al mismo tiempo
Sub Contar_Pares_y_Nones()
Set rango = Range("B3:B9") 'rango de celdas con números
For Each numero In rango
If WorksheetFunction.IsEven(numero) Then
pares = pares + 1
Else
nones = nones + 1
End If
Next
Range("C3").Value = pares
Range("D3").Value = nones
End SubSon algunos ejemplos, avísame cualquier duda.
.
.
1 respuesta más de otro experto
Respuesta de Programar Excel
Estos ejemplos te pueden aportar algo
suscribe https://youtube.com/programarexcel.com