VBA to Capture info from form and place in Spreadsheet

[trevmac4]

Hi I am new to VBA and would like assistance in completing my code below. I am trying to create a spreadsheet on Customers and the first form would allow user too input new customer and I would also like to build from this a form and code to allow user to 'Edit' customer information. Any and all assistance is appreciated.

This below code is all from UserForm1 and ranges are in worksheet "Planning". Button to load form, 'CommandButton1', is in "Main" worksheet

Private Sub CommandButton1_Click()
'OK
'Add info to next row if Text Box 1 not empty
'unload UserForm1

End Sub

Private Sub CommandButton2_Click()
'MainPage
'Unload UserForm1 and GoTo "Main" worksheet
End Sub

Private Sub CommandButton3_Click()
'Add New
'Unload UserForm1, Clear UserForm1
End Sub

Private Sub ListBox1_Click()
'Relationship
'Select from "Existing", "Prospect", "COI"
'Range BO401:B900
End Sub

Private Sub ListBox2_Click()
'Business Sector
'Select from "Feedlot", "Dairy", "Poultry", "Swine", "Agri-Business", "Grain", "Greenhouse", "Specialty Crop", "Fruit", "Other"
'Range BJ401:BJ900
End Sub

Private Sub ListBox3_Click()
'Opportunity Stage
'Select from "Lead", "Qualifying", "Qualified", "Discussion Paper", "Commitment Letter", "Business Won", "Business Lost"
'Range' BS401:BS900
End Sub

Private Sub ListBox4_Click()
'Existing Stage
'Select from "Review", "New Facility", "Increase", "Discussion Paper", "Commitment", "Business Won", "Business Lost"
'Range BK401:BK900
End Sub

Private Sub ListBox5_Click()
'Customer Size
'Select from "Core", "Growth", "Structured"
'Range BQ401:BQ900
End Sub

Private Sub ListBox6_Click()
'Customer Role
'Select from "Owner/President", "Director", "Manager", "Consultant", "Other"
'Range BI401:BI900
End Sub

Private Sub TextBox1_Change()
'Customer Name
'Range BG401:BG900

End Sub

Private Sub TextBox11_Change()


End Sub

Private Sub TextBox12_Change()


End Sub

Private Sub TextBox13_Change()

End Sub

Private Sub TextBox15_Change()
'Opportunity ($)
'Range BN401:BN900

End Sub

Private Sub TextBox2_Change()
'Notes
'Range BU401:BU900

End Sub

Private Sub TextBox4_Change()
'Customer Name
'Range BH401:BH900

End Sub

Private Sub TextBox5_Change()
'Opportunity Name
'Range BM401:BM900

End Sub

Private Sub TextBox6_Change()
'Current Facility ($)
'Range BL401:BL900

End Sub

Private Sub TextBox7_Change()
'Current Facility
'Range BK401:BK900

End Sub

Private Sub TextBox8_Change()

End Sub

Private Sub UserForm_Click()

End Sub

 

[Norie]

Do you have any code?

All of what you've posted is commented out.

 

[trevmac4]

HI Yaren,
Hope this shows up, thank you!

Private Sub CommandButton1_Click()
'OK
'Add info to next row if Text Box 1 not ""
'unload userform1

End Sub

Private Sub CommandButton2_Click()
'MainPage
'Unload UserForm1 and GoTo "Main" worksheet
End Sub

Private Sub CommandButton3_Click()
'Add New
'Unload UserForm1, Clear UserForm1
End Sub

Private Sub ListBox1_Click()
'Relationship
'Select from "Existing", "Prospect", "COI"
'Range BO401:B900
End Sub

Private Sub ListBox2_Click()
'Business Sector
'Select from "Feedlot", "Dairy", "Poultry", "Swine", "Agri-Business", "Grain", "Greenhouse", "Specialty Crop", "Fruit", "Other"
'Range BJ401:BJ900
End Sub

Private Sub ListBox3_Click()
'Opportunity Stage
'Select from "Lead", "Qualifying", "Qualified", "Discussion Paper", "Commitment Letter", "Business Won", "Business Lost"
'Range' BS401:BS900
End Sub

Private Sub ListBox4_Click()
'Existing Stage
'Select from "Review", "New Facility", "Increase", "Discussion Paper", "Commitment", "Business Won", "Business Lost"
'Range BK401:BK900
End Sub

Private Sub ListBox5_Click()
'Customer Size
'Select from "Core", "Growth", "Structured"
'Range BQ401:BQ900
End Sub

Private Sub ListBox6_Click()
'Customer Role
'Select from "Owner/President", "Director", "Manager", "Consultant", "Other"
'Range BI401:BI900
End Sub

Private Sub TextBox1_Change()
'Customer Name
'Range BG401:BG900

End Sub

Private Sub TextBox11_Change()


End Sub

Private Sub TextBox12_Change()


End Sub

Private Sub TextBox13_Change()

End Sub

Private Sub TextBox15_Change()
'Opportunity ($)
'Range BN401:BN900

End Sub

Private Sub TextBox2_Change()
'Notes
'Range BU401:BU900

End Sub

Private Sub TextBox4_Change()
'Customer Name
'Range BH401:BH900

End Sub

Private Sub TextBox5_Change()
'Opportunity Name
'Range BM401:BM900

End Sub

Private Sub TextBox6_Change()
'Current Facility ($)
'Range BL401:BL900

End Sub

Private Sub TextBox7_Change()
'Current Facility
'Range BK401:BK900

End Sub

Private Sub TextBox8_Change()

End Sub

Private Sub UserForm_Click()

End Sub

 

[trevmac4]

Hi Yaren,
Any luck in helping me on the code? Thanks again,

Trevor