Macro to lookup date, name and place data into it
Results 1 to 4 of 4

Thread: Macro to lookup date, name and place data into it
Thanks Thanks: 0 Likes Likes: 0

  1. #1
    New Member
    Join Date
    Dec 2017
    Location
    United Kingdom
    Posts
    13
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Macro to lookup date, name and place data into it

    Good morning all of you,

    This is my first ever post in this forum and I am sincerely stuck on this on for the last week...

    I am looking for a macro to lookup cells B2 and B3 in calculator sheet which are name and date and cross referencing in a productivity spreadsheet determine the cross cell into which it needs to paste the data and actually paste it as value.

    Any ideas?

    date1 date2 date3 date4
    name1
    name2
    name3
    name4 Cross referenced

  2. #2
    New Member
    Join Date
    Dec 2017
    Location
    United Kingdom
    Posts
    13
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Macro to lookup date, name and place data into it

    Now i finally found how to return the cell address that the data needs to go to, how do i get VBA to paste it into that address?

    formula to get address: =CELL("address",INDEX(Productivity!A4:JA73,MATCH(C5,Productivity!A4:A97,0),MATCH(B5,Productivity!A4:JA4,0)))

  3. #3
    New Member
    Join Date
    Dec 2017
    Location
    United Kingdom
    Posts
    13
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Macro to lookup date, name and place data into it

    I'm looking at a VBA code something like
    Code:
    Application.Goto Reference:=Range("LocationToPasteTo.Value")
    but it does not seem to like that... Please someone help..

  4. #4
    New Member
    Join Date
    Dec 2017
    Location
    United Kingdom
    Posts
    13
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Macro to lookup date, name and place data into it

    Found this code, but i don't know how to implement it correctly......
    Code:
    Public Sub TesterA01()
    Dim SH As Worksheet
    Dim arr As Variant
    Dim rng As Range
    
    arr = Split(ActiveCell.Value, "!")
    
    Set SH = Sheets(arr(0))
    Set rng = SH.Range(arr(1))
    
    Application.Goto Reference:=rng
    
    End Sub

Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

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