Copying active cell and adjacent cell to another sheet

  • Jobsite Calendar.xlsxI have a question. My boss uses an Excel spreadsheet for a calendar for production jobs at our glass fabrication plant. He has me enter the information into the calendar and also have to put the name of the company and name of the job on a tag that we print out. I would like to automate the process. By this I mean I would like to put the company name and job name in to the calendar and then have it copy them to another sheet which I can then use as a mail merge to make the tags.


    The cells colored yellow are the company name and the cell below that the job name. I want to have the code copy all those cells to the other sheet. These cells would have to be transposed because they are in the same column on Sheet1 and I need them in the same row on Sheet2. Is there a way to do this as it is edited- like after you enter the company name and job name?


    ozgrid.com/forum/core/index.php?attachment/1230841/


    I tried using Range(ActiveCell.Offset(0,0), ActiveCell.Offset(0,1)).Select.Copy to copy the cell I have highlighted and the one below it. I really have no idea how to do this. I'm just trying to minimize the workflow. Please help.


    Thanks,

    Jim Mitchell

  • Hello,


    Your life could be much simpler if you always had the same number in between you reference rows highlighted in Yellow ...


    Is there a chance to normalize this sheet .... or not ...? :)

    If you feel like saying "Thank You" for the help received, do not hesitate to click the "Thumbs Up" icon, below, in the bottom right corner:)

  • I wish we could normalize it, but we add jobs on a day based on ability to ship them. By that I mean that we can we may have a lot of smaller jobs (sqft of job is in green cell) or only one or two larger jobs.


    Can you choose cells by color?


    I don't know anything really about VBA. Any good recommendations on a basic training guide/book?


    Jim

  • OK ...


    Could you have a go ... and test following macro in your file ... ?

    Hope this will help

    :)

    Files

    If you feel like saying "Thank You" for the help received, do not hesitate to click the "Thumbs Up" icon, below, in the bottom right corner:)

  • Sorry ... should have told you how to test your file ...:)


    Each and time you do type in the Job Name ... both the Customer Name and the Job Name get automatically copied to Sheet 2 ...


    Since your Sheet 1 is already filled in ... just place your cursor on the different Job Names ... and press F2 then Enter key ...


    to simulate a new entry ...


    Hope this will help

    :)

    If you feel like saying "Thank You" for the help received, do not hesitate to click the "Thumbs Up" icon, below, in the bottom right corner:)


  • Glad to hear this can help you out :)


    Thanks for your Thanks ...AND for the Like :thumbup:


    Regarding your point 2 ... not sure to understand ... please clarify ... wasn't it your objective ?


    Regarding your point 3 ... answer is Yes obviously

    If you feel like saying "Thank You" for the help received, do not hesitate to click the "Thumbs Up" icon, below, in the bottom right corner:)

  • The meaning of point 2 is that I used to have to type the information into the calendar and then go into a document and type the same information there to make the tags. I didn't know how I could pull the information from the calendar as a mail merge source and you solved that problem.


    Thanks again,

    Jim

  • Sorry for my misunderstanding ...:S


    Do not know why ... But had the impression it was a complaint ...8|

    If you feel like saying "Thank You" for the help received, do not hesitate to click the "Thumbs Up" icon, below, in the bottom right corner:)