UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Macros Condicion Case el 05/01/15, 06:41 pm

jorgejz01


Hola, Buen dia.
Tengo una interrogante respecto a una macro que me calcula el Total de Venta, condicionado a un descuento de acuerdo a una marca de artefacto.
Mi pregunta es porque el Select Case no reconoce palabras, pero si funciona cuando lo reemplazo por una letra, por ejemplo "Sony" lo reemplazo con "S"
Ojala me pudieran ayudar.
Les dejo el codigo:

Sub CalcularVenta()
 'Declaramos las variables
Dim Precio As Single
Dim Marca As String
Dim Cantidad As Integer
Dim Total As Single
Dim Descuento As Single
Dim Neto As Single

'Asignando datos
Precio = Range("B3").Value
Cantidad = Range("B5").Value

'Calculamos el Total
Total = Precio * Cantidad
Range("B6").Value = Total

If Range("B4").Value = "" Then
         MsgBox ("Debe ingresar una Marca")
         Range("B7").Value = ""
Else
    Marca = UCase(Range("B4").Value)
    Select Case Marca
            Case "Pioneer"
                Descuento = Total * 0.1
            Case "Kenwood"
                Descuento = Total * 0.2
            Case "Sony"
                Descuento = Total * 0.05
            Case Else
                Descuento = 0
    End Select

    Range("B4").Value = Marca
    Range("B7").Value = Descuento
End If

'Calculamos el neto
Neto = Total - Descuento
Range("B8").Value = Neto
End Sub

2RESUELTO Re: Macros Condicion Case el 05/01/15, 09:34 pm

Igtelo


Hola Jorge.

Lee el tema: "Recomendaciones para hacer preguntas" está en avisos y al haberte registrado te llegó un correo con esas instrucciones. Si ya tienes el archivo, para que nos das más trabajo haciéndolo nosotros.

En el módulo encuentras explicación y te modifiqué un poco tu código, veo que ya trabajas macros.
Archivos
Jorgejz01-Case.zip
No tienes los permisos para descargar los archivos.
(21 KB)

3RESUELTO Macros Condicional el 06/01/15, 10:44 am

jorgejz01


Muchas Gracias Ignacio por tu ayuda.
como comprenderás estoy recién comenzando con el tema de Macros, espero poder seguir aprendiendo con la ayuda de ustedes cuando tenga alguna duda.
muy bueno el foro.
saludos desde Lima-Peru

4RESUELTO Macros Condicion Case el 13/06/15, 01:57 am

Trilce


Hola, te dejo el link de una página donde podrás resolver dudas de Macros Condicion Case y mucho más cosas, ya que quieres seguir aprendiendo.
http://www.excel-avanzado.com/9547/ejemplo-de-select-case-y-if-then-aplicado-a-la-conversion-de-tipo-de-cambio.html

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.