[RESOLVED] Excel Copy Whole Row to Different Sheet

Hi All

Want to thank the help i got earlier. Its muchly appreciated

Just one more :P

Is it possible to copy a whole row of data to a different sheet on the next free line in that sheet?

i hope this makes sense

Thanks in advance

Crampz

Is it again related to hyperlink or a general question?

Quote:

---

Originally Posted by koolsid

Is it again related to hyperlink or a general question?

---

Sorry. Yes again a hyperlink (if possible). On a different sheet now.

Like this?

Code:

---

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim lRow As Long
   
    If Range(Target.Range.Address).Column = 2 Then
        lRow = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1
       
        Target.Range.EntireRow.Copy Sheets("Sheet2").Rows(lRow)
    End If
End Sub

---

Quote:

---

Originally Posted by koolsid

Like this?

Code:

---

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim lRow As Long
   
    If Range(Target.Range.Address).Column = 2 Then
        lRow = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1
       
        Target.Range.EntireRow.Copy Sheets("Sheet2").Rows(lRow)
    End If
End Sub

---

---

do you have another sample of it being used. i put the hyperlink in like last time. but no luck.

Just replace the code with this code in the sample that I uploaded in your previous workbook. :)

Quote:

---

Originally Posted by koolsid

Just replace the code with this code in the sample that I uploaded in your previous workbook. :)

---

Yep didnt realise that its copying the formula rather than the value. is it possible to get the value?

Code:

---

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim lRow As Long
   
    If Range(Target.Range.Address).Column = 2 Then
        lRow = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1
       
        Target.Range.EntireRow.Copy
        Sheets("Sheet2").Rows(lRow).PasteSpecial xlValues
       
    End If
End Sub

---

or this

Code:

---

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim lRow As Long
   
    If Range(Target.Range.Address).Column = 2 Then
        If Application.WorksheetFunction.CountA(Sheets("Sheet2").Columns(1)) = 0 Then
            lRow = 1
        Else
            lRow = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1
        End If
       
        Target.Range.EntireRow.Copy
        Sheets("Sheet2").Rows(lRow).PasteSpecial xlValues
    End If
End Sub

---

Quote:

---

Originally Posted by koolsid

Code:

---

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim lRow As Long
   
    If Range(Target.Range.Address).Column = 2 Then
        lRow = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row + 1
       
        Target.Range.EntireRow.Copy
        Sheets("Sheet2").Rows(lRow).PasteSpecial xlValues
       
    End If
End Sub

---

---

Thank you ever so much. You have really helped me out alot today. I cannot thank you enough.

You are welcome :)