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

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

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

 

 

 

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

Saludos a todos, en especial al de Vitoria. 

Select Case.xlsm

Genial Marco!!!

Sigo Aprendiendo Bastante!!

Muchas Gracias!!!!

Saludos!!!!

Muchas gracias a todos  por vuestra ayuda

La macro me funciona al 100%

saludos

meggido