VBA - Values Not Getting Printed

Hi folks,

I got the vba script which is pulling out the values from multiple sheets against the unique items to the "Output" sheet. The code is working fine as per my requirement.

I have added one more column "Range" in the "Output" sheet which is the difference between the columns E & F of the "Output" sheet. I have added the below code but unfortunately it's not printing the values in the "Output" sheet. Can anyone of you have a look please and suggest the mistake I am doing. Attaching the sample data for your reference. Thanks in advance...

  ' printing values in H column
  Worksheets("Output").Activate
  lastRow = Range("A" & Rows.Count).End(xlUp).Row
  For i = 2 To lastRow
  If Range("E" & i).Value = "" Or Range("F" & i).Value = "" Then
        Range("H" & i).Value = ""
  Else
        Range("H" & i).Value = Range("F" & i).Value - Range("E" & i).Value
  End If
  Next i

Hi there,

I haven't studied your code in detail, so I don't know what you're doing with the contents of the "v" array, but the highlighted lines are overwriting the output of the code that you posted:

'''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''
  ' printing values in H column
  Worksheets("Output").Activate
  lastRow = Range("A" & Rows.Count).End(xlUp).Row
  For i = 2 To lastRow
  If Range("E" & i).Value = "" Or Range("F" & i).Value = "" Then
        Range("H" & i).Value = ""
  Else
        Range("H" & i).Value = Range("F" & i).Value - Range("E" & i).Value
  End If
  Next i
'''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''


  With Worksheets("Output")

        .Cells(1, 1).CurrentRegion.Offset(1).Clear
        .Cells(2, 1).Resize(ndx, UBound(v, 2)).Value = v

        With .UsedRange

            .Columns("A:B").NumberFormat = "@"
            .Columns("C").NumberFormat = "#,##0"
            .Columns("D").NumberFormat = "d/m/yyyy"
            .Columns("E:H").NumberFormat = "$* #,##0.00"

        End With

End With

End Sub

Thanks for posting the entire workbook instead of just the snippet of code, otherwise I wouldn't have been able to make this suggestion. I wish more posters would follow your good example!

Hope this helps.

Regards,

Greg M

Thanks Greg for identifying the issue. I got that resolved.

Regards,
Abhi

Hi again,

Many thanks for your feedback and also for the Reputation increase - much appreciated!

You're welcome - glad I was able to help.

Best regards,

Greg M