1

行の値を検索し、列の値を検索し、それを使用して貼り付けるセルを決定することにより、テーブルの特定のセルに値を挿入するマクロを作成しようとしています。VBA初心者なのでよくわかりません。

これは私がこれまでに持っているものです:

Name=Sheets("Input").Range("C5")
Week=Sheets("Input").Range("C19")
copyCell=Sheets("Input").Range("C18")

pasteCell = Application.Index(Sheets("Resources").Range("B2:AZ50"),Application.Match(Week,Sheets("Resources").Range("A2:A50"),0),Application.Match(Name,Sheets("Resources").Range("B1:AZ1"),0))

copyCell.Copy
pasteCell.PasteSpecial PasteValues

必要なランタイム エラー オブジェクトが引き続き発生しますが、何が間違っているのかよくわかりません...

どんな助けでも大歓迎です！

アップデート

これは、セルが貼り付けられているテーブルでもあります (このテーブルは実際のテーブルではなく、テーブル内の名前を非表示にするための単なる例ですが、実際のテーブルが最初の行から始まることを除いて、まったく同じように見えます)。

ここに画像の説明を入力

そして、これは入力ページです：

ここに画像の説明を入力

注: それ以来、week 変数を囲むコードをさらに追加しました。

If WorksheetFunction.CountA(Sheets("Input").Range("C19")) = 0 Then
Week = Sheets("Input").Range("C20").Value
Else
Week = Sheets("Input").Range("C19").Value
End If

皆さんの助けに感謝します！

4

1 に答える 1