Click on a Cell and Contents of cell populate another cell in another worksheet

[Msears]

How can I make this code do this:
I have data in Col A and Col G, I want to click on any cell in A and it populate Col A and Col G into Col A and and D on worksheet 2?

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

 

[My Aswer Is This]

I helped you once before on a similar post;
You said sheet to copy to was named "List"
And you only wanted values posted.
So try this:
Change sheet name to your needs

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Modified  4/14/2022  1:11:37 PM  EDT
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Cancel = True
Dim Lastrow As Long
Lastrow = Sheets("List").Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets("List").Cells(Lastrow, 1).Value = Target.Value
Sheets("List").Cells(Lastrow, 4).Value = Target.Offset(, 6).Value
End If
End Sub

 

[Fluff]

Hi & welcome to MrExcel.
What is the name of the sheet the data should be copied?
Also what row should it be copied to?

 

[Fluff]

I helped you once before on a similar post;

Considering this is the OP's 2nd post, that is unlikely. Especially as the thread with their 1st post is locked.

 

[Msears]

Hi & welcome to MrExcel.
What is the name of the sheet the data should be copied?
Also what row should it be copied to?

Hello. This is my first time, I just posted code from another thread that works for me, but I wanted to change it up somewhat. The target sheet is called “Master Goals” and it has data in Col A and data in Col G. I want to click any cell in A and when I do that I want it to take the corresponding cell in Col G, and populate in a sheet called “My Goals”, and put A and G’s data in Col A and B on the My Goals sheet? I hope that makes sense?

 

[Fluff]

Do you want it to go to a specific row, or to the next empty row?

 

[Msears]

Do you want it to go to a specific row, or to the next empty row?

Next empty row would be great!

 

[My Aswer Is This]

I got involved here this time because I got a notification saying you had a question about one of my posting on a similar request.
But now that Fluff is helping you I will move on. Take care

 

[Fluff]

Ok, how about

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Column = 1 Then
      Cancel = True
      If Target.Value = "" Then Exit Sub
      With Sheets("My Goals").Range("A" & Rows.Count).End(xlUp)
         .Offset(1).Value = Target.Value
         .Offset(1, 3).Value = Target.Offset(, 6).Value
      End With
   End If
End Sub

 

[Msears]

Thanks so much!