MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
CR = ActiveCell.Row CC = ActiveCell.Column LR = Range("LastRow").Row Range("A16:A" & LR).Select FullCount = Selection.Cells.Count VisCount = Selection.SpecialCells(xlVisible).Count Cells(CR, CC).Select If FullCount <> VisCount Then Check = MsgBox("There is a Filter in place. Please double check position of cursor." & Chr(10) _ & "Rows will be inserted above current position." & Chr(10) _ & "Filter will be re-applied after rows are inserted.", vbOKCancel, "Filter Check") If Check = vbCancel Then Exit Sub End If .....Code to Insert Rows.... LR = Range("LastRow").Row ActiveSheet.Range("$A$15:$CN$" & LR).AutoFilter Field:=1, Criteria1:="###" Range("A16:A" & LR).ClearContents
|In Excel 2007, how can I lock a value in two cells if "Yes" has been selected in a drop-down list?||7||62|
|Add Checkboxes that will return emails addresses in the BCC field into Outlook||3||50|
|MS Excel Multi Sheet Formula||13||33|
|Check whether active cell resides in a list (list object) by means of a macro||3||8|