Free Excel Macros
Free collection of Excel macros for Excel Macro Processor

Welcome to our free collection of Microsoft Excel macros. You may use this macros with Microsoft Excel 97/2000/XP/2003/2007. With Excel Macro Processor you may apply this macros to a lot of Excel documents with progress indication.



Sub NormalPosition()
'
' Select top cell for all sheets
' Visual improvement for your documents
'

k = Worksheets.Count
For i = 1 To k
  If Worksheets(k - i + 1).Visible Then
    Worksheets(k - i + 1).Select
    Cells(ActiveWindow.SplitRow + 1, ActiveWindow.SplitColumn + 1).Select
  End If
Next i

End Sub



Sub FormulasToValues()
'
' Replace all formulas with values
'

WCount = Worksheets.Count
For i = 1 To WCount
  If Worksheets(WCount - i + 1).Visible Then
    Worksheets(WCount - i + 1).Select
    RCount = ActiveCell.SpecialCells(xlLastCell).Row
    CCount = ActiveCell.SpecialCells(xlLastCell).Column
    For j = 1 To RCount
      For k = 1 To CCount
        Worksheets(WCount - i + 1).Cells(j, k) = Worksheets(WCount - i + 1).Cells(j, k).Value
      Next k
    Next j
  End If
Next i

End Sub


Sub DeleteHiddenSheets()
'
' Remove hidden sheets from your document
'

i = 1
While i <= Worksheets.Count
  If Not Worksheets(i).Visible Then
    Worksheets(i).Delete
  Else
    i = i + 1
  End If
Wend

End Sub



Sub DeleteHiddenRows()
'
' Remove hidden rows from all sheets
'

For i = 1 To Worksheets.Count
  If Worksheets(i).Visible Then
    Worksheets(i).Select
    ActiveCell.SpecialCells(xlLastCell).Select
    k = ActiveCell.Row
    For j = 1 To k
      If Rows(j).Hidden Then
        Rows(j).Hidden = False
        Rows(j).Delete
      End If
    Next j
  End If
Next i
If Worksheets(1).Visible Then Worksheets(1).Select

End Sub





Just few sentences. New version of Excel Macro Processor , our advanced automation tool for MS Excel.


  NEWS | PRODUCTS | DOWNLOAD | SUPPORT | LINKS
  Copyright © 2013 Sowsoft. All rights reserved.
Designed by RaysLab