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
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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