Formula matricial muy extensa desde formulario
Buenas tardes.
Estoy con un problema, el cual ya esta a medio solucionar.
Ya puedo utilizar formulas matriciales extensas, aplicando Sendkeys y Doevents (antes no podía si la formula tenia mas de 255 caracteres).
También tuve inconvenientes, por tener en hojas diferentes, los datos a calcular, el botón y el resultado, y lo solucioné activando primero la hoja y luego la celda donde se escribirán los resultados.
Pero todo funciona bien, si el botón lo tengo en una hoja.
Pero si el botón lo tengo en un formulario, ya no funciona. Escribe la formula, pero no la hace matricial.
Este es mi código:
Private Sub Botón3_Haga_clic_en()
Hoja2.Cells(4, 2).Formula = "=SUM( IF(planillamjt! E2:E1000=""MASCULINO"", IF(planillamjt!L2:L1000=""Supervisores o Jefes"",planillamjt!S2:S1000 + planillamjt!U2:U1000+ planillamjt!W2:W1000 +planillamjt!Y2:Y1000+ planillamjt!AA2:AA1000 +planillamjt!AC2:AC1000+ planillamjt!AE2:AE1000+ planillamjt!AG2:AG1000+ planillamjt!AI2:AI1000+ planillamjt!AK2:AK1000+ planillamjt!AM2:AM1000+ planillamjt!AO2:AO1000)))"
Hoja2.Activate
Hoja2.Cells(4, 2).Activate
Hoja2.Cells(4, 2).Select
SendKeys "{F2}^+{ENTER}"
DoEvents
End Sub
Estoy con un problema, el cual ya esta a medio solucionar.
Ya puedo utilizar formulas matriciales extensas, aplicando Sendkeys y Doevents (antes no podía si la formula tenia mas de 255 caracteres).
También tuve inconvenientes, por tener en hojas diferentes, los datos a calcular, el botón y el resultado, y lo solucioné activando primero la hoja y luego la celda donde se escribirán los resultados.
Pero todo funciona bien, si el botón lo tengo en una hoja.
Pero si el botón lo tengo en un formulario, ya no funciona. Escribe la formula, pero no la hace matricial.
Este es mi código:
Private Sub Botón3_Haga_clic_en()
Hoja2.Cells(4, 2).Formula = "=SUM( IF(planillamjt! E2:E1000=""MASCULINO"", IF(planillamjt!L2:L1000=""Supervisores o Jefes"",planillamjt!S2:S1000 + planillamjt!U2:U1000+ planillamjt!W2:W1000 +planillamjt!Y2:Y1000+ planillamjt!AA2:AA1000 +planillamjt!AC2:AC1000+ planillamjt!AE2:AE1000+ planillamjt!AG2:AG1000+ planillamjt!AI2:AI1000+ planillamjt!AK2:AK1000+ planillamjt!AM2:AM1000+ planillamjt!AO2:AO1000)))"
Hoja2.Activate
Hoja2.Cells(4, 2).Activate
Hoja2.Cells(4, 2).Select
SendKeys "{F2}^+{ENTER}"
DoEvents
End Sub
