Command Button Programming

[jvaught333]

Good evening all. I am trying to create a command button that will do the following:
There are potentially a large number of rows
There are 9 columns of sortable data
I want to copy each row (the entire row) to a separate sheet as a summary page which has the condition of the Follow up date being any date today or before
How would I write this code?
Thank you for your help with this.

 

[Fazza]

insert new rows or copy them into cells? I'd imagine it would overwrite what is there.
but best to check for your version what the options are. still, whatever you want can likely be done somehow
without knowing exactly your set up, i was describing the simplest way with no code
though I understand, from the question asked, that your preference is for a command button & code

 

[jvaught333]

I don't mind how I do it as long as it works. I would prefer it run on open so that would be ideal, but the issue I am running into is when I try to create the query, it says I have no relational tables.

 

[My Aswer Is This]

Yes I think he want's code. I'm sure your better at this then me. So I'm signing off here for tonight and maybe you will write the code for him. Thanks.

insert new rows or copy them into cells? I'd imagine it would overwrite what is there.
but best to check for your version what the options are. still, whatever you want can likely be done somehow
without knowing exactly your set up, i was describing the simplest way with no code
though I understand, from the question asked, that your preference is for a command button & code

 

[Fazza]

you don't need relational tables. just tables

 

[My Aswer Is This]

Try this:

If this works we can then assign the script to run when workbook is opened:
Make sure all your sheets are named exactly as should in this script:

Sub Test()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Dim Lastrowa As Long
Dim ans As String
ans = "Tracker Items Due Today"
Dim Del As Variant
Del = Array("Business Processing", " Group Service Frequency", "Future Assets", "CMOT", "Systematic Payouts")
Sheets(ans).Activate
Lastrow = Sheets(ans).Cells(Rows.Count, "F").End(xlUp).Row + 1
Sheets(ans).Rows("2:" & Lastrow).Clear
Lastrow = Sheets(ans).Cells(Rows.Count, "F").End(xlUp).Row + 1
   
   For b = 0 To 4
       Lastrowa = Sheets(Del(b)).Cells(Rows.Count, "F").End(xlUp).Row
        
        For i = 1 To Lastrowa
            If Sheets(Del(b)).Cells(i, "F").Value <= Date Then Sheets(Del(b)).Rows(i).Copy Sheets(ans).Rows(Lastrow): Lastrow = Lastrow + 1
        Next
   Next
Application.ScreenUpdating = True
End Sub

 

[jvaught333]

Do I just plug this into the main vba page?

 

[My Aswer Is This]

Are you saying you have never used a Vba script before?
This for now is a module script. Assign the script to a button.

I always assume when people ask for things like this they are already familiar with how to use Vba scripts.
Is your Workbook Macro Enabled. Or do you not know what that means?

Do I just plug this into the main vba page?

 

[jvaught333]

The workbook is macro enabled. I understand how it works, I just have not written vba or worked with vba for probably 10 years.

 

[My Aswer Is This]

So did this script do what you wanted?

The workbook is macro enabled. I understand how it works, I just have not written vba or worked with vba for probably 10 years.