Hi Ashish,
Thanks for the update and sharing them.
I would think we can include
1. Duplicate entries in a column.
Sub Duplicate_Red()
Application.ScreenUpdating = False
Rng = Selection.Rows.Count
For i = Rng To 1 Step -1
myCheck = ActiveCell
ActiveCell.Offset(1, 0).Select
For j = 1 To i
If ActiveCell = myCheck Then
Selection.Font.Bold = True
Selection.Font.ColorIndex = 3
End If
ActiveCell.Offset(1, 0).Select
Next j
ActiveCell.Offset(-i, 0).Select
Next i
Application.ScreenUpdating = True
End Sub
2.Cell check
CellContentCheck()
If Application.IsText(ActiveCell) = True Then
MsgBox ("Text")
Else
If ActiveCell = "" Then
MsgBox ("Blank")
Else
End If
If ActiveCell.HasFormula = True Then
MsgBox ("Formula")
Else
End If
If IsDate(ActiveCell.Value) = True Then
MsgBox ("date")
Else
End If
End If
End Sub
Regards
Hari Kumar
On Tue, Jun 9, 2009 at 4:17 AM, Ashish Jain <26may.1...@gmail.com> wrote:
> Hi Friends,
>
> Here is the updated collection of VBA Macros on http://www.excelitems.com.
> If there is any general macro idea in your mind that could be useful to
> excel users, please do reply to this mail. I'll post it on
> http://www.excelitems.com with your name.
>
> *Please note the links suffixed with **. They're new ones in comparison to
> last update.*
>
>
> ------------------------------
> *Visual Basic for Automation (Macros Collection)*
> ------------------------------
> *Date/Time*
>
> 1. Calculate Business Working Days* *(Excluding Saturdays and
> Sundays)<http://www.excelitems.com/2009/05/calculate-business-working-days-between.html>
> * ***
>
> *Form*
>
> 1. Resize Form during
> Run-Time<http://www.excelitems.com/2009/03/resize-form-using-worksheet-event-macro.html>
>
>
> *Format*
>
> 1. Partly Background Color a Cell (Coloring only a portion of
> Cell)<http://www.excelitems.com/2009/03/color-only-part-of-cell-using-macro-or.html>
>
> *Event Macro*
>
> 1. Example of Worksheet_Change Event
> Macro<http://www.excelitems.com/2009/03/resize-form-using-worksheet-event-macro.html>
>
> *Miscellaneous*
>
> 1. Access Internet Explorer (Search Engine
> Example)<http://www.excelitems.com/2009/03/access-search-engines-on-browser.html>
> 2. Change Image
> Location<http://www.excelitems.com/2009/03/change-picture-or-image-location.html>
> 3. Copy Excel Worksheets to MS
> Word<http://www.excelitems.com/2009/03/copy-excel-worksheets-to-microsoft-word.html>
>
>
> *Number*
>
> 1. Change a Number
> Polarity/Sign<http://www.excelitems.com/2009/05/change-polarity-or-number-sign.html>
> 2. Convert Numbers to
> Text<http://www.excelitems.com/2009/05/convert-numbers-to-text-to-append-or.html>
> * ***
> 3. Convert Textual Numbers to
> Values<http://www.excelitems.com/2009/05/convert-numbers-appearing-as-text-to.html>
> * ***
> 4. Convert Formulas to
> Values<http://www.excelitems.com/2009/05/convert-formulas-to-values.html>
> * ***
>
> * *
> *Range*
>
> 1. Color a range based on its percentage
> value<http://www.excelitems.com/2009/03/color-only-part-of-cell-using-macro-or.html>
>
> *Rows/Columns*
>
> 1. Delete Blank
> Rows<http://www.excelitems.com/2009/03/deleteremove-blankempty-rowscolumns.html>
> 2. Remove Empty
> Columns<http://www.excelitems.com/2009/03/deleteremove-blankempty-rowscolumns.html>
> 3. Select Alternate
> Rows<http://www.excelitems.com/2009/05/select-or-color-alternate-evenodd-rows.html>
> * ***
> 4. Select Alternate
> Columns<http://www.excelitems.com/2009/05/select-or-color-alternate-evenodd.html>
> * ***
>
> *Select*
>
> 1. Invert the
> Selection<http://www.excelitems.com/2009/03/invert-selection.html>
> 2. Select Alternate
> Rows<http://www.excelitems.com/2009/05/select-or-color-alternate-evenodd-rows.html>
> * ***
> 3. Select Alternate Columns
> <http://www.excelitems.com/2009/05/select-or-color-alternate-evenodd.html>
> * ***
>
> *Text*
>
> 1. Change Case (Upper, Lower, Proper, Sentence and Toggle)
> <http://www.excelitems.com/2009/02/change-case-upper-case-lower-case.html>
> 2. Remove Extra Spaces (Left, Right, Both sides and from
> Inside)<http://www.excelitems.com/2009/03/remove-extra-spaces-from-cell-value.html>
> 3. SuperScript/Subscript First or Last
> Character<http://www.excelitems.com/2009/05/superscript-or-subscript-first-or-last.html>
> * ***
> 4. Apply RainBow color to the
> Text<http://www.excelitems.com/2009/05/rainbow-color-text.html>
> * ***
> 5. Extract Alphabets from a Text (Removing all Digits
> Occurrences)<http://www.excelitems.com/2009/05/extract-alphabets-remove-digits-from.html>
> * ***
> 6. Extract Digits from a Text (Removing all Alphabets
> Occurrences)<http://www.excelitems.com/2009/05/extract-digits-remove-alphabets-from.html>
> * ***
> 7. Reverse the Text in Selected Cells (Mirroring the Entire Cell
>
> Contents)<http://www.excelitems.com/2009/05/reverse-text-in-selected-cells.html>
> * ***
> 8. Delete 'n' number of characters from selected
> range.<http://www.excelitems.com/2009/05/delete-n-number-of-characters-from.html>
> * ***
>
>
> *Workbook*
>
> *Worksheets*
>
> 1. Sort all
> sheets<http://www.excelitems.com/2009/03/sort-all-worksheets-on-basis-of-sheet.html>
> 2. Remove blank worksheets from Current
> workbook<http://www.excelitems.com/2009/02/deleteremove-blankempty-worksheets.html>
> 3. Color all Sheet
> Tabs<http://www.excelitems.com/2009/03/color-all-sheet-tabs-in-workbook.html>
> 4. Remove color from all sheet
> tabs<http://www.excelitems.com/2009/03/remove-color-of-all-sheets-tabs.html>
> 5. Protect all
> worksheets<http://www.excelitems.com/2009/03/protect-all-worksheets-in-workbook.html>
> 6. Remove Password (Unprotect) all
> worksheets<http://www.excelitems.com/2009/03/unprotect-all-worksheets-in-workbook.html>
> 7. Insert 'n' number of Blank
> Worksheets<http://www.excelitems.com/2009/03/insert-n-number-of-worksheets-in-active.html>
>
>
> --------------------------------------------------------------
> Regards
> Ashish Jain
> (91) 9999-40-48-43
> Excel VBA - http://www.excelitems.com
> Open XL - http://www.openexcel.com
> World Stock Markets - http://www.moneydust.com
> Foreign Languages - http://www.oddtongue.com
> Powerpoint Presentations - http://www.slidesbox.com
> Motivational Videos - http://www.successelectrons.com
> --------------------------------------------------------------
>
> >
>
--
Hari kumar
Our strength grows out of our weaknesses.
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
