Results 1 to 2 of 2

Move value of a cell into another cell if multiple criteria is match in multiple ranges

Threaded View

zlinksystems Move value of a cell into... 06-07-2015, 01:37 PM
xladept Re: Move value of a cell into... 06-07-2015, 06:53 PM
  1. #1
    Registered User
    Join Date
    06-07-2015
    Location
    Dallas, Texas
    MS-Off Ver
    Windows 7
    Posts
    1

    Move value of a cell into another cell if multiple criteria is match in multiple ranges

    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
    Last edited by Leith Ross; 06-07-2015 at 03:39 PM. Reason: Added Code Tags

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Replies: 7
    Last Post: 01-02-2015, 10:12 AM
  2. INDEX / MATCH FUNCTIONS - Multiple Criteria Between Date Ranges
    By JMData Consultant in forum Excel Formulas & Functions
    Replies: 3
    Last Post: 07-22-2014, 02:25 PM
  3. Excel 2007 : Index, Match, Large Formula: Multiple Criteria, Multiple Ranges
    By SimpleJack in forum Excel Formulas & Functions
    Replies: 5
    Last Post: 07-19-2013, 08:54 AM
  4. Replies: 7
    Last Post: 07-19-2012, 10:22 AM
  5. Macro to move cell contents of multiple rows into one if criteria is met
    By citygov in forum Excel Programming / VBA / Macros
    Replies: 2
    Last Post: 02-08-2012, 05:32 PM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1