Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
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.
|Create email hyperlinks from regular text||3||29|
|count values within multiple bands||7||35|
|Transfer Worksheet Data to Userform & Calculate based on Sum Range||28||46|
|VBA to Import multiple excel files into a worksheet||5||17|
Join the community of 500,000 technology professionals and ask your questions.