Styjun

Create Array from list of indices/values

Where are the rest of the Dwarves of Nidavellir?

Optimising the Selection of MaxValue in Association

Why is Google approaching my VPS machine?

What were the problems on the Apollo 11 lunar module?

Why is the total probability theorem expressed in this way?

How could an animal "smell" carbon monoxide?

Is it okay for a chapter's POV to shift as it progresses?

Using SPID in DB Tables (instead of Table Variable)

What is the meaning of [[:space:]] in bash?

How can electric field be defined as force per charge, if the charge makes its own, singular electric field?

Is there an English equivalent for "Les carottes sont cuites", while keeping the vegetable reference?

Operation Unz̖̬̜̺̬a͇͖̯͔͉l̟̭g͕̝̼͇͓̪͍o̬̝͍̹̻

Why doesn't philosophy have higher standards for its arguments?

Why does Eliyahu appear at a brit milah?

What details should I consider before agreeing for part of my salary to be 'retained' by employer?

Is passive Investigation essentially truesight against illusions?

What happens if there is no space for entry stamp in the passport for US visa?

At which point can a system be compromised when downloading archived data from an untrusted source?

How many bits in the resultant hash will change, if the x bits are changed in its the original input?

How can a drink contain 1.8 kcal energy while 0 g fat/carbs/protein?

Improve quality of image bars

How would you say "Sorry, that was a mistake on my part"?

How Can I Process Untrusted Data Sources Securely?

How do i add new information into the same cell?

How do I create an Excel (.XLS and .XLSX) file in C# without installing Microsoft Office?Take all cells in an Excel Worksheet in as String (VBA)How to increase only last digit of a serial number string in Excel VBA?How to use Regular Expressions (Regex) in Microsoft Excel both in-cell and loopsVBA Copying cells to another worksheet where cells have the same valueTransposing and inserting cells at the same timeVBA Macro - I want to change each cell value to a new one in a specific range… how to do it? ExcelAccess to Excel VBA Loop Running Very SlowlyHow to replace an InputBox with a predifned range of cells in Excel VBAHow to make an noncontiguous range of cells work for every cell referenced

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;

1

I want to add more than one information in just one cell but i haven't figured out how. i don't want the information to change, i want the cell to keep both informations written.

Basically i have a tick box for each line and a button that will instantly click only the positive outcomes. after that, it prompts the user for a serial number which will be written on a cell. the number is unique for each person and i want to keep a record of more than 1 number so i know everyone who took a certain outcome.
example is person number 44 takes an outcome, "44" gets written on the cell. then person number 55 also takes the same outcome, "55" gets written alongside the already written 44 instead of replacing it.

VarNUMCB = InputBox("Insert User ID Number")

If Range("h3").Value >= 0 Then
 Range("j3").Value = VarNUMCB
Else
End If

excel vba

share|improve this question

edited Mar 26 at 9:49

Pᴇʜ

29.5k66 gold badges3030 silver badges5555 bronze badges

asked Mar 26 at 9:13

user163342user163342

1788 bronze badges

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Range("j3").Value = Range("j3").Value & vbnewline & VarNUMCB
  
  – Siddharth Rout
  Mar 26 at 9:17
  

  
  
  
  

add a comment | 

1

I want to add more than one information in just one cell but i haven't figured out how. i don't want the information to change, i want the cell to keep both informations written.

Basically i have a tick box for each line and a button that will instantly click only the positive outcomes. after that, it prompts the user for a serial number which will be written on a cell. the number is unique for each person and i want to keep a record of more than 1 number so i know everyone who took a certain outcome.
example is person number 44 takes an outcome, "44" gets written on the cell. then person number 55 also takes the same outcome, "55" gets written alongside the already written 44 instead of replacing it.

VarNUMCB = InputBox("Insert User ID Number")

If Range("h3").Value >= 0 Then
 Range("j3").Value = VarNUMCB
Else
End If

excel vba

share|improve this question

edited Mar 26 at 9:49

Pᴇʜ

29.5k66 gold badges3030 silver badges5555 bronze badges

asked Mar 26 at 9:13

user163342user163342

1788 bronze badges

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Range("j3").Value = Range("j3").Value & vbnewline & VarNUMCB
  
  – Siddharth Rout
  Mar 26 at 9:17
  

  
  
  
  

add a comment | 

I want to add more than one information in just one cell but i haven't figured out how. i don't want the information to change, i want the cell to keep both informations written.

Basically i have a tick box for each line and a button that will instantly click only the positive outcomes. after that, it prompts the user for a serial number which will be written on a cell. the number is unique for each person and i want to keep a record of more than 1 number so i know everyone who took a certain outcome.
example is person number 44 takes an outcome, "44" gets written on the cell. then person number 55 also takes the same outcome, "55" gets written alongside the already written 44 instead of replacing it.

VarNUMCB = InputBox("Insert User ID Number")

If Range("h3").Value >= 0 Then
 Range("j3").Value = VarNUMCB
Else
End If

excel vba

share|improve this question

edited Mar 26 at 9:49

Pᴇʜ

29.5k66 gold badges3030 silver badges5555 bronze badges

asked Mar 26 at 9:13

user163342user163342

1788 bronze badges

VarNUMCB = InputBox("Insert User ID Number")

If Range("h3").Value >= 0 Then
 Range("j3").Value = VarNUMCB
Else
End If

share|improve this question

edited Mar 26 at 9:49

Pᴇʜ

29.5k66 gold badges3030 silver badges5555 bronze badges

asked Mar 26 at 9:13

user163342user163342

1788 bronze badges

share|improve this question

edited Mar 26 at 9:49

Pᴇʜ

29.5k66 gold badges3030 silver badges5555 bronze badges

asked Mar 26 at 9:13

user163342user163342

1788 bronze badges

edited Mar 26 at 9:49

Pᴇʜ

29.5k66 gold badges3030 silver badges5555 bronze badges

edited Mar 26 at 9:49

Pᴇʜ

29.5k66 gold badges3030 silver badges5555 bronze badges

asked Mar 26 at 9:13

user163342user163342

1788 bronze badges

asked Mar 26 at 9:13

user163342user163342

1788 bronze badges

2 Answers
2

active

oldest

votes

0

If you want to amend a string to a content in a cell, just do so with the "&" character. Furthermore, you can define a delimeter separating the two entries (some specific character or a new line). In the below example I use ";" as the delimeter

VarNUMCB = InputBox("Insert User ID Number")

If Range("h3").Value >= 0 Then 
 Range("j3").Value = Range("j3").Value & ";" & VarNUMCB 
Else
 ...
End If

share|improve this answer

edited Mar 26 at 10:24

answered Mar 26 at 9:19

Kürsat AydinliKürsat Aydinli

9666 bronze badges

add a comment | 

0

Make sure that you declare "VarNUMCB" variable. You could try:

Option Explicit

Sub trst()

 With ThisWorkbook.Worksheets("Sheet1") '<- Refer to sheet you are coding. Change sheet name if needed

 VarNUMCB = InputBox("Insert User ID Number")

 If .Range("H3").Value >= 0 Then '<- Use "." before range to make sure that your are targeting the sheet used in the "With statement"
 .Range("J3").Value = .Range("J3").Value & " " & VarNUMCB '<- J3 value with a following by a space and the value VarNUMCB
 Else
 End If

 End With

End Sub

share|improve this answer

answered Mar 26 at 9:29

Error 1004Error 1004

5,14022 gold badges88 silver badges2525 bronze badges

add a comment | 

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

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

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f55353416%2fhow-do-i-add-new-information-into-the-same-cell%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

0

If you want to amend a string to a content in a cell, just do so with the "&" character. Furthermore, you can define a delimeter separating the two entries (some specific character or a new line). In the below example I use ";" as the delimeter

VarNUMCB = InputBox("Insert User ID Number")

If Range("h3").Value >= 0 Then 
 Range("j3").Value = Range("j3").Value & ";" & VarNUMCB 
Else
 ...
End If

share|improve this answer

edited Mar 26 at 10:24

answered Mar 26 at 9:19

Kürsat AydinliKürsat Aydinli

9666 bronze badges

add a comment | 

0

If you want to amend a string to a content in a cell, just do so with the "&" character. Furthermore, you can define a delimeter separating the two entries (some specific character or a new line). In the below example I use ";" as the delimeter

VarNUMCB = InputBox("Insert User ID Number")

If Range("h3").Value >= 0 Then 
 Range("j3").Value = Range("j3").Value & ";" & VarNUMCB 
Else
 ...
End If

share|improve this answer

edited Mar 26 at 10:24

answered Mar 26 at 9:19

Kürsat AydinliKürsat Aydinli

9666 bronze badges

add a comment | 

If you want to amend a string to a content in a cell, just do so with the "&" character. Furthermore, you can define a delimeter separating the two entries (some specific character or a new line). In the below example I use ";" as the delimeter

VarNUMCB = InputBox("Insert User ID Number")

If Range("h3").Value >= 0 Then 
 Range("j3").Value = Range("j3").Value & ";" & VarNUMCB 
Else
 ...
End If

share|improve this answer

edited Mar 26 at 10:24

answered Mar 26 at 9:19

Kürsat AydinliKürsat Aydinli

9666 bronze badges

VarNUMCB = InputBox("Insert User ID Number")

If Range("h3").Value >= 0 Then 
 Range("j3").Value = Range("j3").Value & ";" & VarNUMCB 
Else
 ...
End If

share|improve this answer

edited Mar 26 at 10:24

answered Mar 26 at 9:19

Kürsat AydinliKürsat Aydinli

9666 bronze badges

answered Mar 26 at 9:19

Kürsat AydinliKürsat Aydinli

9666 bronze badges

answered Mar 26 at 9:19

Kürsat AydinliKürsat Aydinli

9666 bronze badges

0

Make sure that you declare "VarNUMCB" variable. You could try:

Option Explicit

Sub trst()

 With ThisWorkbook.Worksheets("Sheet1") '<- Refer to sheet you are coding. Change sheet name if needed

 VarNUMCB = InputBox("Insert User ID Number")

 If .Range("H3").Value >= 0 Then '<- Use "." before range to make sure that your are targeting the sheet used in the "With statement"
 .Range("J3").Value = .Range("J3").Value & " " & VarNUMCB '<- J3 value with a following by a space and the value VarNUMCB
 Else
 End If

 End With

End Sub

share|improve this answer

answered Mar 26 at 9:29

Error 1004Error 1004

5,14022 gold badges88 silver badges2525 bronze badges

add a comment | 

0

Make sure that you declare "VarNUMCB" variable. You could try:

Option Explicit

Sub trst()

 With ThisWorkbook.Worksheets("Sheet1") '<- Refer to sheet you are coding. Change sheet name if needed

 VarNUMCB = InputBox("Insert User ID Number")

 If .Range("H3").Value >= 0 Then '<- Use "." before range to make sure that your are targeting the sheet used in the "With statement"
 .Range("J3").Value = .Range("J3").Value & " " & VarNUMCB '<- J3 value with a following by a space and the value VarNUMCB
 Else
 End If

 End With

End Sub

share|improve this answer

answered Mar 26 at 9:29

Error 1004Error 1004

5,14022 gold badges88 silver badges2525 bronze badges

add a comment | 

Make sure that you declare "VarNUMCB" variable. You could try:

Option Explicit

Sub trst()

 With ThisWorkbook.Worksheets("Sheet1") '<- Refer to sheet you are coding. Change sheet name if needed

 VarNUMCB = InputBox("Insert User ID Number")

 If .Range("H3").Value >= 0 Then '<- Use "." before range to make sure that your are targeting the sheet used in the "With statement"
 .Range("J3").Value = .Range("J3").Value & " " & VarNUMCB '<- J3 value with a following by a space and the value VarNUMCB
 Else
 End If

 End With

End Sub

share|improve this answer

answered Mar 26 at 9:29

Error 1004Error 1004

5,14022 gold badges88 silver badges2525 bronze badges

Option Explicit

Sub trst()

 With ThisWorkbook.Worksheets("Sheet1") '<- Refer to sheet you are coding. Change sheet name if needed

 VarNUMCB = InputBox("Insert User ID Number")

 If .Range("H3").Value >= 0 Then '<- Use "." before range to make sure that your are targeting the sheet used in the "With statement"
 .Range("J3").Value = .Range("J3").Value & " " & VarNUMCB '<- J3 value with a following by a space and the value VarNUMCB
 Else
 End If

 End With

End Sub

share|improve this answer

answered Mar 26 at 9:29

Error 1004Error 1004

5,14022 gold badges88 silver badges2525 bronze badges

answered Mar 26 at 9:29

Error 1004Error 1004

5,14022 gold badges88 silver badges2525 bronze badges

answered Mar 26 at 9:29

Error 1004Error 1004

5,14022 gold badges88 silver badges2525 bronze badges