Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Using Forms for Input

0 views
Skip to first unread message

RussellT

unread,
Jan 4, 2010, 4:04:01 PM1/4/10
to
Thanks in advance for the feedback. I have VBA form that I've created to
display data to the screen using the following code (code only shows of few
of the columns of data being loaded to form).

Public Sub LoadLongInfo3(ByVal selectedProject As String)
Dim databaseRow As Long
Set reportsSheet = Sheets("Reports")
Set resultsSheet = Sheets("Results")
Set devdataSheet = Sheets("DevData")

'Find DataRows To Be Loaded Into Form
devdataSheet.Activate
devdataSheet.Cells.Find(What:=selectedProject,
After:=devdataSheet.Cells(1, 1), LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=True).Activate
databaseRow = ActiveCell.Row
'Load Data Into Form
lblConcept.Caption = devdataSheet.Cells(databaseRow, 5)
lblCity.Caption = devdataSheet.Cells(databaseRow, 7)
lblDevName.Caption = devdataSheet.Cells(databaseRow, 2)
lblMasterPlan.Caption = devdataSheet.Cells(databaseRow, 10)
lblSubmarket.Caption = devdataSheet.Cells(databaseRow, 8)
lblRegion.Caption = devdataSheet.Cells(databaseRow, 9)
lblTBM.Caption = devdataSheet.Cells(databaseRow, 16)
lblTBColRow.Caption = devdataSheet.Cells(databaseRow, 17)
lblZip.Caption = devdataSheet.Cells(databaseRow, 18)
lblLocation.Caption = devdataSheet.Cells(databaseRow, 19)
End Sub

To update the data I currently simply go to the datasheet and work my way
around it changing cells as need, however there are over 150 columns on the
sheet. Is there a way I can nodify this code to edit rows on the orignial
source datasheet?

0 new messages