Visual Basic para Aplicaciones - Problemas de programacion

Life is soft - evento anual de software empresarial
 
Vista:

Problemas de programacion

Publicado por Maite (1 intervención) el 03/11/2021 12:49:19
Hola,

Tengo problemas de programación ya que cuando mi segunda condición (If Milling < Range("Tabla2").Cells(Quantity, 2).Value Then) no se cumple cuando Milling=3 y sss=20 y no entiendo por que. Por ello, el codigo llega a else donde Milling se reinicia al valor de 2 y ocurre lo mismo cuando llega a de nuevo a 3.

Si alguien me puede ayudar con alguna cosa, lo agradeceria

Sub Millingbatch()

Dim ID As Integer
Dim Guztira As String
Dim Milling As String
Dim Quantity As String
Dim Batch As String
Dim sss As String


Guztira = "O11"
Milling = 1
Quantity = 1
Batch = 1

For ID = 1 To (Range(Guztira).Value - 1) Step 1
If Range("Tabla3").Cells(ID, 2).Value = "OK" Then
If Milling < Range("Tabla2").Cells(Quantity, 2).Value Then
Range("Tabla1").Cells(ID, 7) = Range("Tabla2").Cells(Batch, 1).Value
'sss = Range("Tabla2").Cells(Quantity, 2).Value
Milling = Milling + 1
Else
Batch = Batch + 1
Range("Tabla1").Cells(ID, 7) = Range("Tabla2").Cells(Batch, 1).Value
Milling = 2
End If
End If
Next ID
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 1.134
Oro
Ha mantenido su posición en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Problemas de programacion

Publicado por Antoni Masana (500 intervenciones) el 04/11/2021 21:13:06
Sin ver el libro y los valores que va tomando las variables y objetos es difícil ver donde esta el problema.

Saludos
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar