|
コンボで「AprWk1」と選択すると、1.シートのデータを2.シートに抽出する物を作成したいです。
1.1.シートには品目と数値が入っている。
2.シートはそれをまとめるためのシートである。
2.1.シートと2.シートで一致する品目の数値を2.シートに反映させたいのだが、
1.シートのAJ列に【Adapter】【Book】【Castle】等々書いてあり、
【Apple】の場合にのみ2.シートのC列に数値を反映させたい。
上記条件があるのだが、それを下記に書いてみたものの、
どうしても動きません。
何がおかしいのでしょうか?
インデックスが有効範囲にありませんと言われます。
Select Case (コンボ)
Case "AprWk1"
Dim ws1 As Worksheet, ws2 As Worksheet, Rmax As Long, i As Long, T As String
'処理対象のシートを明確にするために変数にセット
Set ws1 = ThisWorkbook.Worksheets("1.")
Set ws2 = ThisWorkbook.Worksheets("2.")
'集計対象シートの最下行:キーになるF列で判定
Rmax = ws2.Range("F65536").End(xlUp).Row
'SUMIFで合計する
T = "Apple"
i = 7
With ActiveSheet
Do Until .Cells(i, 1).Value = ""
If ws2.Range("AJ" & "i-5").String = T Then
ws1.Range("C" & i).Value = Application.WorksheetFunction.SumIf _
(ws2.Range("E1:E" & Rmax), ws1.Range("A" & i).Value, ws2.Range("G1:G" & Rmax))
i = i + 1
End If
Loop
End With
|
|