Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Want a leading zero on a number
I have the following program that takes a date input from a combo box in a
userform and processes it. Public Sub TribeNameServDate() Unload frmFacil frmTribeNameSMCY.Show Application.ScreenUpdating = False Unload frmTribeNameSMCY ws.Range("A1").Value = sTribeNameUI & " Turnaround Report" ws.Range("D3").Value = sServMonthUI iServMonth = Month(DateValue(ws.Range("d3") & " 1,2009")) iPayrollMonth = iServMonth + 1 If iPayrollMonth 12 Then iPayrollMonth = iPayrollMonth - 12 End If '#### How to force this to show a leadning zero for 1 digit nos.? ### sPayrollMonth = Format(28 * iPayrollMonth, "MMM") 'converts integer month to text month ws.Range("C3").Value = sPayrollMonth If iPayrollMonth < 6 Then sSFY = Right(sCYUI, 2) Else sSFY = Right(sCYUI + 1, 2) End If ws.Range("J3:K3").Select Selection.NumberFormat = "@" ws.Range("J3") = Right(sCYUI, 2) ws.Range("K3") = sSFY Application.ScreenUpdating = True ws.Range("A1").Select End Sub Later, the variable iPayrollMonth will be used to name the file (see below), and I want it always as a 2 digit number, like 04 instead of 4. How do I do that? Public Sub FileNameandSave() Dim sYear As String Dim sFilename As String ActiveWorkbook.SaveAs Filename:="SFY" & sSFY & "." & iPayrollMonth _ & " " & sTribeNameUI & " TR" End Sub Thanks! |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Need 7 digit number with differnt number of leading zeros | Excel Discussion (Misc queries) | |||
I want to add a plus sign behind a number and keep the leading zer | Excel Worksheet Functions | |||
number format with leading 0 | Excel Discussion (Misc queries) | |||
How to add leading 0 to four digit number? | Excel Worksheet Functions | |||
Number to text with leading zero | Excel Programming |