Hide columns based on either todays date or a set date

    Hello,


    Very new to VBA and new to this website as well. I was wondering if I could get some help with a workbook I am creating. It is a financial statement package that has multiple reports written inside. However, I would like to be able to hide month columns based on a set date. For example, when a user wants to run the reports, I would like the month columns that have not happened yet automatically hidden from the user since no information will be in those columns. Any help would be awesome. Let me know if more information is needed. However, I cant send the file since there is financial information disclosed.

    Of course it's possible, I suggest attaching a sample file with the layout you have and want (dummy data please), it will be easier to explain.
    Guessing is not such a good option to start on this

    Hans
    "IT" Always crosses your path :)

    Code
    sub maybe()
Dim y 
'Change 6 with your month
y =Filter([transpose(iferror(if(text(a1:a1000,"m")=6,"A" & row(a1:a1000)),False))],False,0)
If ubound y>= 0 then range(y).EntireRow.Hidden = True
end Sub

    Or you can use filter by date


    Code
    Sub aaa()
          With sheet1.A1.CurrentRegion
            .autofilter 1,">" & date ,XlAnd, 1, "<" & date + 10
          .Specialcells(12).EntireRow.hidden = True
          .Autofilter
        end with
       end sub

Participate now!

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

Register Yourself Login