將單元格值從一個工作表複製到另一個字符串

我試圖從表格（「＃sampleTracker」）複製單元格值到表格（「＃MESSAGEBOARD」）。將單元格值從一個工作表複製到另一個字符串

So datedatax，namedatax，numberdatax都來自#sampleTracker工作表，然後我們轉到#MESSAGEBOARD工作表並在列表底部輸入數據。

我已得到datedatax工作，但namedatax和numberdatax沒有顯示出來。

有什麼建議？

datedatax = ActiveCell.Value 
Dim namedatax As String 
Dim numberdatax As String 
numberdatax = Sheets("#SampleTracker").Cells(9, ActiveCell.Row).Value 
namedatax = Sheets("#SampleTracker").Cells(10, ActiveCell.Row).Value 
styledatax = numberdatax + "_" & namedatax 


Sheets("#MESSAGEBOARD").Select 
Range("C2").Select 
Set EmptyCell = Cells(100, ActiveCell.Column) 'select last cell pt1 
EmptyCell.End(xlUp).Select ' select last cell in column pt2 
ActiveCell.Offset(1, 0).Select ' select last cell in column pt3 
ActiveCell.Value = datedatax - Date 'advise how many days till due date 
ActiveCell.Offset(0, 1).Select 
ActiveCell = "sample " & styledatax 

Sheets("#SampleTracker").Select

來源

2012-06-19 Charlene Turner

你有你的行和列在你的代碼的第一部分逆轉。它是細胞（行，列），你似乎有細胞（列，行） –

@TimWilliams：是的:)請張貼它作爲一個答案，因爲它是一個有效的答案:) –

@TimWilliams哇，完全滑倒在我的鼻子下！對此感激不盡！ :) –

您的代碼的第一部分中已將您的行和列顛倒過來。

這是.Cells(row,column)，它看起來像你有.Cells(column,row)

來源

2012-06-19 05:00:04

+ 1尼斯抓住！ –

哇，完全滑倒在我的鼻子下！對此感激不盡！ :) –

將單元格值從一個工作表複製到另一個字符串

回答

相關問題