AYUDA CON UNA MACRO

[CLARAEXCEL]

HOLA!! TENGO UN PROBLEMA CON UNA MACRO.

ES LA SIGUIENTE: (lo que tengo que hacer es que me corra la macro simulaventasdia todas las veces que sean necesarias hasta que i3 y i4 sean iguales. Y luego que en la celda I15 me escriba la cantidad de veces que se simulo hasta llegar a eso. 

Sub hastaMismaPosicion()    

Dim c As Integer      

  c = 0    

Range("I4").Value = -1    

While Range("I3").Value <> Range("I4").Value    

    Call simulaVentasDia      

  c = c + 1  

  Wend    

Range("I15").Value = c

End Sub

----------------------------------------

EL PROBLEMA QUE TENGO ES QUE CUANDO LA CORRO, ME IGUALA ALGUNOS VALORES QUE NO DEBEN SER IGUALES SIEMRPE. 

A CONTINUACION ESCRIBO LAS MACROS DE LOS VALORES QUE ME IGUALA. 

Sub simulaMes()    

Dim r As Single  

      r = 0  

  For i = 1 To 30      

  simulaVentasDia    

If Range("I8").Value > Range("I7").Value Then      

  r = r + 1    

End If  

  Next i  

  Range("I11").Value = (r / 30)    

      End Sub

------------------------------------------------

Sub simula20meses()  

  Dim p As Single    

  p = 0    

For i = 1 To 20  

      simulaMes        

p = p + Range("I11")

    Next i    

Range("I12").Value = (p / 20)

End Sub

SI SABEN QUE PUEDO HACER PARA QUE ESO NO PASE ME AYDUARIAN MUCHO!!! 

DESDE YA MUCHAS GRACIAS 

[Abraham Valencia]

Si deseas ayuda, adjunta tu archivo. Si tienes información que consideres privada, solo reemplazala por ficticia pero que no altere el tipo de datos. Si tu archivo es muy grande, basta quitar no que no tenemos que usar para probar tu problema y, obviamente, no borres todas las macros involucradas en el proceso porque,  por ejemplo, no colocaste todas aquí en tu pregunta.

[Israel Cassales]

Este tema se parece a este otro:

AYUDA CON UN CODIGO DE VBA

Como le comenté en el anterior tema está dejando al lector que deduzca partes importantes que seguro usted tiene claro al ser el consultante. Necesita ser más específica y considerar la recomendación del Maestro @Abraham Valencia

hace 13 horas, Abraham Valencia dijo:

Si deseas ayuda, adjunta tu archivo