CODEWITHSUNDEEP
excelvbadatecharts
Kefkolo
Kefkolo

Reputation: 27

Capture the actual number value of a date

,Hi, I've created a macro that will create a simple gantt chart. I took this from a manual process I found on the web. In the manual process in order to set the chart to the lowest date the user is supposed to click on the start date and go to Format Cell, and temporarly change the format to General so he can see the real numeric value. Then in the chart he clicks on the dates and goes to Format Axis where in the minimum/Fixed field he types in the number that he saw when he viewed the data in General. I have tried DataValue but it only works if the date is text and not really a date. Also I see that I can do ActiveChart.Axes(xlValue).MinimumScale = valuehere to put in the value. But I can not figure out how once I've selected the cell with the date to automatically find out the number value and to put it in the line. I'm assuming that I capture the number somehow, put it in a variable and then in the above code line I put the variable in place of "valuehere" but I can't figure out how to do it.

Upvotes: 0

Views: 148

Answers (2)

Andy G
Andy G

Reputation: 19367

This should also work:

valueHere = Range("A1").Value * 1

Upvotes: 1

Doug Glancy
Doug Glancy

Reputation: 27478

Try something like:

ValueHere = Format(ActiveCell.Value,"0")

Upvotes: 1

Related Questions