Change the values of the whole column

[sanderx01]

Hi Guys,

Good day!

I just want to ask, because I have this problem.

I want to change the value of the whole column by entering a value from the other cell.

Example:

If I input 1 to Cell B1, the whole value of Column A1:A25 will change its values.
Again, If I input 2 to cell B1, the whole value of Column A1:A25 will change its values.

Thank you in advance!

Alexander

 

[arthurbr]

And to what should the values be changed?

 

[My Aswer Is This]

Try this:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:A" & Lastrow).Value = Target.Value
End If
End Sub

 

[sanderx01]

And to what should the values be changed?

Example:

When I input 1 at B1 Cell, that is the value for the column A.

[TABLE="width: 200"]
<tbody>[TR]
[TD][/TD]
[TD]A[/TD]
[TD]B[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]0[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]1[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]2
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]10[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]12[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]6[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]7[/TD]
[TD]2[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]8[/TD]
[TD]1[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]9[/TD]
[TD]0[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]10[/TD]
[TD]0[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

Then, when I input 2 at B1 Cell, that is not the new value for Column A

[TABLE="width: 200"]
<tbody>[TR]
[TD][/TD]
[TD]A[/TD]
[TD]B[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]0[/TD]
[TD]2[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]3[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]3[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]8[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]9[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]13[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]7[/TD]
[TD]14[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]8[/TD]
[TD]8[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]9[/TD]
[TD]7[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]10[/TD]
[TD]3[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]


I hope you can help me with this.

Kind Regards!

Alexander

 

[My Aswer Is This]

So my script did not work I assume.

I do not understand what you want and post #4 did not help.
Are you wanting a Vba solution?

 

[sanderx01]

Sorry, I did not try it yet.

Once I am done with it. I'll try to feed you back.

Thank you for helping me out. Really appreciated.

Cheers!