Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Using Forms for Input
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? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to input pictures automatically based on cell input? | Excel Worksheet Functions | |||
xls input forms on the web | Excel Discussion (Misc queries) | |||
input in number form is being multiplied by 1000 when i input. | Excel Discussion (Misc queries) | |||
How do I add input data in the input ranges in drop down boxes. | Excel Discussion (Misc queries) | |||
=SUMIF(Input!H2:H718,AZ19,Input!E2:E685)AND(IF | Excel Worksheet Functions |