Defining a sheet from a combobox to determine which sheet the info is added to

thmsjlmnt · June 21st, 2013, 12:57 PM

i developed this sheet a while back just to record information however the list has become quite cumbersome so i want to change the way it adds data using a combobox to specify which sheet the data goes into (months) rather than all in one and im not quite sure how to adjust my code to do this.. im currently using

Private Sub cmbAdd_Click()
'next empty cell in column A
Set c = Range("a65536").End(xlUp).Offset(1, 0)
Application.ScreenUpdating = False 'speed up, hide task
'write userform entries to database
With Me
c.Value = .ComboBox1.Value 'column one is first name
c.Offset(0, 1).Value = .TextBox3.Value 'column 3 is department
ClearControls 'clear the form
End With
Application.ScreenUpdating = True 'updatescreen
End Sub

i ws thinking something like set c =range(combobox2.value!"a65536"...however i cant get it to work

any help would be great

Shasur · June 21st, 2013, 09:48 PM

Hi

Can you try something like this

Code:

 
    Set oWS = Worksheets(ComboBox1.Value)
    oWS.Range("a65536").Value = "Ram"

Cheers
Shasur