Specifying Location of Data from Userform

[Anitaf]

Hi

I'll try and word this correctly....I am creating a user form where all entries (using a command button) are placed in specific cells on the worksheet. So for example if I enter on the 01/10/2011 I spent €10 on clothing, I want the data to be placed in the worksheet adjacent to the row with "1" for the first of oct and under the column heading clothing.

Hope this makes sense

 

[GlennUK]

Provide more information, and describe exactly what help you require regarding the userform ( do you have any code in there? what have you tried??? )

 

[Anitaf]

Apologies for not being clear. I am knew to this and experimenting with coding. The code I have is below. Its all down to lack of coding knowledge.

The problem lies where I am copying the data to the database. The way the code is written here, it finds the first empty row and puts the data in here. I have a spreadsheet with specific column headers and I want the data to be placed under the required heading as per the range input on the userform.

To summarize:

Left hand side row are dates in month. Top column has categories such as electricity, fuel, groceries, clothes. The userform has all these categories on a combo box. If the user enters 05.11.2011, selects category electricity and enters amount $121. I want the data to be dropped in a cell adjacent to "5" and under column heading "Electricity".


Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub cmdNext_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("oct")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 2) _
.End(xlUp).Offset(1, 0).Row

'check for a part number
If Trim(Me.txtDate.Value) = "" Then
Me.txtDate.SetFocus
MsgBox "Please enter the spend date"
Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.txtDate.Value
ws.Cells(iRow, 2).Value = Me.txtCat.Value
ws.Cells(iRow, 3).Value = Me.txtAmount.Value

'clear the data
Me.txtDate.Value = ""
Me.txtCat.Value = ""
Me.txtAmount.Value = ""
Me.txtDate.SetFocus

End Sub