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.
Sub SubbyWays() Dim sData As Variant Dim f_Data As Variant Dim iC As Integer Dim iR As Long Dim rCoun As Long Dim UCol As Integer rCoun = 1 sData = Range("A1").CurrentRegion.Value UCol = UBound(sData, 2) ReDim f_Data(1 To UBound(sData, 1) * UCol, 1 To 1) For iR = LBound(sData, 1) To UBound(sData, 1) For iC = LBound(sData, 2) To UBound(sData, 2) f_Data(rCoun, 1) = sData(Int((iC - 1) / UCol) + iR, 1 + ((iC - 1) Mod UCol)) rCoun = rCoun + 1 Next Next iR Range("J1").Resize(UBound(f_Data), 1) = f_Data End Sub
|Access 2010 drag and drop file to row on form only need relative path / filename of the file that was dragged.||12||40|
|Add Checkboxes that will return emails addresses in the BCC field into Outlook||3||48|
|VBA Delete selected Worksheets of each Workbook in a Folder||4||27|
|Create Incremental Count and Reset Counter for Field Change in Access||14||31|