Simplificar Codigo Case... End Case.

publicado el 22 de diciembre13 años

Hola expertos podrian ayudarme a simplificar el codigo de mi formulario, esta dentro de un boton.

tengo dierentes condicionales, pero con un mismo resultado. podria ayudarme

e intentado con OR y <> para poder pero no es el mismo resultado.

este es el codigo que tengo en estos momentos:

  Case Is = Cells(i + 1, 7).Value = "D5": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "D6": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "K8": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "K6": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "J5": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "D9": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "C5": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
Case Is = Cells(i + 1, 7).Value = "G8": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "G9": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "H2": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "H3": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "H1": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "H4": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación

como pueden ver, es una condicional de que si encuentra el numero de Cedula (D5, D6, H1, etc...) hace una multiplicacion, lo que es similar es la multiplicacion que realiza (0.75, 0.9)

Agradeceria su ayuda de corazon.

publicado el 22 de diciembre13 años

Hola:

A ver que tal:



Select Case Cells(i + 1, 7).Value

   Case "D5", "D6", "K8", "K6", "J5", "D9", "C5"

      Cells(i + 1, 8).Value = "$ " & Format(Resultado2 * 0.75, "#,##0.00")

      Cells(i + 1, 9).Value = " " & denominación

   Case "G8", "G9", "H2", "H3", "H1", "D9", "H4"

      Cells(i + 1, 8).Value = "$ " & Format(Resultado2 * 0.9, "#,##0.00")

      Cells(i + 1, 9).Value = " " & denominación

   Case Else

     '...........

     '...........

End Select

[/CODE]

Saludos

publicado el 22 de diciembre13 años

Autor

Hola macro Antonio, gracias por tu sugerencia... solo que me daba error... o no pude implementarlo bien

tal vez porque utilizo un

 Select Case filas &gt; 0

pensando y analizando llege a la conclusion de utilizar el "<>" y lo implemente de la siguiente forma....

For i = 1 To filas
    Resultado2 = Cells(i + 1, 4).Value
    denominación = "MN."
    If Resultado2 = Empty Then
        Resultado2 = Cells(i + 1, 5).Value
        denominación = "USD"
    End If
Select Case filas &gt; 0
        Case Is = Cells(i + 1, 7).Value = "D5" &lt;&gt; "D6" &lt;&gt; "K8": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.75, "#,##0.00"):     Cells(i + 1, 9).Value = " " &amp; denominación
        Case Is = Cells(i + 1, 7).Value = "D7" &lt;&gt; "D8" &lt;&gt; "K4": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
        Case Is = Cells(i + 1, 7).Value = "G7" &lt;&gt; "H8" &lt;&gt; "F5": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    End Select
Next i

el problema que tengo es que si no ai dato en pesos o en dolares... con la condicional If... hace una operacion de .75 ... y quiciera saber si ahy una solucion a eso por que trate de porlo de la siguiente forma y no funciona:

Case Is = Cells(i + 1, 7).Value = " ": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 1, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación

Gracias

publicado el 23 de diciembre13 años

Autor

Hola Macro Antonio, no he podido implementar el codigo que me facilitaste, y como yo lo puse, "<>" me da ciertos errores :S

podrias ayudarme, esto es todo lo que hace el boton, ojala puedas ayudarme

Private Sub CommandButton3_Click()

'manda una ventana de error para pedir ingresar datos del catalogo
If ComboBox2 = "" Then
NoCatForm.Show
Exit Sub
End If

'dimensiona las variables
Dim Resultado2 As Double
Dim filas As Long
Dim Numero As Integer

'filtro bucador de datos por numero de catalogo
Workbooks("BuscadorCustom4.3.xlsm").Activate
Application.ScreenUpdating = False
With Sheets("Hoja2")
    .Visible = True
    .Range("B1").CurrentRegion.Clear
        With Range("B1").CurrentRegion
            .AutoFilter 2, Criteria1:=Me.ComboBox2 &amp; "*"
            .Copy Sheets("Hoja2").Range("A1")
        End With
    .Range("A:A,D:D,K:K").Delete
    .Range("H1").Value = "COSTO"
    .Range("H1").Font.Bold = True
    .Range("I1").Value = "DENOMINACION"
    .Range("I1").Font.Bold = True
    .Select
End With

'condicional si esta en pesos o en dolares
filas = WorksheetFunction.CountA(Range("A:A")) - 1
For i = 1 To filas
    Resultado2 = Cells(i + 1, 4).Value
    denominación = "MN."
    If Resultado2 = Empty Then
        Resultado2 = Cells(i + 1, 5).Value
        denominación = "USD"
    End If

'busqueda segun la cedula y operacion para encontrar el precio costo
    Select Case filas &gt; 0
    Case Is = Cells(i + 1, 7).Value = " ": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 1, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación

    Case Is = Cells(i + 1, 7).Value = "SD2": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.41454, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "TD4": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.13536, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "TD7": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.27918, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "TD2": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.27918, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "TD5": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.6016, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "TD3": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.18612, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "TD6": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.2115, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "A7": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.596712, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "A1": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.596712, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "HL1": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.27918, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "SD4": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.441, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "HL2": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.441, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    'Allen Bradley  '
    Case Is = Cells(i + 1, 7).Value = "D5" &lt;&gt; "D6" &lt;&gt; "K8": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "K6" &lt;&gt; "J5" &lt;&gt; "D9": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "C5" &lt;&gt; "C2" &lt;&gt; "C3": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "C4" &lt;&gt; "C9" &lt;&gt; "H9": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "H8" &lt;&gt; "C8" &lt;&gt; "D3": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "J7" &lt;&gt; "B5" &lt;&gt; "B8": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "B4" &lt;&gt; "B3" &lt;&gt; "B7": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "B9" &lt;&gt; "B6" &lt;&gt; "E7": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "E9" &lt;&gt; "F1" &lt;&gt; "H6": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "J6" &lt;&gt; "K3" &lt;&gt; "F6": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "J2" &lt;&gt; "k7": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.75, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "G8" &lt;&gt; "G9" &lt;&gt; "H2": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "H3" &lt;&gt; "H1" &lt;&gt; "H4": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "E8" &lt;&gt; "J8" &lt;&gt; "D4": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "D7" &lt;&gt; "D8" &lt;&gt; "K4": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "E2" &lt;&gt; "E3" &lt;&gt; "C6": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "E5" &lt;&gt; "C1" &lt;&gt; "D1": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "C7" &lt;&gt; "E6" &lt;&gt; "G5": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "H7" &lt;&gt; "K2" &lt;&gt; "J4": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "J3" &lt;&gt; "F9" &lt;&gt; "F3": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "F4": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "G7" &lt;&gt; "H8" &lt;&gt; "F5": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.9, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    Case Is = Cells(i + 1, 7).Value = "F8" &lt;&gt; "G6": Cells(i + 1, 8).Value = "$ " &amp; Format(Resultado2 * 0.94, "#,##0.00"): Cells(i + 1, 9).Value = " " &amp; denominación
    End Select
Next i

    With Sheets("Hoja2")
        uf = .Range("B" &amp; Rows.Count).End(xlUp).Row
        With .Cells
            .Columns.AutoFit
            .Rows.AutoFit
        End With
        .Range("C:E,G:G").Delete
        .Visible = False
    End With
    With Me.ListBox2
        .ColumnCount = 5
        .RowSource = "=Hoja2!A2:E" &amp; uf
    End With
Range("B1").AutoFilter
   With ActiveWindow
        .ScrollColumn = 2
        .ScrollRow = 2
   End With
Application.ScreenUpdating = True
End Sub

Agradaceria tu ayuda.

7 años7 años Enigma25 bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

Domina Excel, de Cero a Experto

¿Atascado? Deja de buscar soluciones puntuales. Aprende a dominar Excel para siempre con nuestro curso online. Más de 115 lecciones y soporte directo.

Ver el Curso Completo

192 Archivos
99 Comentarios
30 Revisiones
Última descarga

Cómo conservar la función AHORA()
- 1

Error en Macro

Le aumenté a 3 Seg. Y nada, no se que estoy haciendo mal
Este seria la impresión original al cargar el Formulario:

Y esta es la Impresión que me sale, me carga el Saldo en la Celda J21 del Recibo

Por dorgelis, · publicado el martes a las 22:235 días
Error en Macro

Probé la macro incluyendo la linea anterior y en mi ordenador un segundo fue suficiente para que funcionara correctamente.
Si te sigue dando el formulario incorrecto modifica el tiempo de espera de esa línea subiendo de 1 a 3 segundos.

Por Sergio, · publicado el martes a las 21:335 días
Error en Macro

Gracias por responder, perdón por la confusión, efectivamente al imprimir me sigue colocando los montos errados al imprimir el formulario

Por dorgelis, · publicado el martes a las 21:215 días
Error en Macro

En el mensaje original no comentabas nada de un error, simplemente no te salía el formulario con los valores que deseabas. ¿Es así?

Por Sergio, · publicado el martes a las 21:115 días
Error en Macro

Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

Por dorgelis, · publicado el 4 de agosto4 ago

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

Simplificar Codigo Case... End Case.

Featured Replies

Archivado

Archivos

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Cómo crear hipervínculos inteligentes con fórmulas

Cambios en el Control Horario

Estadísticas de descargas

Mensajes

Error en Macro

Error en Macro

Error en Macro

Error en Macro

Error en Macro

Visualizado recientemente 0

Account

Navigation

Buscar

Configure browser push notifications

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)