(CODE) how to do vba for paste and add values.

[zhengzhi8806]

Now i have a new question,

1.on the first tab "Scenario" ,i want to copy value from F5 and paste it over to B5 of tab"Plan Attributes", then on the plan attributes tab, copy C62 to HJ74 the whole block, paste values to results starting from C2.
2. then i want to copy value from G5 and paste it over B5 of tab plan attributes, then on the same tab, copy C62 to HJ74 whole block ,and paste add values starting from D2.
3. then i want to copy value from H5 and paste it over B5 of tab plan attributes, then on the same tab, copy C62 to HJ74 whole block ,and paste add values starting from E2.
........do this until we stop at Q5 last value .

after we finish all values from ROW 5, we start on row 6, the same procedure. unitl we finish on row 51.

I have the excel sheet.

[duncandhu]

Please use the CODE tags when posting code.

You seem to be missing the final End If, as the For loop is inside the If statement, and the last line is Next.

If you tabulate your code this doesn't happen so much though

[zhengzhi8806]

sorry, i will change my thread.

so i should switch end if and next?

[duncandhu]

Don't switch them, add an End If at the end (before End Sub)

What is the error message you're getting?

[HaHoBe]

Hi, zhengzhi8806,

please take a minute to think about the thread title.

Sub Final1()

Dim iRow As Integer
Dim iCol As Integer
Dim temp As Integer


For iRow = 5 To 6
  If iRow = 20 Or iRow = 36 Then
    'DO NOTHING
  Else
    For iCol = 6 To 8
      temp = Sheets("Scenarios").Cells(3, iCol).Value
      Sheets("Plan Attributes").Range("B4").Value = Sheets("Scenarios").Cells(3, iCol).Value
      Sheets("Plan Attributes").Range("C62:HJ74").Copy
      Sheets("Results").Select
      With Cells(2, temp + 2)
        If temp = 1 Then
          .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
             :=False, Transpose:=False
        Else
          .PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
             :=False, Transpose:=False
        End If
      End With
    Next iCol
  End If
Next iRow


End Sub

Ciao,
Holger

[zhengzhi8806]

the error msg is block if without end if.