Copy Row of information to another sheet

[AleahsaJ94]

Hey there!

I am kind of not really new at Excel, I have been using it throughout my years in school, however, I am new to learning all the coding that I have discovered goes along with it. I need help with the following:

I am creating a coupon workbook
Sheet A has all my coupons
Sheet B has where to look in my binder for those coupons

I would like to insert checkboxes into my first sheet at the end of every entry for a coupon and when the checkbox has the checkmark in it, it will then transfer/ Copy the information over to my 'Envelope Lookup' sheet (Sheet B) in the table I have specified for it.

I have scoured the internet looking for answers, I have almost found some on this site, just not quite close enough to what I need.

 

[Smitty]

Welcome to the Board!

I wouldn't bother messing with checkboxes like that. They can be a real pain to align, you have to set their properties individually, and they're not part of the grid, so if you sort, your check boxes won't follow.

You could add a column in SheetA, with a flag, like "Display", then use a PivotTable on SheetB to display all of your coupons. If you put the Display column in the PivotTable filter field, then only those items will show.

HTH

 

[AleahsaJ94]

I will have to search more about that, I sort of understand but not fully. However, thank you very much for your help!

 

[My Aswer Is This]

You asked a previous question about your project earlier today and I gave you a solution to but you never responded back.

For this question it would be better to tell us what your ultimate goal is and not how you want it done.

I agree having a check box at the end of every row is not a good plan. We could write a script and when you double click on a cell some action on that row could be activated. But I'm not clear what you want to happen. Please give specific details.

This was not clear and specific to me:
You said:
and when the checkbox has the checkmark in it, it will then transfer/ Copy the information over to my 'Envelope Lookup' sheet (Sheet B) in the table I have specified for it.

What is the sheet name and what table?

 

[AleahsaJ94]

I apologize, I have been picking my daughter up from her fathers. Anyways, for this would like for coupons that I want to trade with others to be automatically entered into my 'Trade Coupons' Sheet (Sheet c) when they are inputted into my first sheet called 'Coupon Spreadsheet' (Sheet A) by clicking or highlighting something in the row with the coupon information. I Have a table set up in columns in the 'Trade Coupons' sheet that has the exact same table values as the 'Coupon Spreadsheet' has.

If you need to know my table headings they are as follows:

Expiration Date/ Brand/ Type/ Description. Savings/ Manufacturer or Store/ Entered/ Envelope Location/ Category/ Amount/ Trade (This was the cell I was trying to incorporate the check box to) So maybe by highlighting that box? Or something easy.

 

[My Aswer Is This]

I see your a little new here but when I ask for sheet names I would like to see it like this:

Sheets("Trade Coupons")

When I see the quotes I know exactly the name of the sheet.

You posted it this way:

'Trade Coupons' Sheet (Sheet c)

I do not understand what that means What is sheet c?

Would it work if when you double click on column "A" of sheet named ""Coupon"

That entire row of data would be copied into sheet named "'Trade Coupons"

Would this work?

 

[AleahsaJ94]

It would transfer the row A? or adjacent to the cell I click on Row A of "Coupon"? If this is what you mean then yes that would work. I said sheet C because I am still new to referring to sheets by names lol

 

[My Aswer Is This]

When you double click on the cell in column "A" Of sheet named "Coupon" that row of data will be copied to a sheet named "Trade Coupons"


This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab Named "Coupon"
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Cancel = True
Dim Lastrow As Long
Lastrow = Sheets("Trade Coupons").Cells(Rows.Count, "A").End(xlUp).Row + 1
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Rows(Target.Row).Copy Destination:=Sheets("Trade Coupons").Rows(Lastrow)
End If
End Sub

 

[My Aswer Is This]

One more thing. We have no row "A"
You said:

It would transfer the row A? or adjacent to the cell I click on Row A

We have rows 1,2,3,4, etc.

We have columns A,B,C,D etc.