Populate cells

[jabersold]

Good Day

What would be the script to populate multiple cells containing different text with the text for a given cell.

Please advise.

 

[farmerscott]

Hi,

1. Can you give an example of what you want to happen? (If we can visually see what has to happen, then it is often easier to formulate an answer.)

2. what is the address of your "given cell" (eg "A1")?

3. what is the address of the cells that this information is to be pasted to? Are they the same cells all the time? Any comments on how they are chosen?

thx

Farmerscott.

 

[jabersold]

Hi,

1. Can you give an example of what you want to happen? (If we can visually see what has to happen, then it is often easier to formulate an answer.)

2. what is the address of your "given cell" (eg "A1")?

3. what is the address of the cells that this information is to be pasted to? Are they the same cells all the time? Any comments on how they are chosen?

thx

Farmerscott.

I'm pulling a report from my wms into excel to check various things like number of open orders. Then column containing the customer name may have many different name/numbers in it. The header will have the customer name in it "C3" and I want to replace all the different text in Column "B1" with the customer name out of "C3". There may only be 15 rows in b or it could be 3000 that I need to replace with the text from "C3"

 

[farmerscott]

Hi,

try this on a copy of your data. Please note the comments within the code.

Sub Change_data()
'All cells in Col C will be replaced with the value in Cell("B1"), including blanks.
Dim lr As Long


'change all "sheet1" references to the name of your sheet.

'Assumes Col C is the longest column.
lr = Worksheets("Sheet1").Cells(Rows.Count, "C").End(xlUp).Row


'Assumes a header in cell("C1").
Worksheets("Sheet1").Range("C2:C" & lr).Value = Worksheets("Sheet1").Range("B1")

End Sub

Farmerscott

 

[jabersold]

Hi,

try this on a copy of your data. Please note the comments within the code.

Sub Change_data()
'All cells in Col C will be replaced with the value in Cell("B1"), including blanks.
Dim lr As Long


'change all "sheet1" references to the name of your sheet.

'Assumes Col C is the longest column.
lr = Worksheets("Sheet1").Cells(Rows.Count, "C").End(xlUp).Row


'Assumes a header in cell("C1").
Worksheets("Sheet1").Range("C2:C" & lr).Value = Worksheets("Sheet1").Range("B1")

End Sub

Farmerscott

Thank you for the assist

 

[farmerscott]

Glad it worked.