VBA sumifで計算できません

質問

集計シートに入力シートから抽出した重複しない検索データの合計値を入力シートでSUMIFで書いてみましたが　
「オブジェクトはこのプロパティまたはメソッドをサポートしていません。」とエラーになります。
何がいけないのか調べてみましたがVBA初心者でわからず困っています。
教えてください。よろしくお願いします。

Dim 集計データ数 As Long
Dim 入力シートデータ数 As Long
Dim データ行 As Long

集計データ数 = Cells(Rows.Count, 38).End(xlUp).Row
入力シートデータ数 = Worksheets("入力").Cells(Rows.Count,29).End(xlUp).Row

For データ行 = 11 To 集計データ数

Cells(データ行, 11).Value = Application.WorksheetFunction.SumIf(Worksheets("入力").Range(Cells(11, 29), Cells(入力シートデータ数, 29)),Cells(データ行, 2), Worksheets("入力").Range(Cells(11, 21), Cells(データ行, 21)))

Next データ行

End Sub

回答No.1

n-jun

アクティブなシートとWorksheets("入力")との区別がハッキリしていないとか？

With Worksheets("入力")
Cells(データ行, 11).Value = Application.WorksheetFunction.SumIf(.Range(.Cells(11, 29), .Cells(入力シートデータ数, 29)), Cells(データ行, 2), .Range(.Cells(11, 21), .Cells(データ行, 21)))
End With

的はずれでしたらごめんなさい。

お礼

End Withでやってみましたが駄目でした。勉強不足なのでもう少し
考えて見ます。ありがとうございました。