我有一段代码,在当前工作表的范围内搜索特定的单元格值,然后对该列进行操作。该宏由同一页面上的表单控制按钮启动。我需要将表单控制按钮移到另一个工作表,但是我不确定如何添加代码以仅在sheet1中搜索而不在按钮所在的工作表中搜索。
下面是我的代码在与数据使用同一工作表上的按钮时有效的代码。我只需要它来查看sheet1而不是当前的表。
Dim R1 As Range
Set R1 = Range(Range("A2:AX2").Find("BMA Authorization ID"), Range("A2:AX2").Find("BMA Authorization ID").End(xlDown))
R1.Select
R1.Copy
R1.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
使用With ... End With语句设置范围/单元格父级工作表。
with worksheets("Sheet1") '<~~change to suit
with .Range(.Range("A2:AX2").Find("BMA Authorization ID"), _
.Range("A2:AX2").Find("BMA Authorization ID").End(xlDown))
.value = .value 'same as .Copy .PasteSpecial xlPasteValues
end with
end with
请注意,所有Range(...)
现在都是.Range(...)
。前缀句点(aka.
或句号)使所有范围的父级成为With .. End With中引用的工作表。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句