Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.
Private Sub cmdOkay_Click() Dim i As Long, msg As String, Check As String, boxa As String, boxb As String Dim Arr(52, 1) Dim j, k As Integer j = 0 k = 0 'Generate a list of the selected items With ListBox1 For i = 0 To .ListCount - 1 k = k + 1 If .Selected(i) Then msg = msg & .List(i) & vbNewLine Arr(j, 1) = k + 1 j = j + 1 End If Next i End With ... ... If Check = vbYes Then 'CheckBox3 If UserForm1.CheckBox3.Value = True Then Module4.Carrier_Merge Arr End If 'Unload the userform since user is happy with selection(s) Unload Me Else 'User wants to try again, so clear listbox selections and 'return user to the userform For i = 0 To ListBox1.ListCount - 1 ListBox1.Selected(i) = False Next End If ... ... ... End Sub Sub Carrier_Merge(ArrValues()) Dim i Dim row1 As Integer Dim row2 As Integer Dim Column Column = 0 row1 = 2 row2 = 3 Do Until IsEmpty(Range("A" & row1)) If Right(Range("A" & row1), 2) <> "_3" And Right(Range("A" & row2), 2) = "_3" Then For i = 0 To UBound(ArrValues) Column = ArrValues(i, 1) Worksheets("Cell Site Demand").Range(Cells(row1, Column), Cells(row2, Column)).Merge Next i row1 = row1 + 2 row2 = row2 + 2 Else row1 = row1 + 1 row2 = row2 + 1 End If Loop ... ... end sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.