Coding for Combo Box to copy value as text to next empty cell in sheet2

[nadrian]

Hi,

I am new here and I would like to have data from 6 combo boxes (Text) only to second sheet for record. I have linked cells to combo boxes but its not saving value to next available cell. There text fields as well which works fine when I click on Submit button.


Please help

Code:
===================================================
Private Sub CommandButton1_Click()



Range("C10").Copy Destination:=Worksheets("Record").Cells(Worksheets("Record").Rows.Count, "B").End(xlUp).Offset(1, 0)


Range("C11").Copy Destination:=Worksheets("Record").Cells(Worksheets("Record").Rows.Count, "C").End(xlUp).Offset(1, 0)


Range("C12").Copy Destination:=Worksheets("Record").Cells(Worksheets("Record").Rows.Count, "D").End(xlUp).Offset(1, 0)


Range("C13").Copy Destination:=Worksheets("Record").Cells(Worksheets("Record").Rows.Count, "E").End(xlUp).Offset(1, 0)


Range("C14").Copy Destination:=Worksheets("Record").Cells(Worksheets("Record").Rows.Count, "F").End(xlUp).Offset(1, 0)


Range("C15").Copy Destination:=Worksheets("Record").Cells(Worksheets("Record").Rows.Count, "G").End(xlUp).Offset(1, 0)


Range("C16").Copy Destination:=Worksheets("Record").Cells(Worksheets("Record").Rows.Count, "H").End(xlUp).Offset(1, 0)


Range("C19").Copy Destination:=Worksheets("Record").Cells(Worksheets("Record").Rows.Count, "K").End(xlUp).Offset(1, 0)


Range("C22").Copy Destination:=Worksheets("Record").Cells(Worksheets("Record").Rows.Count, "N").End(xlUp).Offset(1, 0)






Range("C10").Value = ""
Range("C11").Value = ""
Range("C12").Value = ""
Range("C13").Value = ""
Range("C14").Value = ""
Range("C15").Value = ""
Range("C16").Value = ""
Range("C19").Value = ""
Range("C22").Value = ""




End Sub
==============================

 

[nadrian]

Unfortunately problem still there. When I select value from combo box it copies twice in sheet2. what is the solution for this issue.
Waiting for your kind reply.

Regards

So are things working for you now? You should never be having the problem you mentioned in post #16. Unless some how you have not modified each combobox script properly.

 

[My Aswer Is This]

Do you still have the Comboboxes linked to some cell? If so please unlink them.

And show me the script you have in the Combobox.

And you are not clicking on any sort of "Submit" button correct?

 

[nadrian]

EXCELLENT, YOUR ARE GREAT MAN, Its works perfect now. Finally I stopped banging my head with Wall.

THANKS YOUR VERY MUCH GUYZ.

Great help in this FORUM.

Do you still have the Comboboxes linked to some cell? If so please unlink them.

And show me the script you have in the Combobox.

And you are not clicking on any sort of "Submit" button correct?

 

[My Aswer Is This]

Glad its working now. What did you do to fix it?