Good Morning,

What I would like to acheive is as follows, should the txt_month = "December", I would like the txt_revenue, txt_budger, txt_forecast to put the value in cells 4,4, 4,6, 4,7 etc etc. However when the txt_month = "january, I would like them to into 5,4, 5,6 etc etc

I hope someone out there can help me? I am confused with this

Kindest regards,

Alan

Try something like this:

Dim iRow As Integer
Dim mnt As String

mnt = Application.Sheets("Sheet1").TextBox1.Text

Select Case mnt
    Case "december"
        iRow = 4
    Case "january"
        iRow = 5
End Select

Cells(iRow, 4).Value = Application.Sheets("Sheet1").TextBox2.Text
Cells(iRow, 5).Value = Application.Sheets("Sheet1").TextBox3.Text
Cells(iRow, 6).Value = Application.Sheets("Sheet1").TextBox4.Text

Substitute with this line:

mnt = LCase(Application.Sheets("Sheet1").TextBox1.Text)

Then you dont have to worry about the spelling in the textbox. Just remember to write the monthnames in the Case Select in lowercase.

Thanks for your help, its still not working, it says that it doesnt support object!
HELP!

In the editor, check you have the necessary references set. I'm running on a new install of Office and haven't added any references myself. It works for me with these references set under Tools - References:

  Visual Basic for Applications
  Microsoft Excel xx.0 Object Library
  Ole Automation and
  Microsoft Office xx.0 Object Library

If this is not the cause to the error, try telling me on which line your code stops with an error. The codeline should be marked yellow.

You may also try to debug your code. Set a breakpoint (before) where you suspects the code to fail and when the execution stops, use F8 to take one step at a time.
You should then be able determine the line causing the error.