Excel Vir

sometimes you hide the sheets in doing works.  In unhiding the each sheet , took a lots of time if you hide more than 10 sheets , then it took many valuable time Imagine if you un hide all the sheet in one click. how much time you save HERE are the following steps 1) open VBA by pressing ALT +F11 2) insert new module  3) copy the following code and paste it on module Sub unhide_sheet() Dim kk As Worksheet For Each kk In Worksheets kk.Visible = True Next kk End Sub congrats you unhide all the sheets in one click

How to structure the data of GSTR 2A B2B in one click for 2A reco All you spent lots of time in data structuring in office such as  remove space between the rows,r emove the first few rows, Merged the cells What if , all this done on single click U save lots of precious time Here is the steps 1 open the sheet 2. open the vba by ALT +F11 3. Add the module 4. copy the below code

  Visual Basic for Applications  (VBA) is an implementation of Microsoft's event-driven programming language VBA helps to automate many functions which increase your productivity in work and save a lots of time if u get irritated by doing same work in excel sheet . if you doing same  repetitive process daily. give so much time in that process.Then you need learn VBA.  I feel bored doing office work , so much repetitive process, such as highlight , copy ,paste, data extraction , sometime i hated my work . then i learned VBA in lockdown duration. Now i loved my work and my productivity increase and save a lots of time for example If you want to save each sheet as new workbook, it easy if you have 2-3 worksheet , but if you have 50-60 worksheet then it took lots of time and  you get exhausted and  you hate your job. if you copy 10-20 workbook data in single sheet and in every workbook data column sequence different. just imagine the time it took...

u face many problem to seperate the number from text in excel here is simple way to create a formula to get result by just copy & paste 1) click alt+f11 2 )insert module 3) copy it

Sub last_column() Dim kk As Long kk = Cells(1, Columns.Count).End(xlToLeft).Column End Sub

lastrow number  in excel If you struggle to find the last row in a dynamic data then this code helps you to  make a dynamic code just copy and used it sub last_row() dim kk as long kk=Range("A" & Rows.Count).End(xlUp).Row end sub