Hello Excel Pros, I am trying to move a the value in "REMAINING DRAWS" column to the "AMOUNT SUBMITTED" column if LItem and Lev and Sec is equal to the values in LEVEL, SECTION, AND LINE ITEM DESCRIPTION columns. When that is accomplished the LItem and Lev and Sec variable values will change and the search will continue again to move the value again. I am stumped on what I feel is something simple.
Sub moveamount()
Dim SPSfr, Lev As Integer
Dim SPSrngAll, level, section, LID, cell As Range
Dim LItem, Sec As String
Dim PayAmount, Draw As Double
ActiveWorkbook.Sheets("Sub Payment Sheet").Select
LItem = "HOLD DOWNS AND HARDWARE"
Lev = 1
Sec = "A"
'set the variable values of SPSfr, SPSrngAll
SPSfr = Sheets("Sub Payment Sheet").Range("A14").End(xlDown).Row
Range(Cells(14, 1), Cells(SPSfr, 9)).Select
Set SPSrngAll = Selection
Range(Cells(14, 2), Cells(SPSfr, 2)).Select
Set level = Selection
Range(Cells(14, 3), Cells(SPSfr, 3)).Select
Set section = Selection
Range(Cells(14, 4), Cells(SPSfr, 4)).Select
Set LID = Selection
'set the total range to search for criteria
With Worksheets("Sub Payment Sheet")
For Each cell In LID
If cell = LItem And cell.Offset(0, -2) = Lev And cell.Offset(0, -1) = Sec Then
ActiveCell.Offset(0, 5).Cut
ActiveCell.Offset(0, 3).PasteSpecial xlValues
End If
Next cell
End With
End Sub
PROJECT | LEVEL | SECTION | LINE ITEM DESCRIPTION | AMOUNT PAID | DATE PAID | AMOUNT SUBMITTED | DATE TURNED IN | REMAINING DRAWS
Villas of Canterfield 1 A LAYOUT
Villas of Canterfield 1 A WALL FRAMING
Villas of Canterfield 1 A EXTERIOR SHEATHING
Villas of Canterfield 1 A FLOOR TRUSSES
Villas of Canterfield 1 A FLOOR DECKING
Villas of Canterfield 1 A PUNCHOUT
Villas of Canterfield 1 A FURDOWNS / BULKHEADS
Villas of Canterfield 1 A CORNICE EAVE, FACIA, TRIM, SIDING
Villas of Canterfield 1 A HOLD DOWNS AND HARDWARE
Villas of Canterfield 1 A SET WINDOWS
Villas of Canterfield 1 B LAYOUT
Villas of Canterfield 1 B WALL FRAMING
Villas of Canterfield 1 B EXTERIOR SHEATHING
Villas of Canterfield 1 B FLOOR TRUSSES
Villas of Canterfield 1 C FLOOR DECKING
Villas of Canterfield 1 C PUNCHOUT
Villas of Canterfield 1 C FURDOWNS / BULKHEADS
Villas of Canterfield 1 C CORNICE EAVE, FACIA, TRIM, SIDING
Bookmarks