Results 1 to 2 of 2

Thread: Reporting from a list

  1. #1

    Thread Starter
    Lively Member
    Join Date
    Feb 2014
    Posts
    74

    Exclamation Reporting from a list

    I have a list of contract names. I have to provide a status report on contracts that are not fully signed. In Column "A" I have the contract name. in Column "M" I have the Date the Contract is/was completed.

    My report lies in Column "N"

    What I need is a macro that will search that list of contract names, and based on a blank cell in Column "M" it will provide me ONLY the contracts that are not completed (blank "M" column; because not completed) and only the Contract Name (Column "A") along with the contract notes in the "N" column.

    I know someone out there can figure this out much faster than I... I've been trying for days, I can't get anything to work and this is always my goto resource.

    I need to report this information onto another sheet in the same workbook... basically using VBA to reference the cells and import the content on my reports page at the click of a button.

    Thanks in advance!

    Here is an example of what I'm working with:
    Name:  Capture_Delete.jpg
Views: 396
Size:  23.5 KB

    I just need the capture the information in the yellow and report them to another sheet (sheet2)
    Last edited by IGPOD; May 16th, 2014 at 01:16 PM. Reason: Clarity

  2. #2
    Addicted Member 3com's Avatar
    Join Date
    Jul 2013
    Location
    Spain
    Posts
    253

    Re: Reporting from a list

    I have a spreadsheet called Contracts, and another called Reports
    The macro searches unsigned contracts in Contract spreadsheet , and copy the name of Contract and the respective Note on the worksheet called Reports.

    Sheet <Contracts>

    Attachment 118869

    Sheet <Reports> after running the macro.

    Name:  Unsigned.gif
Views: 246
Size:  4.7 KB

    Code...

    Code:
    Sub report()
    
        Dim nrow As Integer, x As Integer
        nrows = Worksheets("Contracts").UsedRange.Rows.Count 'Sheet containing Contracts, Notes, Dates
        x = 2
        
        For i = 2 To nrows
            If Not IsDate(Worksheets("Contracts").Cells(i, 3).Value) Then
                Me.Cells(x, 1).Value = Worksheets("Contracts").Cells(i, 1).Value 'Contract name
                Me.Cells(x, 2).Value = Worksheets("Contracts").Cells(i, 2).Value 'Note
                x = x + 1
            End If
        Next i
    
    End Sub
    Note: I placed code onto sheet called <Report>. You has to change data to suit your needs.

    Edit:

    and import the content on my reports page at the click of a button.
    Notice button (8 ball) in pic 1 above. This button run this macro for me. Then you need add some button to QAT.

    http://office.microsoft.com/en-gb/ex...001234105.aspx


    HTH
    Last edited by 3com; May 17th, 2014 at 01:48 PM. Reason: Miss something

Tags for this Thread

Posting Permissions

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



Click Here to Expand Forum to Full Width