Activecell

  • Hi folks a total newbie here. i am having problems using Activecell. Am trying to get, through the use of a command button, the value of a selected cell to copy to another sheet.

    Have check the first part of code and it works fine but the second part returns a Error >>. Object doesn't support this property or method.

    I have tried the varies follow lines with no luck (not all at same time:)) '

    What am I missing?

    Some examples of what I have tried.


    Code
    Worksheets("Data").Range("ppack").Find("").Value = Worksheets("Gearlist").ActiveCell.Value
    Worksheets("Data").Range("ppack").Find("").Value = Worksheets("Gearlist").Range(ActiveCell.Value).Value
    Worksheets("Data").Range("ppack").Find("").Value = Worksheets("Gearlist").Range(ActiveCell.Value).Value
    Worksheets("Data").Range("ppack").Find("").Value = Worksheets("Gearlist").Range(ActiveCell.ActiveCell.Offset()).Value


    Thanks in Advance

  • Thanks for that works fine. I also tried the following code line which also worked


    Code
    ActiveCell.Copy Worksheets("Data").Range("ppack").Find("")

    Thanks again for your assistance


    Moderation Edit: Please not I have put your code in a special Code Box which makes the code easier to read and copy. Please use them in future, watch this 60 second video to see how


    Posting Code on Ozgrid

    Edited 2 times, last by royUK: Add Code Tags ().

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!