Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|MS Access VBA Text String Missing From The End Of A String After Stream||8||49|
|any combination of this numbers||9||33|
|Shade a cell based on date range||3||11|
|Storage and Retrieval of ISO-8601 Format Date/Timestamp Records in Access / SQL Server||10||26|