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.]

maverick14


Buenos días a toda la gente del foro, este es mi primer post y el mismo me trae aqui por un problema que tengo con una Macro. Paso a comentar sobre el mismo. Tengo un formulario que contiene textbox denominados FASE_1, FASE_2, FASE_3 y FASE_4. Y una función que al llamarla pinta el fondo de esos textbox según en el cual se haya hecho click. Ahora, para automatizar ese procedimiento yo quiero hacer una función que solo se le pase el número (1, 2, 3 o 4) y que en la función según ese número cambie el color. Pero me tira error la función. SOlo agregue una llamada a la misma como ejemplo.

Desde ya muchas gracias a todos y saludos!!!!!!!!!!

Código:

Private Sub FASE_1_Enter()
    Call PINTAR_BUSHING_SELECCIONADO(1)
End Sub



Function PINTAR_BUSHING_SELECCIONADO(BUSHING As Integer)

    Controls("CARGA_DATOS_BUSHINGS.FASE_" & BUSHING.BackColor) = &H80000005
    Controls("CARGA_DATOS_BUSHINGS.MARCA_BUSHING_" & BUSHING.BackColor) = &H80000005
    Controls("CARGA_DATOS_BUSHINGS.TIPO_BUSHING_" & BUSHING.BackColor) = &H80000005
    Controls("CARGA_DATOS_BUSHINGS.N_SERIE_BUSHING_1" & BUSHING.BackColor) = &H80000005
    Controls("CARGA_DATOS_BUSHINGS.CHAPA_TG1_1" & BUSHING.BackColor) = &H80000005
    Controls("CARGA_DATOS_BUSHINGS.CHAPA_C1_1" & BUSHING.BackColor) = &H80000005
    Controls("CARGA_DATOS_BUSHINGS.CHAPA_TG2_1" & BUSHING.BackColor) = &H80000005
    Controls("CARGA_DATOS_BUSHINGS.CHAPA_C2_1" & BUSHING.BackColor) = &H80000005
    Controls("CARGA_DATOS_BUSHINGS.T_TRAFO_1" & BUSHING.BackColor) = &H80000005
    Controls("CARGA_DATOS_BUSHINGS.T_AMB_1" & BUSHING.BackColor) = &H80000005
    Controls("CARGA_DATOS_BUSHINGS.HUMEDAD_1" & BUSHING.BackColor) = &H80000005
    
    'TEXTO EN NEGRITA
    Controls("CARGA_DATOS_BUSHINGS.FASE_" & BUSHING.Font.Bold) = False
    Controls("CARGA_DATOS_BUSHINGS.MARCA_BUSHING_" & BUSHING.Font.Bold) = False
    Controls("CARGA_DATOS_BUSHINGS.TIPO_BUSHING_" & BUSHING.Font.Bold) = False
    Controls("CARGA_DATOS_BUSHINGS.N_SERIE_BUSHING_" & BUSHING.Font.Bold) = False
    Controls("CARGA_DATOS_BUSHINGS.CHAPA_TG1_" & BUSHING.Font.Bold) = False
    Controls("CARGA_DATOS_BUSHINGS.CHAPA_C1_" & BUSHING.Font.Bold) = False
    Controls("CARGA_DATOS_BUSHINGS.CHAPA_TG2_" & BUSHING.Font.Bold) = False
    Controls("CARGA_DATOS_BUSHINGS.CHAPA_C2_" & BUSHING.Font.Bold) = False

End Function

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.