Reducir código vba en proyecto.

Para Dante Amor

Hola con respecto a mi proyecto de aplicación VAM creo que el código que llevo creado se podría reducir bastante y me gustaría le echaras un vistazo y me dijeras como podría hacerlo.

1 Respuesta

Respuesta
1

H o l a:

Cuando tienes las mismas tareas en varios controles, lo puedes reducir creando un procedimiento general, por ejemplo, de esto que tienes:

Private Sub Op_Limpieza_Diaria_Click()
If Op_Limpieza_Diaria.Value = True Then
     Cmb_Denominacion1.Value = ""
     Cmb_Denominacion2.Value = ""
     Cmb_Denominacion3.Value = ""
     Cmb_Denominacion4.Value = ""
     Cmb_Denominacion5.Value = ""
     Cmb_Denominacion6.Value = ""
     Cmb_Denominacion1.Visible = True
     Cmb_Denominacion2.Visible = True
     Cmb_Denominacion3.Visible = True
     Cmb_Denominacion4.Visible = True
     Cmb_Denominacion5.Visible = True
     Cmb_Denominacion6.Visible = True
     Cmb_Denominacion1.List() = Range("Limpieza_Diaria").Value
     Cmb_Denominacion2.List() = Range("Limpieza_Diaria").Value
     Cmb_Denominacion3.List() = Range("Limpieza_Diaria").Value
     Cmb_Denominacion4.List() = Range("Limpieza_Diaria").Value
     Cmb_Denominacion5.List() = Range("Limpieza_Diaria").Value
     Cmb_Denominacion6.List() = Range("Limpieza_Diaria").Value
     End If
End Sub
Private Sub Op_Limpieza_Vam_Click()
If Op_Limpieza_Vam.Value = True Then
     Cmb_Denominacion1.Value = ""
     Cmb_Denominacion2.Value = ""
     Cmb_Denominacion3.Value = ""
     Cmb_Denominacion4.Value = ""
     Cmb_Denominacion5.Value = ""
     Cmb_Denominacion6.Value = ""
     Cmb_Denominacion1.Visible = True
     Cmb_Denominacion2.Visible = True
     Cmb_Denominacion3.Visible = True
     Cmb_Denominacion4.Visible = True
     Cmb_Denominacion5.Visible = True
     Cmb_Denominacion6.Visible = True
     Cmb_Denominacion1.List() = Range("Limpieza_Vam").Value
     Cmb_Denominacion2.List() = Range("Limpieza_Vam").Value
     Cmb_Denominacion3.List() = Range("Limpieza_Vam").Value
     Cmb_Denominacion4.List() = Range("Limpieza_Vam").Value
     Cmb_Denominacion5.List() = Range("Limpieza_Vam").Value
     Cmb_Denominacion6.List() = Range("Limpieza_Vam").Value
     End If
End Sub
Private Sub Op_Oficina_Diaria_Click()
If Op_Oficina_Diaria.Value = True Then
     Cmb_Denominacion1.Value = ""
     Cmb_Denominacion2.Value = ""
     Cmb_Denominacion3.Value = ""
     Cmb_Denominacion4.Value = ""
     Cmb_Denominacion5.Value = ""
     Cmb_Denominacion6.Value = ""
     Cmb_Denominacion1.Visible = True
     Cmb_Denominacion2.Visible = True
     Cmb_Denominacion3.Visible = True
     Cmb_Denominacion4.Visible = True
     Cmb_Denominacion5.Visible = True
     Cmb_Denominacion6.Visible = True
     Cmb_Denominacion1.List() = Range("Oficina_Diaria").Value
     Cmb_Denominacion2.List() = Range("Oficina_Diaria").Value
     Cmb_Denominacion3.List() = Range("Oficina_Diaria").Value
     Cmb_Denominacion4.List() = Range("Oficina_Diaria").Value
     Cmb_Denominacion5.List() = Range("Oficina_Diaria").Value
     Cmb_Denominacion6.List() = Range("Oficina_Diaria").Value
     End If
End Sub
Private Sub Op_Oficina_Vam_Click()
If Op_Oficina_Vam.Value = True Then
     Cmb_Denominacion1.Value = ""
     Cmb_Denominacion2.Value = ""
     Cmb_Denominacion3.Value = ""
     Cmb_Denominacion4.Value = ""
     Cmb_Denominacion5.Value = ""
     Cmb_Denominacion6.Value = ""
     Cmb_Denominacion1.Visible = True
     Cmb_Denominacion2.Visible = True
     Cmb_Denominacion3.Visible = True
     Cmb_Denominacion4.Visible = True
     Cmb_Denominacion5.Visible = True
     Cmb_Denominacion6.Visible = True
     Cmb_Denominacion1.List() = Range("Oficina_Vam").Value
     Cmb_Denominacion2.List() = Range("Oficina_Vam").Value
     Cmb_Denominacion3.List() = Range("Oficina_Vam").Value
     Cmb_Denominacion4.List() = Range("Oficina_Vam").Value
     Cmb_Denominacion5.List() = Range("Oficina_Vam").Value
     Cmb_Denominacion6.List() = Range("Oficina_Vam").Value
     End If
End Sub
Private Sub Op_Otros_Click()
If Op_Otros.Value = True Then
     Cmb_Denominacion1.Value = ""
     Cmb_Denominacion2.Value = ""
     Cmb_Denominacion3.Value = ""
     Cmb_Denominacion4.Value = ""
     Cmb_Denominacion5.Value = ""
     Cmb_Denominacion6.Value = ""
     Cmb_Denominacion1.Visible = False
     Cmb_Denominacion2.Visible = False
     Cmb_Denominacion3.Visible = False
     Cmb_Denominacion4.Visible = False
     Cmb_Denominacion5.Visible = False
     Cmb_Denominacion6.Visible = False
     Txt_Denominacion1.Visible = True
     Txt_Denominacion2.Visible = True
     Txt_Denominacion3.Visible = True
     Txt_Denominacion4.Visible = True
     Txt_Denominacion5.Visible = True
     Txt_Denominacion6.Visible = True
     End If
End Sub

Podría quedar así:

Private Sub OP_LIMPIEZA_DIARIA_Click()
'Por.Dante Amor
    rango = "LIMPIEZA_DIARIA"
    carga rango, True
End Sub
Private Sub OP_LIMPIEZA_VAM_Click()
    rango = "LIMPIEZA_VAM"
    carga rango, True
End Sub
Private Sub OP_OFICINA_DIARIA_Click()
    rango = "OFICINA_DIARIA"
    carga rango, True
End Sub
Private Sub OP_OFICINA_VAM_Click()
    rango = "OFICINA_VAM"
    carga rango, True
End Sub
Private Sub OP_OTROS_Click()
    carga "OFICINA_VAM", False
End Sub
Sub carga(rng, vis)
'Por.Dante Amor
    For i = 1 To 6
        Me.Controls("CMB_DENOMINACION" & i).Value = ""
        Me.Controls("CMB_DENOMINACION" & i).Visible = vis
        Me.Controls("CMB_DENOMINACION" & i).List() = Range(rng).Value
    Next
End Sub

sal u dos

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Alguien conoce una matriz en excel o access

Que me ayude a llevar las cobranzas de meensualidades de un colegio
3 respuestas

¿Apertura automática de un archivo Excel con el programador de Windows?

A tod@s! Quiero abrir un libro excel desde el programador a una hora. Al abrirlo quiero que me escriba en la hoja "Inicio" en la celda "L1" la palabra "PATATA". Que tipo de archivo debo crear (Bloc de notas) y tipo de código de codificación (ANSI,...
2 respuestas

Modificar Macros por agregar columnas

Nos hicieron falta 3 columnas... En este nuevo archivo: 1.- Agregue la Columna B y C, que una vez ingresado el dato en la G, deben de ser bloqueadas. 2.- Agregue la columna QUE, que tiene una fórmula, que debe de irse actualizando conforme se van...
2 respuestas

Macro en Excel para que me abra el cuadro "Guardar Como" pudiendo elegir destino y nombre

Necesito una macro para que al ejecutarla me abra el diálogo o como se llame "Guardar Como", que me deje elegir el nombre, que me deje elegir la ubicación y que por default lo guarde con extensión xlsm. ¿Será posible?
2 respuestas

Como incrustar imagen en celda Excel con datos de Access 2013

Quisiera saber si es posible exportar datos de Access a Excel e incrustar automáticamente la imagen a la que hace referencia una url dentro de la tabla de Access. Tengo una tabla que contiene la dirección de una imagen dentro de carpetas de mi pc, y...
1 respuesta

Contar celdas que contengan ciertos caracteres

Espero puedan ayudarme, tengo un listado horizontal de 9 celdas, en las cuales contienen 6 tipos de identificación. A,C,D,1,2 y V Al final de esas columnas, necesito contar por ejemplo solo las A, C y 1. Ya lo intente, pero no puedo lograrlo, ¿Me...
1 respuesta

¿Extraer los caracteres que hay dentro del segundo paréntesis de un String? En Excel VBA

A tod@s! Tengo una arrray, y en una de las columnas tengo datos, como estos: y necesito encontrar estos caracteres... Ojo que puede haber más de dos "( )" en un String y siempre seria el ultimo "()" comenzando por el ultimo carácter del String. Os...
2 respuestas

¿Cómo convertir valores de una celda en sucesivas filas?

Habitualmente trabajo con Access, pero desde una oficina me han pasado un archivo de Excel donde en cada fila de una hoja se indican en la primera columna el número de caja y en la celda siguiente (segunda columna) todos los números de expediente que...
1 respuesta

Cargar un rango de datos que tiene algunas filas y columnas vacías a un ListBox vba excel

Me gustaría poder seleccionar un rango de una hoja excel, por ej. Columnas B a I, las filas comenzaría en la 3 hasta final del rango no vacío de la columna C (que es el que contiene mayor numero de filas) y que ese rango se muestre en un ListBox de...
2 respuestas

Cuando ingresos los datos con código no los coloca donde deseo colocar los datos.

Código que extrae información de varios archivos de Excel desde una carpeta pero al colocar los datos los coloca varias filas mas abajo. Debe iniciar a colocar los datos en C6. La información la tiene que colocar dentro de una tabla que tiene...
2 respuestas