macro con funcion select case que no funciona

[meggido]

Estimados

En esta ocasion necesito de vuestra ayuda, ya que  tengo una macro con la funcion select case para sumar, restar, multiplicar y dividir dos valores, pero no me funciona..Revise el codigo y no encuentro el error , ya que soy novato en esto de VB.

El ejercicio es el siguiente: En la celda A1 Y A2 estan los valores , en la celda B1 esta el signo de la operacion y el resultado debe ir en la celda A3, este es el codigo:

 

Public Sub ejemplo_select_case()

Dim Signo As String

Dim Valor1 As Integer, Valor2 As Integer, Total As Integer

      Valor1 = ActiveSheet.Range("A1").Value
      Valor2 = ActiveSheet.Range("A2").Value
      Signo = ActiveSheet.Range("B1").Value

Select Case Signo

       Case "+"
       
       Total = Valor1 + Valor2
       
       Case "-"
       
       Total = Valor1 - Valor2
       
       Case "x"
       
       Total = Valor1 * Valor2
       
       Case ":"
       
       Total = Valor1 / Valor2
       
       Case Else
       
       Total = 0
       
       End Select
       
       ActiveCell.Range("A3").Value = Total
       
       
End Sub

 

Espero me puedan ayudar

 

saludos 

meggido

 

Select Case.xlsm

[Mauricio_ODN]

Pues realmente no tenia Problemas el codigó como lo Presentas

Cambie un poco el diseño, pero lo adecuas a tus necesidades

Saludos!!!!

Select Case.xlsm

[ioyama]

Hola

 

no tienes puesto +, sino espacio+, por eso no te funciona en tu ejemplo

A la sentencia  ActiveCell.Range("A3")..... del final donde pones el resultado le sobra el a¡ActiveCell

 

Me acabo de percatar que ya te ha contestado Mauricio

Un saludo desde Vitoria

 

 

 

[Antoni]

Como somos pocos, ahí va lo mío.

Saludos a todos, en especial al de Vitoria. 

Select Case.xlsm

[Mauricio_ODN]

Genial Marco!!!

Sigo Aprendiendo Bastante!!

Muchas Gracias!!!!

Saludos!!!!

[meggido]

Muchas gracias a todos  por vuestra ayuda

La macro me funciona al 100%

saludos

meggido