Add worksheets in combobox to enter and save record to selected sheetname automatically

[nagavasarala]

Hi,

I need to maintain my daily sales month wise so have created recommended user form but i have total 12 worksheets in one workbook

so i need to create a combobox in userform and need to Add worksheets in combobox to enter and save record to selected sheetname automatically.

can you help me to figure out the coding.


have given the below but the same is not working.

Private Sub UserForm_Initialize()
For Each sht In ActiveWorkbook.Sheets
Me.ComboBox1.AddItem sht.Name
Next sht


End Sub

please help me

 

[Fluff]

What is not working?
Do you get any error messages?

 

[nagavasarala]

No error but the sheet is not selecting and if enter data it is going to save active sheet only but i want to save the same with selected sheet if i want to add data into (sheetname) Mar18
if i select sheet mar18 in combobox and enter the date it should save into Mar18 sheet

need your help on this

 

[Fluff]

The code you've posted is only populating the combobox, what code have you got for selecting the sheet & adding data?

 

[nagavasarala]

that is only my problem can you help me out with the code please

 

[Fluff]

In your op you said

have given the below but the same is not working.

Is that correct? Does the combobox have your sheet names in?

 

[nagavasarala]

yes, but it is not getting selected to save my data

 

[Fluff]

The code you posted only populates the combobox.
Do you have any other code?

 

[nagavasarala]

No brother I don’t have any code can help me out with the code please

 

[Fluff]

In post#3 you said

No error but the sheet is not selecting and if enter data it is going to save active sheet only

How is data from the userform being saved to the active sheet if you have no code?