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
Editado el por CLARAEXCEL
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
Editado el por CLARAEXCEL