programação macros excel

[Diego Calil]

Boa tarde pessoal, estou querendo criar duas programações de macros com números de 1 a 50, para poder calcular os números ímpares, e os números pares, separadamente. Alguém pode me dar uma luz?? Desde já, obrigado.

 

[Basole]

@Diego Calil eu não entendi exatamente o que quer calcular, mas voce pode usar a formula Èpar: para verificar os numeros: 

 

Por exemplo:

=SE(ÉPAR(A1)=VERDADEIRO;"PAR";"IMPAR")

 ou vba: 

Sub Verif_Par_Impar()
    Dim i As Long
    
    With ActiveSheet

        For i = 1 To 50

            If .Range("A" & i).Value Mod 2 = 0 Then
                .Range("B" & i).Value = "PAR"
            Else
                .Range("B" & i).Value = "IMPAR"

            End If

        Next
    End With
End Sub

[Diego Calil]

Basole, boa tarde, no caso não é uma verificação, se os numeros são par ou ímpar, e sim duas macros, uma para somar todos os numeros pares de 1 a 50, e uma para somar todos os numeros ímpares de 1 a 50, quando vcê clicar em somar pares, soma todos, e assim tbém nos ímpares. Mas mesmo, assim, obrigado.

[Basole]

Segue exemplos, conforme sua descrição:

Sub Calcular_Par_1A50()
    Dim i As Long, Par As Integer

    For i = 1 To 50

        If i Mod 2 = 0 Then
            Par = Par + i
        End If

    Next

    MsgBox "Calculo soma Total de " & i & " Números Pares: " & Par, 0, "Fim do calculo Par"

End Sub

Sub Calcular_ImPar_1A50()
    Dim i As Long, ImPar As Integer
    
 For i = 1 To 50
     If i Mod 2 = 1 Then
            ImPar = ImPar + i
       End If
   
    Next
    
    MsgBox "Calculo soma Total de " & i & " Números Ímpares: " & ImPar, 0, "Fim do calculo Impar"

End Sub