 |
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.
News: our custom development and consulting service
We would like to attract your attention to our new service-custom
development of Excel macros, VBA tools, VB projects etc., both very simple
and with any level of complexity, in short terms and low cost.
Read more about our service
Contact us NOW
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
 
| |
|
 
|
