Hallo helpers en oplossers,
If ws.Cells(iRow, 28) <> "" Then
ws.Cells(iRow, 6) = ws.Cells(iRow, 33)
ElseIf ws.Cells(iRow, 29) <> "" And ws.Cells(iRow, 31) <> "" Then
If 1 + (ws.Cells(iRow, 24) * 1.1) + (ws.Cells(iRow, 25) * (24 * 60) * 0.25) > ws.Cells(iRow, 33) Then
ws.Cells(iRow, 6) = (1 + (ws.Cells(iRow, 24) * 1.1) + (ws.Cells(iRow, 25) * (24 * 60) * 0.25)) * ws.Cells(iRow, 5)
Else
ws.Cells(iRow, 6) = ws.Cells(iRow, 33) * ws.Cells(iRow, 5)
End If
ElseIf ws.Cells(iRow, 29) <> "" Then
If 1 + (ws.Cells(iRow, 24) * 1.1) + (ws.Cells(iRow, 25) * (24 * 60) * 0.25) < ws.Cells(iRow, 33) Then
ws.Cells(iRow, 6) = ws.Cells(iRow, 33)
Else
ws.Cells(iRow, 6) = 1 + (ws.Cells(iRow, 24) * 1.1) + (ws.Cells(iRow, 25) * (24 * 60) * 0.25)
End If
ElseIf ws.Cells(iRow, 30) <> "" Then
ws.Cells(iRow, 6) = ws.Cells(iRow, 34)
ElseIf ws.Cells(iRow, 31) <> "" Then
If 1 + (ws.Cells(iRow, 24) * 1.1) + (ws.Cells(iRow, 25) * (24 * 60) * 0.25) < 5 Then
ws.Cells(iRow, 6) = 5 * ws.Cells(iRow, 5)
End If
ElseIf ws.Cells(iRow, 28) = "" And ws.Cells(iRow, 29) = "" And ws.Cells(iRow, 30) = "" And ws.Cells(iRow, 31) = "" Then
If 1 + (ws.Cells(iRow, 24) * 1.1) + (ws.Cells(iRow, 25) * (24 * 60) * 0.25) < 5 Then
ws.Cells(iRow, 6) = 5
Else
ws.Cells(iRow, 6) = 1 + (ws.Cells(iRow, 24) * 1.1) + (ws.Cells(iRow, 25) * (24 * 60) * 0.25)
End If
End If
Bovenstaande code heb ik geschreven en het werkt, voor de cracks onder jullie zal dit een simpel klusje zijn, maar mij kosten het wel een paar uurtjes met hoofdbrekens. Maar het werkt
Ik heb hierover 2 vraagjes:
1. Zoals ik deze code geschreven heb, als beginner, is dit visueel gezien netjes zoals het hoort?
2. de code maakt aan de hand van enkele criteria een som,
1 + (ws.Cells(iRow, 24) * 1.1) + (ws.Cells(iRow, 25) * (24 * 60) * 0.25), schrijf ik dat zoals het hoort of kan ik daarin, of in de code in zijn geheel, nog verbeterpunten in aanbrengen?
Alvast dank voor de aandacht
Johan