Add 1 in "B" Column of Filtered Range

    Hi,
    I have some data in which A Column has names and B column has amount. I have put filter to A column names. I have a some 5000 records and i need to add "1" (one) in B column only filtered cells not all. For Ex. if the B column one cell value is 10, it will be 11 after added 1. For this i need a vba code. Please help. Thanks.

    Re: Add 1 in "B" Column of Filtered Range


    Assuming row 1 is headers, something along the lines of this ?

    Code
    For Each cel In Range("B2:B5000").SpecialCells(xlCellTypeVisible)
  cel.Value = cel.Value + 1
Next cel

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!

Register Yourself Login