我正在尝试使用一个按钮将数字快照到另一张纸上。复制/粘贴代码可以正常工作,但是我需要它相应地粘贴到正确的用户和星期。
这是我到目前为止所拥有的:
Sub CopyScore()
Worksheets("Scorecard").Range("AD13").Copy
Worksheets("Yearly").Range("B2").PasteSpecial xlPasteValues
End Sub
显然,这只是粘贴到B2
如何在年度表中需要查找 A 列中的特定名称以及 A 行中的特定数字?
只是为了更有意义...它将查看记分卡 (D2) 表上的名称,然后将其与 A 列中的名称进行匹配。它还将查看记分卡表上的周 #(V2) 并将其与“每年”中的列相匹配。
如果能够为同一工作簿上的另一张工作表以及未打开的工作簿编写另一个代码,那就太棒了......
请尝试
Sub demo()
Dim ySht As Worksheet
Dim c As Range
Set ySht = ThisWorkbook.Worksheets("Yearly")
With Worksheets("Scorecard")
If .Range("AD13") <> "" Then
' Search name
Set c = ySht.Columns(1).Find(.Cells(2, "D"))
If Not c Is Nothing And .Range("V2") > 0 Then
ySht.Cells(c.Row, 1).Offset(0, .Range("V2")).Value = .Range("AD13")
End If
End If
End With
End Sub