Adding several data on a specific column on a table
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.
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
add a comment |
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.
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
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 whattitle.Value
is becausetitle
is not declared. Also don't useDate
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
add a comment |
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.
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
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.
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
excel vba excel-vba
edited Nov 21 '18 at 7:57
Pᴇʜ
22.1k42750
22.1k42750
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 whattitle.Value
is becausetitle
is not declared. Also don't useDate
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
add a comment |
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 whattitle.Value
is becausetitle
is not declared. Also don't useDate
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
add a comment |
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
});
}
});
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
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
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.
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
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
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
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
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 becausetitle
is not declared. Also don't useDate
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