Logo 
Search:

MS Office Answers

Ask Question   UnAnswered
Home » Forum » MS Office       RSS Feeds
  Question Asked By: Howard Dixon   on Nov 14 In MS Office Category.

  
Question Answered By: Zachary Larson   on Nov 14

I did debugging and stepped through while I was waiting for your
response and I found RowNumber was not the textbox name... it was
SSRowNumber... once I changed this on all the navigation buttons,
then they started working fine. I already use option explicit to
ensure no typos, etc.... and I will go back through the code again
and if I understand you correctly in regards to the "ws." notation...
I have not used that, as I said I am still quite a novice... so if I
understand it correctly, then in the code say for saving data in the
PutData code, I would need to use Worksheets("CallerInfo").Cells(R,
1) = strProtocolID vice Cells(R, 1) = strProtocolID... is this
correct?

Private Sub PutData()

Dim R As Long

If IsNumeric(SSRowNumber.Text) Then
R = CLng(SSRowNumber.Text)

Else
MsgBox "Illegal row number"
Exit Sub

End If

If R > 1 And R <= LastRow Then
strProtocolID = Worksheets("IVRSInfoSheet").Range("A2")
Cells(R, 1) = strProtocolID
Cells(R, 2) = txtSiteID.Text
Cells(R, 3) = StrConv(txtPIFirstName, vbProperCase)
Cells(R, 4) = StrConv(txtPILastName, vbProperCase)
Cells(R, 5) = txtPIPhoneNumber
Cells(R, 6) = txtPIFaxNumber
Cells(R, 7) = txtPIEmailAddress
Cells(R, 8) = txtMaxSiteScreenAmount
Cells(R, 9) = txtMaxSiteRandAmount
ActiveWorkbook.Save
disablesave

Else
MsgBox "Invalid row number"

End If

Share: 

 

This Question has 14 more answer(s). View Complete Question Thread

 
Didn't find what you were looking for? Find more on Multi-tab form Or get search suggestion and latest updates.


Tagged: