Hello,

I have created excel project database using excel Userforms. First request form capture the customer inputs and store in Request_database sheet, which contains 12 columns (A to L). Now I frequently update Hold Status column manually.

Now I created a editable User form which will read all the data by the help of list index, but when I update data it will not take on same row its added to next row because of .offset code, I need to replace code which will update on the same row.

Please Help on this.

Thanks,
prasad


Private Sub cbocompdate_Change()
cbocompdate.Value = Format(Me.cbocompdate.Value, "dd mmm,yyyy")
End Sub



Private Sub cboend_Change()
cboend.Value = Format(Me.cboend.Value, "dd mmm,yyyy")
End Sub

Private Sub cboread_Change()
cboread.ListIndex = cboeco.ListIndex
End Sub

Private Sub cboreq_Change()
cboreq.Value = Format(Me.cboreq.Value, "dd mmm,yyyy")
End Sub

Private Sub cboserial_Change()
cboeco.ListIndex = cboserial.ListIndex
cborequester.ListIndex = cboserial.ListIndex
cboreq.ListIndex = cboserial.ListIndex
cbosubsystem.ListIndex = cboserial.ListIndex
cbocompdate.ListIndex = cboserial.ListIndex
cbodesigner.ListIndex = cboserial.ListIndex
cbostart.ListIndex = cboserial.ListIndex
cboend.ListIndex = cboserial.ListIndex
cboestimate.ListIndex = cboserial.ListIndex

End Sub




Private Sub cboeco_Change()
cboserial.ListIndex = cboeco.ListIndex
cborequester.ListIndex = cboeco.ListIndex
cboreq.ListIndex = cboeco.ListIndex
cbosubsystem.ListIndex = cboeco.ListIndex
cbocompdate.ListIndex = cboeco.ListIndex
cboread.ListIndex = cboeco.ListIndex
cbodesigner.ListIndex = cboeco.ListIndex
cbostart.ListIndex = cboeco.ListIndex
cboend.ListIndex = cboeco.ListIndex
cboestimate.ListIndex = cboeco.ListIndex

End Sub

Private Sub cbostart_Change()
cbostart.Value = Format(Me.cbostart.Value, "dd mmm,yyyy")
End Sub

Private Sub Status_Hold_Click()
Dim Rowcount As Long
Dim ctl As Control
'check user input

MsgBox "Please Confirm on the Entries"

'write data to worksheet
Rowcount = Worksheets("cadexecution").Range("A1").CurrentRegion.Rows.Count
With Worksheets("cadexecution").Range("A1")

.Offset(Rowcount, 8).Value = Me.txthold.Value

End WithConfiguration: Windows XP Firefox 2.0.0.20