VBA - 計算された値を別のシートのセルに割り当てる

Question

ブックの1枚のシートからコストを計算するコードを作成しました。 は、計算した後、私は、その値が同じワークブック

Sub cost() 

    Dim irow As Integer 
    Dim pointer1 As Single 
    Dim Kgl_PG_Campaign As Single 
    Kgl_PG_Campaign = 0 
    pointer1 = 0 
    irow = 2 
    Do Until Cells(irow, 3).Value = "" 
     If Worksheets("ws2").Cells(irow, 11).Value = "Kagal" And Cells(irow, 12).Value = "PG" And Cells(irow, 24).Value = "Campaign" Then 
      pointer1 = Cells(irow, 29).Value 
      Kgl_PG_Campaign = Kgl_PG_Campaign + pointer1 
     End If 
    irow = irow + 1 
    MsgBox Kgl_PG_Campaign 
    Worksheets("COPQ_online").Range("C7").Value = Kgl_PG_Campaign 
    Loop 


End Sub 

Error - run time error 9 - script out of rangeの別のシートに表示します。

多分あなたはこのような何かの後にある

Answer 1

を助けてください。私はあなたが行3から「WS2」欄「C」セルを介してループした後、あなたがWorksheets("COPQ_online")に書きたいことを想定

Option Explicit 

Sub cost() 
    Dim irow As Long 
    Dim Kgl_PG_Campaign As Single 

    Kgl_PG_Campaign = 0 
    irow = 2 
    With Worksheets("ws2") 
     Do Until Cells(irow, 3).Value = "" 
      If .Cells(irow, 11).Value = "Kagal" And .Cells(irow, 12).Value = "PG" And .Cells(irow, 24).Value = "Campaign" Then 
       Kgl_PG_Campaign = Kgl_PG_Campaign + .Cells(irow, 29).Value 
      End If 
      irow = irow + 1 
      MsgBox Kgl_PG_Campaign 
     Loop 
    End With 
    Worksheets("COPQ_online").Range("C7").Value = Kgl_PG_Campaign 
End Sub 

最初の空のセルの前に1つ下に移動します