Create Outlook Appointments based on cell info

  • Hello,

    I was wanting to create appointments in outlook based on cell's that have a yellow background. Next to each of these cells is a time that these appointments have to be created. I currently have this setup, but the specific cells are hard coded into the macro. This is a very tedious process to setup if i am editing the document and have to move cells around etc..

    Is there anyway to create a macro that will look at the activesheet and create the appointments based off the yellow cells and then set the time value that is exactly left of the cell?

    here is what i am currently doing...

    If i need to elaborate or say further detail, i am more than happy too..

    Thank you for the help!

  • Re: Create Outlook Appointments based on cell info

    Not the full solution, but see if you can incorporate the following code into your code. It loops through the yellow cells in the active sheet and outputs the value of the cell to the left.

    Sub yellow_cells()
        Dim cell As Range
        For Each cell In ActiveSheet.UsedRange
            If cell.Interior.ColorIndex = 6 Then 'yellow
                Debug.Print cell.Offset(0, -1).Value
            End If
    End Sub
  • Re: Create Outlook Appointments based on cell info

    Thank you for the help!

    so i tried plugging the code in above to fit my question.. and it basically loops constantly and wotn stop creating appointments..

    Maybe this would be easier to do.. I want to select all the cells that are yellow (color 6 on the index) and create an appointment for each cell that is selected and set the time based on the cell exactly 1 cell to the left of the selected cell...Would that be easier to do?

Participate now!

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