Issue specifying worksheet

[raccoon588]

i have a user form that gathers some data. The following code continues to dumb the info onto the active sheet rather then sheet 13 (request log). i need it to populate the data on that sheet every time rather then on the active worksheet.

Dim erow As Long
erow = Worksheets("sheet13").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(erow, 1).Value = ComboBoxName.Value
Cells(erow, 2).Value = Date
Cells(erow, 3).Value = Time
Cells(erow, 4).Value = DTPicker1.Value
Cells(erow, 5).Value = DTPicker2.Value

 

[vcoolio]

Hello Raccoon588,


Try qualifying the destination sheet a little more such as:-

Dim erow As Long
Dim ws As Worksheet

Set ws = Sheets("Request Log")
erow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

ws.Cells(erow, 1).Value = ComboBoxName.Value
ws.Cells(erow, 2).Value = Date
ws.Cells(erow, 3).Value = Time
ws.Cells(erow, 4).Value = DTPicker1.Value
ws.Cells(erow, 5).Value = DTPicker2.Value

I hope that this helps.

Cheerio,
vcoolio.

 

[raccoon588]

Worked perfectly. Thank you

 

[vcoolio]

You're welcome Raccoon. I'm glad that I was able to help.

Cheerio,
vcoolio.