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 Fill_ID() Dim LastRow As Long, MaxN As Long, StoreN As String Dim Rng As Range, A() As String, i As Integer Worksheets("TEMPLATE").Activate 'Find ID column For i = 1 To 50 If Cells(1, i).Value = "TrackerNo" Then Exit For Next i If i = 50 Then MsgBox "TrackerNo column not found" Exit Sub End If ColN = i LastRow = Cells(65536, ColN).End(xlUp).Row ' In Excel 2007 and later last row could be more then 65536 StoreN = Right(Cells(2, 1).Value, 3) If LastRow = 1 Then MaxN = 1 Else A = Split(Cells(LastRow, ColN).Value, "-") StoreN = Right(Cells(LastRow, ColN).Value, 3) MaxN = A(0) End If MaxN = MaxN + 0 Do While Cells(LastRow + 1, 6).Value <> "" 'Fill cells where Column F is not empty StoreN = Right(Cells(LastRow + 1, 1).Value, 3) 'Get Store Number from column 1 If MaxN < 999 Then Cells(LastRow + 1, ColN).Value = StoreN & "-" & Format(MaxN, "000") LastRow = LastRow + 1 MaxN = MaxN + 1 Else Exit Do End If Loop End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|move line without macro or copy/paste||6||45|
|Save PowerPoint from Active Workbook Excel VBA||5||36|
|copy down array||24||35|
|Excel User Form - Adding to multiple worksheets using one user form||4||23|
Join the community of 500,000 technology professionals and ask your questions.