Results 1 to 2 of 2
  1. #1
    New Lounger
    Join Date
    Aug 2012
    Posts
    2
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Moving hyperlinks from one sheet to another in excel.

    I a writing a macro to search multiple tables on multiple sheets and compile all the ones that meet my search peramiters onto sheet 19. this part is working great but there are hyperlinks in each row and they are not carying over to sheet 19. This is my code I would apreciate any help.

    'sheet 0ne
    Sheet1.Activate

    'Finds The Final Row Of The Table Being Searched
    FinalRow = Cells(Rows.Count, 2).End(xlUp).Row

    'Loop Through The Data And Sorts Out What Fits The Search Puramiters
    For x = 1 To FinalRow

    'Asighn the Value Of The Cell Currently Being Examined To CurrentCell
    CurrentCell = Cells(x, 9).Value

    'Search The Current String For The Desired Content and indicate when it is precent
    If InStr(1, CurrentCell, SearchFor, vbTextCompare) > 0 Then

    'Move Cells From Sheet1 To Sheet2
    ReliventRows = Range(Cells(x, 1), Cells(x, 10))

    'Move To Sheet19
    Sheet19.Activate

    'Find The Next Empty Row On The Page
    EmptyRow = Cells(Rows.Count, 3).End(xlUp).Row + 1

    'Puts The Row In The Next Empty Slot
    Range(Cells(EmptyRow, 1), Cells(EmptyRow, 10)) = ReliventRows

    'Move To Sheet1
    Sheet1.Activate

    End If

    Next x

  2. #2
    New Lounger
    Join Date
    Aug 2012
    Posts
    2
    Thanks
    0
    Thanked 0 Times in 0 Posts
    I have found where this question was answered in the Spread sheet forum for excel 2003 but it is not working for me in excel 2010. Is there a sintax change I am missing?

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •