With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
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
|I need to access elements from an existing child window to extrat info!||19||45|
|COPY from excel to notepad||3||37|
|Split a string in excel||9||34|
|Comparison between two sheet and addition of an item from second sheet - Excel Query AP||5||18|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
17 Experts available now in Live!