Excel Button for an order guide

[Mrupe86]

I am struggling with my excel spreadsheet. I take a weekly inventory of items and subtract it from a needs list to create orders for the week. My coworker does it manually, but I decided to assist by making buttons for him to do various tasks. I can't seem to get this one button accomplished.

Difference between If G-F (is positive) / spread the number needed into the four columns. If G-F (is negative) then 0.

I can move columns around if needed and make adjustments in my current macros. Any help is appreciated!

I tried a few SpreadEven VBA codes I found online. I was unable to make the needed adjustments to make it work.

 

[Mrupe86]

I am struggling with my excel spreadsheet. I take a weekly inventory of items and subtract it from a needs list to create orders for the week. My coworker does it manually, but I decided to assist by making buttons for him to do various tasks. I can't seem to get this one button accomplished.

Difference between If G-F (is positive) / spread the number needed into the four columns. If G-F (is negative) then 0.

I can move columns around if needed and make adjustments in my current macros. Any help is appreciated! View attachment 114305

I tried a few SpreadEven VBA codes I found online. I was unable to make the needed adjustments to make it work.

I am struggling with my excel spreadsheet. I take a weekly inventory of items and subtract it from a needs list to create orders for the week. My coworker does it manually, but I decided to assist by making buttons for him to do various tasks. I can't seem to get this one button accomplished.

Difference between If G-F (is positive) / spread the number needed into the four columns. If G-F (is negative) then 0.

I can move columns around if needed and make adjustments in my current macros. Any help is appreciated! View attachment 114305

I tried a few SpreadEven VBA codes I found online. I was unable to make the needed adjustments to make it work.

Sub Distribute()
Range("H6").Formula2 = "= IF(($F6-$G6)>0,ROUND(($F6-$G6)/4,),""0"")"
Range("I6:K6").Formula2 = "= IF(($F6-$G6)>0,ROUND(($F6-$G6-SUM($H6:H6))/(COLUMN($I6)+2-COLUMN(H6)),),""0"")"
With ActiveSheet
Range("H6").AutoFill Destination:=Range("H6:H" & Range("H" & Rows.Count).End(xlUp).Row)
Range("I6").AutoFill Destination:=Range("I6:I" & Range("I" & Rows.Count).End(xlUp).Row)
Range("J6").AutoFill Destination:=Range("J6:J" & Range("J" & Rows.Count).End(xlUp).Row)
Range("K6").AutoFill Destination:=Range("K6:K" & Range("K" & Rows.Count).End(xlUp).Row)
End With
Dim ws As Worksheet, rng As Range

For Each ws In ActiveWorkbook.Worksheets

For Each rng In ws.UsedRange

If rng.HasFormula Then

rng.Formula = rng.Value

End If

Next rng

Next ws

End Sub