Adding several data on a specific column on a table












0















I am trying to create a table that can store a "Training Information" data. The code below is working (see sample result below) however, it can only add one data at a time.



enter image description here



What I would like to happen is to be able to add several data on my "Attendees" column only, while the other columns will contain the same data since it is the same training.



Any ideas?



Dim ws As Worksheet
Dim lo As ListObject
Dim lr As ListRow
Set ws = Sheets("Trainings")
ws.Unprotect "321321"
Set lo = ws.ListObjects(1)
Set lr = lo.ListRows.Add
lr.Range(1, 1).Value = UCase(title.Value)
lr.Range(1, 2).Value = UCase(Date.Value)
lr.Range(1, 3).Value = UCase(Venue.Value)
lr.Range(1, 4).Value = UCase(VenueAdd.Value)
lr.Range(1, 5).Value = UCase(Attendees.Value)









share|improve this question

























  • So what is wrong with your code? Any errors? If so which and where? What does your code vs. what did you expect from your code? Please also show the definitions of your variables, it's unclear what title.Value is because title is not declared. Also don't use Date as variable name it is already a reserved key word of VBA.

    – Pᴇʜ
    Nov 21 '18 at 8:00











  • @Pᴇʜ There are no errors. However, I do not know how to code adding multiple names on the column "Attendees" from my form. title.value is a textbox from my form which is user defined. I'm thinking using a listbox to gather the data for my "Attendees" column, however I do not know how I can transfer it while at the same time populating the other columns with the same data.

    – Kelvs
    Nov 21 '18 at 8:04













  • I don't see the problem. You fill your 5 text boxes with data and press the "insert" button that runs the code above. Then you change the name of the attendee and press the insert button again. This should add the another line with the same data but a different attendee. (to be continued …).

    – Pᴇʜ
    Nov 21 '18 at 8:10
















0















I am trying to create a table that can store a "Training Information" data. The code below is working (see sample result below) however, it can only add one data at a time.



enter image description here



What I would like to happen is to be able to add several data on my "Attendees" column only, while the other columns will contain the same data since it is the same training.



Any ideas?



Dim ws As Worksheet
Dim lo As ListObject
Dim lr As ListRow
Set ws = Sheets("Trainings")
ws.Unprotect "321321"
Set lo = ws.ListObjects(1)
Set lr = lo.ListRows.Add
lr.Range(1, 1).Value = UCase(title.Value)
lr.Range(1, 2).Value = UCase(Date.Value)
lr.Range(1, 3).Value = UCase(Venue.Value)
lr.Range(1, 4).Value = UCase(VenueAdd.Value)
lr.Range(1, 5).Value = UCase(Attendees.Value)









share|improve this question

























  • So what is wrong with your code? Any errors? If so which and where? What does your code vs. what did you expect from your code? Please also show the definitions of your variables, it's unclear what title.Value is because title is not declared. Also don't use Date as variable name it is already a reserved key word of VBA.

    – Pᴇʜ
    Nov 21 '18 at 8:00











  • @Pᴇʜ There are no errors. However, I do not know how to code adding multiple names on the column "Attendees" from my form. title.value is a textbox from my form which is user defined. I'm thinking using a listbox to gather the data for my "Attendees" column, however I do not know how I can transfer it while at the same time populating the other columns with the same data.

    – Kelvs
    Nov 21 '18 at 8:04













  • I don't see the problem. You fill your 5 text boxes with data and press the "insert" button that runs the code above. Then you change the name of the attendee and press the insert button again. This should add the another line with the same data but a different attendee. (to be continued …).

    – Pᴇʜ
    Nov 21 '18 at 8:10














0












0








0








I am trying to create a table that can store a "Training Information" data. The code below is working (see sample result below) however, it can only add one data at a time.



enter image description here



What I would like to happen is to be able to add several data on my "Attendees" column only, while the other columns will contain the same data since it is the same training.



Any ideas?



Dim ws As Worksheet
Dim lo As ListObject
Dim lr As ListRow
Set ws = Sheets("Trainings")
ws.Unprotect "321321"
Set lo = ws.ListObjects(1)
Set lr = lo.ListRows.Add
lr.Range(1, 1).Value = UCase(title.Value)
lr.Range(1, 2).Value = UCase(Date.Value)
lr.Range(1, 3).Value = UCase(Venue.Value)
lr.Range(1, 4).Value = UCase(VenueAdd.Value)
lr.Range(1, 5).Value = UCase(Attendees.Value)









share|improve this question
















I am trying to create a table that can store a "Training Information" data. The code below is working (see sample result below) however, it can only add one data at a time.



enter image description here



What I would like to happen is to be able to add several data on my "Attendees" column only, while the other columns will contain the same data since it is the same training.



Any ideas?



Dim ws As Worksheet
Dim lo As ListObject
Dim lr As ListRow
Set ws = Sheets("Trainings")
ws.Unprotect "321321"
Set lo = ws.ListObjects(1)
Set lr = lo.ListRows.Add
lr.Range(1, 1).Value = UCase(title.Value)
lr.Range(1, 2).Value = UCase(Date.Value)
lr.Range(1, 3).Value = UCase(Venue.Value)
lr.Range(1, 4).Value = UCase(VenueAdd.Value)
lr.Range(1, 5).Value = UCase(Attendees.Value)






excel vba excel-vba






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited Nov 21 '18 at 7:57









Pᴇʜ

23.6k62951




23.6k62951










asked Nov 21 '18 at 7:13









KelvsKelvs

146




146













  • So what is wrong with your code? Any errors? If so which and where? What does your code vs. what did you expect from your code? Please also show the definitions of your variables, it's unclear what title.Value is because title is not declared. Also don't use Date as variable name it is already a reserved key word of VBA.

    – Pᴇʜ
    Nov 21 '18 at 8:00











  • @Pᴇʜ There are no errors. However, I do not know how to code adding multiple names on the column "Attendees" from my form. title.value is a textbox from my form which is user defined. I'm thinking using a listbox to gather the data for my "Attendees" column, however I do not know how I can transfer it while at the same time populating the other columns with the same data.

    – Kelvs
    Nov 21 '18 at 8:04













  • I don't see the problem. You fill your 5 text boxes with data and press the "insert" button that runs the code above. Then you change the name of the attendee and press the insert button again. This should add the another line with the same data but a different attendee. (to be continued …).

    – Pᴇʜ
    Nov 21 '18 at 8:10



















  • So what is wrong with your code? Any errors? If so which and where? What does your code vs. what did you expect from your code? Please also show the definitions of your variables, it's unclear what title.Value is because title is not declared. Also don't use Date as variable name it is already a reserved key word of VBA.

    – Pᴇʜ
    Nov 21 '18 at 8:00











  • @Pᴇʜ There are no errors. However, I do not know how to code adding multiple names on the column "Attendees" from my form. title.value is a textbox from my form which is user defined. I'm thinking using a listbox to gather the data for my "Attendees" column, however I do not know how I can transfer it while at the same time populating the other columns with the same data.

    – Kelvs
    Nov 21 '18 at 8:04













  • I don't see the problem. You fill your 5 text boxes with data and press the "insert" button that runs the code above. Then you change the name of the attendee and press the insert button again. This should add the another line with the same data but a different attendee. (to be continued …).

    – Pᴇʜ
    Nov 21 '18 at 8:10

















So what is wrong with your code? Any errors? If so which and where? What does your code vs. what did you expect from your code? Please also show the definitions of your variables, it's unclear what title.Value is because title is not declared. Also don't use Date as variable name it is already a reserved key word of VBA.

– Pᴇʜ
Nov 21 '18 at 8:00





So what is wrong with your code? Any errors? If so which and where? What does your code vs. what did you expect from your code? Please also show the definitions of your variables, it's unclear what title.Value is because title is not declared. Also don't use Date as variable name it is already a reserved key word of VBA.

– Pᴇʜ
Nov 21 '18 at 8:00













@Pᴇʜ There are no errors. However, I do not know how to code adding multiple names on the column "Attendees" from my form. title.value is a textbox from my form which is user defined. I'm thinking using a listbox to gather the data for my "Attendees" column, however I do not know how I can transfer it while at the same time populating the other columns with the same data.

– Kelvs
Nov 21 '18 at 8:04







@Pᴇʜ There are no errors. However, I do not know how to code adding multiple names on the column "Attendees" from my form. title.value is a textbox from my form which is user defined. I'm thinking using a listbox to gather the data for my "Attendees" column, however I do not know how I can transfer it while at the same time populating the other columns with the same data.

– Kelvs
Nov 21 '18 at 8:04















I don't see the problem. You fill your 5 text boxes with data and press the "insert" button that runs the code above. Then you change the name of the attendee and press the insert button again. This should add the another line with the same data but a different attendee. (to be continued …).

– Pᴇʜ
Nov 21 '18 at 8:10





I don't see the problem. You fill your 5 text boxes with data and press the "insert" button that runs the code above. Then you change the name of the attendee and press the insert button again. This should add the another line with the same data but a different attendee. (to be continued …).

– Pᴇʜ
Nov 21 '18 at 8:10












0






active

oldest

votes











Your Answer






StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});


}
});














draft saved

draft discarded


















StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53406952%2fadding-several-data-on-a-specific-column-on-a-table%23new-answer', 'question_page');
}
);

Post as a guest















Required, but never shown

























0






active

oldest

votes








0






active

oldest

votes









active

oldest

votes






active

oldest

votes
















draft saved

draft discarded




















































Thanks for contributing an answer to Stack Overflow!


  • Please be sure to answer the question. Provide details and share your research!

But avoid



  • Asking for help, clarification, or responding to other answers.

  • Making statements based on opinion; back them up with references or personal experience.


To learn more, see our tips on writing great answers.




draft saved


draft discarded














StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53406952%2fadding-several-data-on-a-specific-column-on-a-table%23new-answer', 'question_page');
}
);

Post as a guest















Required, but never shown





















































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown

































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown







這個網誌中的熱門文章

Xamarin.form Move up view when keyboard appear

Post-Redirect-Get with Spring WebFlux and Thymeleaf

Anylogic : not able to use stopDelay()