Új hozzászólás Aktív témák

• pero19910606 csendes tag

  #46236 2021-03-10 21:59:43

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  pero19910606

  csendes tag

  Sziasztok!
  Egy macro-hoz szeretnék egy kis segítséget kérni.
  Rendelenedő mennyiséget szeretném kiszámlolni változók segítségével:

  Dim x As String
Dim y As String
Dim z As String
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim x1 As Double
Dim x2 As Double

x = Cells(i, 41) 'Rendelhetőség, ha V1, akkor ok
y = Cells(i, 36) 'Készletezés, ha T, akkor ok
z = Cells(i, 3) 'Terméktípus
a = Cells(i, 9) 'Forgalom
b = Cells(4, 7) 'Készletszint hetekben
c = Cells(i, 14) 'Készlet
d = Cells(i, 26) 'Még nyitott rendelés

With Worksheets("Rendelés")
LR = .Cells(.Rows.Count, "A").End(xlUp).Row

For i = 12 To LR


'Rendelés kalkuláció

If x = "V1" Then
If y = T Then
If z = "OTC_OTC" Then
If x1 = ((a * b) - (c + d)) > 0 Then
' Tehát X1= ((Forgalom * Készletszint) - (Készlet + nyitott rendelés)) = Rendelendő mennyiség
x2 = x1 / 10
End If
End If
End If
End If
Next i

End With
End Sub

  A problémám az, hogy az x1 változónak kéne felvenni a kalkulát rendelés eredményét, mert tovább kellene vele még számolnom, de az mindig 0 értéket vesz fel. Azért nem értem, mert ha ráviszem az egerem a szorzatra, akkor látszik, hogy mindent jól számol ki:

  

  Biztos vagyok benne, hogy valami apróságot rontok el, mert korábban többször írtam már hasonlót, de nem jövök rá sajnos, hogy mi nem jó Mit gondoltok? Köszönöm!

  Üdv! Z"

Új hozzászólás Aktív témák