Connecting date selected on a calendar to a specific cell

**jpcsolutions** · 08-13-2011, 03:45 PM

I have designed a calendar GUI in my macro. When someone selects a specific date on said calendar, I want that date to fall into a specific column. I can do this with other user input boxes, but I can't figure out how to do it with the calendar option.

Please help!

-Jared

**Leith Ross** · 08-13-2011, 04:01 PM

Hello jared,

It is difficult to offer workable solutions when you have written the code using vaporware. Please post your workbook with before and after examples of how the data should be arranged and any comments needed to explain what you want.

**jpcsolutions** · 08-13-2011, 04:09 PM

Hi Leith,

I don't have any code for it. I simply used the Calendar Control 12.0 and generated the calendar in the GUI. So, for example, if I click on August 13, and then my "Submit" button, I want that specific date to populate into a certain cell.

I'm not sure what vaporware is either. I'm fairly new to Excel.

Thanks,

Jared

**Leith Ross** · 08-13-2011, 04:22 PM

Hello Jared,

Thanks for filling in some of the key details like the which Calendar control you are using. By the way, vaporware is a software industry term used to describe software that has not been written yet. It only exists in the theory.

**Leith Ross** · 08-13-2011, 04:34 PM

Hello ,

Here is an example of how to transfer the Calendar selection to cell A1 on the ActiveSheet. You may need to change the name of the command button and the range to match what you are using.

Private Sub CommandButton1_Click()
    Range("A1").Value  = Calendar1.Value
End Sub

**jpcsolutions** · 08-13-2011, 05:04 PM

Okay. I adjusted the code accordingly. However, the date only populates to one specific cell. So, I made some additional adjustments with some code to do a search into the last USED cell of a particular column. Then I applied the new values to the next OPEN row.

See below...

Private Sub cmdOK_Click()
Dim NR As Long

'transfer values to database
    With ActiveWorkbook.Sheets("UNIV100")
        NR = .Range("A" & .Rows.Count).End(xlUp).Row + 1
        .Range("E" & NR).Value = frmCalendar.Value
    End With

'Reset values
    frmCalendar.Value = ""
End Sub

Thank you very much for your help, Leith. You pointed me in the right direction.

-Jared

**Leith Ross** · 08-13-2011, 05:09 PM

Hello Jared,

Glad I could help.

Connecting date selected on a calendar to a specific cell

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Connecting date selected on a calendar to a specific cell

Re: Connecting date selected on a calendar to a specific cell

Re: Connecting date selected on a calendar to a specific cell

Re: Connecting date selected on a calendar to a specific cell

Re: Connecting date selected on a calendar to a specific cell

Re: Connecting date selected on a calendar to a specific cell

Re: Connecting date selected on a calendar to a specific cell

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions