将单元格值从一个工作表复制到另一个字符串

我试图从表格（“＃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尼斯抓住！ –

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

将单元格值从一个工作表复制到另一个字符串

回答

相关问题