RESPONDER UNA PREGUNTA

Si para responder la pregunta, crees necesario enviar un archivo adjunto, puedes hacerlo a traves del correo [email protected]

Pregunta:	62112 - INSERTAR HOJA DE EXCEL DESDE ACCES A DERECHA DE LAS HOJAS
Autor:	Juan Carlos
Todos los días se inserta una nueva hoja en un determinado libro de Excel. Por alguna razón que yo desconozco dichas hojas son insertadas hacia a la izquierda. La ultima hoja de la derecha es siempre la misma, solamente cambian cantidades económicas que son comparadas al final de cada día con la nueva hoja insertada. Yo cree una macro que me haga dicha comparación y se existe diferencia, me la muestra en una MsgBox. Ahora bien, esta macro la cree para probar dichas comparaciones, pero en este caso solamente funciona si la ultima hoja está a la derecha. ¿Alguien me puede ayudar a solucionar este problema? Es decir, deseo comparar la hoja Caja que está a la derecha (siempre) con la última hoja insertada a la izquierda, se llame como se llame. Este es el código de dicha macro. Sub test() Dim Var1, Var2, Result As Currency Dim msg As String Var1 = Sheets("Caja").Range("F5") Var2 = Sheets(Sheets.Count).Range("F3") If Sheets("Caja").Range("F5") < Sheets(Sheets.Count).Range("F3") Then Result = Sheets(Sheets.Count).Range("F3") - Sheets("Caja").Range("F5") msg = "Caja have less money, the difference is: " & Format(Result, "#,##0.00") MsgBox msg, vbCritical, " DIFERENCIA" ElseIf Sheets("Caja").Range("F5") > Sheets(Sheets.Count).Range("F3") Then Result = Sheets("Caja").Range("F5") - Sheets(Sheets.Count).Range("F3") msg = "210809 have less money, the difference is: " & Format(Result, "#,##0.00") MsgBox msg, vbCritical, " DIFERENCIA " Else Sheets("Caja").Range("F5") = Sheets(Sheets.Count).Range("F3") MsgBox " CORRECTO ", vbOKOnly, "MUY BIEN" End If End Sub Muchas gracias de antemano.