Goedemorgen,
Ik hoop dat jullie me kunnen helpen met het volgende probleem.
Ik heb een userform gemaakt in VBA, met ongeveer 120 invulvelden. De code ziet er als volgt uit:
Sheets("Database").Range("Data_Start").Offset(TargetRow, 0).Value = Txt_Customer_Name.Text
Sheets("Database").Range("Data_Start").Offset(TargetRow, 1).Value = Txt_Account_Class
Sheets("Database").Range("Data_Start").Offset(TargetRow, 2).Value = Txt_Business_Area.Text
Sheets("Database").Range("Data_Start").Offset(TargetRow, 3).Value = Txt_End_User.Text
Sheets("Database").Range("Data_Start").Offset(TargetRow, 4).Value = Txt_Region.Text
Sheets("Database").Range("Data_Start").Offset(TargetRow, 5).Value = Txt_Country.Text
Sheets("Database").Range("Data_Start").Offset(TargetRow, 6).Value = Txt_Location.Text
Sheets("Database").Range("Data_Start").Offset(TargetRow, 7).Value = Txt_Contactperson.Text
Sheets("Database").Range("Data_Start").Offset(TargetRow, 8).Value = Txt_Contact_Position.Text
Nu verwacht ik dat deze codes ook makkelijker in een loop gebruikt kunnen worden. De cijfers voor de kolommen (dikgedrukt) lopen dus door tot ongeveer 120.
Ik heb echter zelf geen idee hoe ik dit het beste kan doen aangezien ik alle tekstvakken een naam heb gegeven waardoor ze makkelijk te onderscheiden zijn in de programmacode. Heeft iemand een idee?
Ik hoop dat jullie me kunnen helpen met het volgende probleem.
Ik heb een userform gemaakt in VBA, met ongeveer 120 invulvelden. De code ziet er als volgt uit:
Sheets("Database").Range("Data_Start").Offset(TargetRow, 0).Value = Txt_Customer_Name.Text
Sheets("Database").Range("Data_Start").Offset(TargetRow, 1).Value = Txt_Account_Class
Sheets("Database").Range("Data_Start").Offset(TargetRow, 2).Value = Txt_Business_Area.Text
Sheets("Database").Range("Data_Start").Offset(TargetRow, 3).Value = Txt_End_User.Text
Sheets("Database").Range("Data_Start").Offset(TargetRow, 4).Value = Txt_Region.Text
Sheets("Database").Range("Data_Start").Offset(TargetRow, 5).Value = Txt_Country.Text
Sheets("Database").Range("Data_Start").Offset(TargetRow, 6).Value = Txt_Location.Text
Sheets("Database").Range("Data_Start").Offset(TargetRow, 7).Value = Txt_Contactperson.Text
Sheets("Database").Range("Data_Start").Offset(TargetRow, 8).Value = Txt_Contact_Position.Text
Nu verwacht ik dat deze codes ook makkelijker in een loop gebruikt kunnen worden. De cijfers voor de kolommen (dikgedrukt) lopen dus door tot ongeveer 120.
Ik heb echter zelf geen idee hoe ik dit het beste kan doen aangezien ik alle tekstvakken een naam heb gegeven waardoor ze makkelijk te onderscheiden zijn in de programmacode. Heeft iemand een idee?