balaji3081
Member
Below are the two Macros I am trying to save on Personal.XLSB, its runs fine, once I close the excel application, and reopen, the macro is gone.....Am I doing something wrong, this is the first time I am working on Personal.xlsb.....
1) The code below is to get the number in the selected cell in comma with no decimal places format
Sub Numformat()
'Keyboard Shortcut: Ctrl+q
Selection.NumberFormat = "#,##0"
End Sub
2) This one is the best , this changes the pivot view to Classic -
Sub Classic_Pivot()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.InGridDropZones = True
pt.RowAxisLayout xlTabularRow
Next pt
End Sub
Regards,
Bala
1) The code below is to get the number in the selected cell in comma with no decimal places format
Sub Numformat()
'Keyboard Shortcut: Ctrl+q
Selection.NumberFormat = "#,##0"
End Sub
2) This one is the best , this changes the pivot view to Classic -
Sub Classic_Pivot()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.InGridDropZones = True
pt.RowAxisLayout xlTabularRow
Next pt
End Sub
Regards,
Bala