Option Explicit

Sub InputSales()
     Dim MonthOfSales As String
     Dim SalesData(1 to 4)
     MonthOfSales = InputBox(prompt:= "Enter month of sales", _
      title:= "Month")
     SalesData(1) =InputBox(prompt:= "Enter sales for week 1")
     SalesData(2) =InputBox(prompt:= "Enter sales for week 2")
     SalesData(3) =InputBox(prompt:= "Enter sales for week 3")
     SalesData(4) =InputBox(prompt:= "Enter sales for week 4")
     Range("A1").Value = UCase(MonthOfSales)
     Range("B2:E2").Cells(1).Value = SalesData(1)
     Range("B2:E2").Cells(2).Value = SalesData(2)
     Range("B2:E2").Cells(3).Value = SalesData(3)
     Range("B2:E2").Cells(4).Value = SalesData(4)
     Range("B2:E2").NumberFormat = "£0.00"
     Columns("A:E").EntireColumn.AutoFit
End Sub
 * *
Can any body help me out to crack this code


1. Why they use Option Explicit

2. What is the meaning of this code Range("A1").Value = UCase(MonthOfSales)

3. What is the meaning of this code MonthOfSales = InputBox(prompt:= "Enter
month of sales", _
      title:= "Month")








-- 
Shiv Goel
8NBYN060
ICFAI National College,YNR
9416275776

-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at 
http://www.excelitems.com
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 

To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain  @ jainayus...@gmail.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!

We reach over 6,700 subscribers worldwide and receive many nice notes about the 
learning and support from the group.Let friends and co-workers know they can 
subscribe to group at http://groups.google.com/group/excel-macros/subscribe

Reply via email to