I've a problem and no clue how to solve this.
I've a table with 3 columns (A:C). Column A is contains a name (sheetname),
column B a cell (C20) and column C a value.

I want to value of C1, in the cell of B1 on sheet A1 and so on, till the end
of the table. I was struggling with the loop (end of table / end of range?).

Example of table:
ColumnA-ColumnB-ColumnC
sheet1-C20-Jan
sheet2-B20-Karin
sheet1-C21-Doug
etc.

Thanks for your help!

Arjan:

try,

i = 1
Do While Sheet1.Cells(i, 1) < ""
shtname = Sheet1.Cells(i, 1)
Worksheets(shtname).Range(Sheet1.Cells(i, 2)) = _
Sheet1.Cells(i, 3)
i = i + 1
Loop

--
天行å�¥ï¼Œå�›å*�以自強ä¸�æ�¯
地勢å�¤ï¼Œå�›å*�以厚德載物

http://www.vba.com.tw/plog/


"Arjan" wrote:

I've a problem and no clue how to solve this.
I've a table with 3 columns (A:C). Column A is contains a name (sheetname),
column B a cell (C20) and column C a value.

I want to value of C1, in the cell of B1 on sheet A1 and so on, till the end
of the table. I was struggling with the loop (end of table / end of range?).

Example of table:
ColumnA-ColumnB-ColumnC
sheet1-C20-Jan
sheet2-B20-Karin
sheet1-C21-Doug
etc.

Thanks for your help!