• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

VBA coding require for scrolling the above data

Dear Team

In my file u will find the header with New Current Status and Actionable to
I require PAID IN DEC status under AG column and Closed in AH column .

When im scrolling its copying to hided cell also .I dodnt want that to copy to hided cell.

Im using VBA as
Code:
Selection.FillDown
    ActiveCell.Offset(0, 1).Range("A1").Select
    Selection.FillDown
  
    End Sub
Attaching file for your reference
 

Attachments

  • all data 123.xlsm
    14.5 KB · Views: 2
Last edited by a moderator:
Hi,​
as per forum rules edit your initial post and use the code tags for the code part via this icon :​
1567607730895-png.62535
 
Dear Team

In my file u will find the header with New Current Status and Actionable to
I require PAID IN DEC status under AG column and Closed in AH column .

When im scrolling its copying to hided cell also .I dodnt want that to copy to hided cell.

Im using VBA as

Code:
Selection.FillDown
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.FillDown

End Sub


Attaching file for your reference
 

Attachments

  • all data 123.xlsm
    14.5 KB · Views: 5
As a good code does not need to select anything …​
Code:
Sub Demo1()
        Dim Rg As Range
    With Sheet1.UsedRange.Columns(33)
        Set Rg = .Find("*", , xlValues, , , xlPrevious).Resize(, 2)
         If Rg.Row < .Cells(.Rows.Count).Row Then Rg.Copy .SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeBlanks)
        Set Rg = Nothing
    End With
End Sub
Do you like it ? So thanks to click on bottom right Like !
 
Back
Top