Case de forma reducida en access mediante macros

Hola y gracias de antemano. Estoy desarrollando un excel, y tengo un problemilla con un case. Esta es la programación que tengo.
Private Sub Guardar_Click()
Dim Msg As String
Dim Resp As String
Msg = "¿Seguro que desea cargar los datos?"
Resp = MsgBox(Msg, vbQuestion + vbYesNo, "CONFIRMACION")
If Resp = vbYes Then
    Select Case ComboBox1.ListIndex
        Case 0
            Select Case ComboBox2.ListIndex
                Case 0
                Sheets("Datos").Range("D4") = Sheets("Datos").Range("D4") + EntradaMaterial.TextBox3.Value
                TextBox3 = Empty
                MsgBox ("La operacion se ha realizado correctamente")
                Case 1
                Sheets("Datos").Range("D5") = Sheets("Datos").Range("D5") + EntradaMaterial.TextBox3.Value
                TextBox3 = Empty
                MsgBox ("La operacion se ha realizado correctamente")
                Case 2
                Sheets("Datos").Range("D6") = Sheets("Datos").Range("D6") + EntradaMaterial.TextBox3.Value
                TextBox3 = Empty
                MsgBox ("La operacion se ha realizado correctamente")
            End Select
        Case 1
            Select Case ComboBox2.ListIndex
                Case 0
                Sheets("Datos").Range("D18") = Sheets("Datos").Range("D18") + EntradaMaterial.TextBox3.Value
                TextBox3 = Empty
                MsgBox ("La operacion se ha realizado correctamente")
                Case 1
                Sheets("Datos").Range("D19") = Sheets("Datos").Range("D19") + EntradaMaterial.TextBox3.Value
                TextBox3 = Empty
                MsgBox ("La operacion se ha realizado correctamente")
                Case 2
                Sheets("Datos").Range("D20") = Sheets("Datos").Range("D20") + EntradaMaterial.TextBox3.Value
                TextBox3 = Empty
                MsgBox ("La operacion se ha realizado correctamente")
            End Select
        Case 2
            Select Case ComboBox2.ListIndex
                Case 0
                Sheets("Datos").Range("D32") = Sheets("Datos").Range("D32") + EntradaMaterial.TextBox3.Value
                TextBox3 = Empty
                MsgBox ("La operacion se ha realizado correctamente")
                Case 1
                Sheets("Datos").Range("D33") = Sheets("Datos").Range("D33") + EntradaMaterial.TextBox3.Value
                TextBox3 = Empty
                MsgBox ("La operacion se ha realizado correctamente")
                Case 2
                Sheets("Datos").Range("D34") = Sheets("Datos").Range("D34") + EntradaMaterial.TextBox3.Value
                TextBox3 = Empty
                MsgBox ("La operacion se ha realizado correctamente")
            End Select
    End Select
Else
TextBox3 = Empty
End If
End Sub
Lo que ue quiero es que en este caso solo he puesto 3 case, peor tengo muchos más y querría abreviarlo. Como ves las celdas de la hoja también se incrementan una unidad.
¿Cómo puedo hacerlo?
Gracias.

1 Respuesta

Respuesta
1
Lo primero indicar que la pregunta es de Excel... y la has puesto en Access.
Lo segundo es indicarte como lo haría yo (por lo poco que he visto)
Veo que, en función del ListIndex del ComboBox1 se empieza en una u otra fila:
0 --> 4
1 --> 18
2 --> 32
Luego veo que, dentro de cada posible valor, evalúas el ComboBox2. Si su ListIndex es 0, empiezas en la fila de, llemémosla, origen (4, 18 o 32). Si el valor es 1, en la siguiente a la de origen, y si es 2, dos filas más allá.
Ademas siempre haces la misma operación: sumar el valor de un textbox a lo que diga la celda.
Bien, todo eso ya nos aporta un patrón que nos permite intentar acortar el código.
Hasta aquí es pura lógica. Ahora se trata de pasarlo a código (y en Excel reconozco que voy un poco justo)
Me parece que en Excel, al igual que en Access, puedes crear una dirección utilizando posiciones de fila+columna. Creo que con Cells...
Private Sub Guardar_Click()
If MsgBox("¿Seguro que desea cargar los datos?", vbQuestion + vbYesNo, "CONFIRMACION") = vbNo Then
  TextBox3 = Empty
  Exit Sub
End If
Dim x As Integer
x = Choose(ComboBox1.ListIndex + 1, 4, 18, 32) + ComboBox2.ListIndex
Cells(x, 4) = Cells(x, 4) + EntradaMaterial.TextBox3.Value
TextBox3 = Empty
MsgBox("La operación se ha realizado correctamente")
End Sub
Escrito del tirón....

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Abrir formulario desde cuadro combinado

Tengo un cuadro combinado que su nombre es cboForms al que le puesto una lista de varios formularios, el nombre de cada formulario es F_Papeleta_de_sitio_2022, F_Papeleta_del_sitio_2023, F_Papeleta_de_sitio_2024, etc me gustaría que al desplegar el...
3 respuestas

¿Se puede compartir base de datos access 2007?

Tengo una pequeña duda. He estado leyendo por foros y otras páginas acerca de la posibilidad de compartir bases de datos, pero en ninguna he visto nada acerca de hacerlo de forma simultanea, es decir, que si yo creo un registro desde un ordenador, el...
2 respuestas

Capacidad de Microsoft Access

Quisiera saber si alguien de ustedes sabe hasta cuantos registros soporta una tabla en una base de datos en Access... Me servirá de mucha la ayuda de alguien...
2 respuestas

Problemas convertir SQL SERVER

Estoy intentando pasar a SQlServer una base de datos de access, lo que hago es utilizar la opción que ofrece Access pero me sale un informe con el "mensaje se paso por alto o fallo la exportación", y lo curioso es que me crea bien la nueva base de...
2 respuestas

¿Cómo puedo imprimir informe y actualizar tabla usando un "botón de comando"?

Quiero saber como hacer para que en una tabla, dónde el valor predeterminado es "N" al hacer clic en el botón de comando, imprima 1 informe y actualice a "S" el valor de la tabla pero si en cambio, ese campo esta con valor "S" no imprima ni actualice...
2 respuestas

Tengo una duda access 2010 Reporte vba

Tengo la siguiente sintaxis para filtrar un reporte pero no se filtra no se que tenga mal. DoCmd.OpenReport "ALLM2CONTEDOR", acViewPreview, "FECHA = #" & Format(Me.FECHAOK, "mm-dd-yyyy") & " # AND CONTENEDOR= " & Me.NUMEROCONTENEDOR.Column(1) & ""...
2 respuestas

Contar los registros en formulario con un valor de cero

Como digo en la pregunta es posible contar los registros con un valos cero, y si es así cual es la instrucción para ello. ¿Algún experto me puede ayudar. A parte de esto cuando quiero ebaular alguna respuesta se produce error no se si les ecurre a...
2 respuestas

Puedo utilizar más de 258 caracteres en la instrucción DoCmd. ¿RunSQL?

Estoy utilizando un formulario de una tabla y quisiera que parte de esos datos se traspasaran a otra tabla, pero resulta que hasta ahora lo he hecho pero quiero traspasar más datos y la instrucción es tan grande que no la admite, ¿Se puede ampliar...
4 respuestas

Sumar en formulario inportes pagados he inportes pendientes

Tengo un formulario con una serie de cantidades unas pagadas y otras pendientes y casillas de verificación donde se marcan unas y otras, lo que pretendo hacer es sumar por un lado las pagadas y por otro las pendientes pero no se como hacerlo, hacer...
3 respuestas

Extraer de campo fecha el mes

Necesito el código para extraer de un capo fecha el mes en letra para insertarlo en otro campo se que no sera difícil pero la verdad no lo se mientras gracias por su ayuda
2 respuestas