[RESOLVED] Excel Copy Whole Row to Different Sheet

[crampz]

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

[koolsid]

Is it again related to hyperlink or a general question?

[crampz]

Is it again related to hyperlink or a general question?

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

[koolsid]

Like this?

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

[crampz]

Like this?

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.

[koolsid]

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

[crampz]

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?

[koolsid]

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

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

[crampz]

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.

[koolsid]

You are welcome