VBA EXCEL : Do while + for next
HejJeg skal løse følgende:
Har variabler i nedenstående celler:
A1=750 = myStartVal
A2=15 = myCounter
A3=50 = mySubtract
A4=4 = myLoop
Skal udfører nedestående via VBA
D1=(A1-A3) '700
D2=(D1-A3) '650
D3=(D2-A3) '600
D4=(D3-A3) '550
osv..
Den skal udfylde værdier i 15 celler =(myCounter)
Når sidste celle er lig = 0, så skal den kører forfra fra med start i D16=(A1-A3) '700
D17=(D1-A3) '650
D18=(D2-A3) '600
D19=(D3-A3) '550
osv..
Koden skal afvikles efter variablen i A4(myLoop)
Kan I hjælpe med udvide nedenstående kode, således den eksevers som i ovenstående beskrivelse.
--------------------------------------------------------
Dim myStartVal, myCount, mySubtract, myLoop, RowNo,ColNo x As Long
Dim i as Integer
Set wb = ActiveWorkbook
Set ws = ActiveSheet
myStartVal= ws.Cells(1, 1).Value
myCounter= ws.Cells(2, 1).Value
mySubtract=ws.Cells(3, 1).Value
myLoop ws.Cells(4, 1).Value
Const Rowno = 1
Const Colno = 4
'Min start celle er D1 og derefter D2, D3, D4... osv.
'D1=myStartVal, D2 =myStartVal - Mysubtract, D3 =myStartVal-1 - Mysubtract
Cells(RowNo, ColNo).Value = myStartVal
For i = ColNo + 1 to ColNo + mycounter
x = mySubtract
Cells(RowNo, i).Value = Cells(Rowno, i - 1) - x
Next i
End sub