showing 01 instead of 1

[charleschassmith]

hi all new to the forum and need help

I am working in Excel right now and using vb to short out some things i have made 3 combo box's

[hour] [min] [am/pm]

I set a list to populate the range in the combobox

1-12
1-59
am/pm

I then am copying and pasting the "time" into a word doc ... all is working
butttt....

the combo box when selecting say 4:03pm shows as 4:3pm when out putting
I have formatted the cells to show 01 02 ..etc
and in the comboBox list it is showing as 01,02 etc
when actually selected it drops the 0 ....




what do help.

[AlphaFrog]

When outputting the minutes value, use the FORMAT function to keep the 00 format.
Example:
Format(Cells(1, 1).Value, "00")

Otherwise, show your output part of the code.

[charleschassmith]

EX:

TextBox1.Text = TextBox1.Text & vbNewLine & "CONTRACT FOR        :  " & BrideNameBox.Text
    TextBox1.Text = TextBox1.Text & vbNewLine & "DATE OF WEDDING :   " & MonthBox.Text & " " & DayBox.Text & " " & YearBox.Text
    TextBox1.Text = TextBox1.Text & vbNewLine & "TIME OF WEDDING :   " & hourBox4.Text & ":" & MinBox4.Text & " " & ampmBox4.Text
    TextBox1.Text = TextBox1.Text & vbNewLine & "LOCATION                 :   " & LocationBox.Text

EVERYTHING in grouped into textbox1.text

where it gets its data for combo boxes is in a sheet

hourBox4.Text [ Row source List!h1:h13 cell 1 blank for if we do not know the time and wish to leav it blank upto 13 to cover all 12 digits in hour ]
not sure where to pop in the formatting



~~copying all data from textbox1.text~~

Private Sub Copy_Click()
Set MyData = New DataObject
    
    MyData.SetText TextBox1.Text
    MyData.PutInClipboard

~~opening word to to be pasted with ctrl+v~~
     
Set wordapp = CreateObject("word.Application")
    wordapp.documents.Open "C:\beautiful faces\Beautiful Faces Wedding Contracts\Blank.docx"
    wordapp.Visible = True
    
End Sub

sooooo VERY ugly i know but..... where do i put in format

TIME OF WEDDING : " & hourBox4.Text & <--- in here ? " & (Format(Cells(1, 1).Value, "00") hourBox4.Text &

?_?

it has been a to long..

[charleschassmith]

GOT IT. it is a BAD way of doing it but i am going to format the cells in the sheet as text that way 01 IS not a number but a string :D
in this case as i am not doing math on the number them self this should work ..... pats self on back .. thanks for the input AlphaFrog


~_~ my code is sooo bad its not funny

[AlphaFrog]

Try this...

TextBox1.Text = TextBox1.Text & vbNewLine & "TIME OF WEDDING : " & _
                                            hourBox4.Text & ":" & _
                                            Format(MinBox4.Text, "00 ") & _
                                            ampmBox4.Text

[charleschassmith]

will give it a go ^_^ ill post back of course my "bad" solution is working now sooo lol ... again thou thanks
work day over i am out 3000 !


post back on Monday