VBA - 계산 된 값을 다른 시트의 셀에 할당

Question

통합 문서의 한 시트에서 비용을 계산하는 코드를 작성했습니다. 는 계산 한 후 그 값이 같은 통합 문서

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

도와주세요 : 나는 당신이 행 세에서 "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 

첫 번째 빈 셀보다 먼저 오는 셀까지