Snasui Excel Forum

Code: Select all

Private Sub CommandButton2_Click()

Dim i As Long, j As Long
Dim arr(0, 7) As Variant
Me.ListBox1.Clear
Me.ListBox1.AddItem
For a = 0 To 7
    arr(0, a) = Sheet2.Cells(1, a + 1).Value

Next a
Me.ListBox1.ColumnCount = 7
Me.ListBox1.List = arr

    For i = 2 To Sheet2.Range("A1000000").End(xlUp).Row
        If Sheet2.Cells(i, 2).Value = Sheet1.Cells(4, 9).Value Then
            Me.ListBox1.AddItem
            For x = 1 To 7
                Me.ListBox1.List(ListBox1.ListCount - 1, x - 1) = Sheet2.Cells(i, x)
            Next x
        End If
    Next i

End Sub

Code: Select all

Private Sub CommandButton2_Click()

Dim i As Long, j As Long
Dim arr(1, 7) As Variant
Me.ListBox1.Clear
Me.ListBox1.AddItem

For a = 0 To 7
    arr(0, a) = Sheet2.Cells(1, a + 1).Value
    arr(1, a) = Sheet2.Cells(2, a + 1).Value
Next a

Me.ListBox1.ColumnCount = 7
Me.ListBox1.List = arr
ListBox1.ColumnWidths = "40,100,100,100,100,100"
    For i = 2 To Sheet2.Range("A1000000").End(xlUp).Row
        If Sheet2.Cells(i, 2).Value = Sheet1.Cells(4, 9).Value Then
            Me.ListBox1.AddItem
            For x = 1 To 7
                Me.ListBox1.List(ListBox1.ListCount - 1, x - 1) = Sheet2.Cells(i, x)
            Next x
        End If
    Next i

End Sub

Code: Select all

'Other Code

        .Cells(r, 4).Value = IIf(Sheets("Input").OLEObjects("CheckBox1").Object.Value = True, "P", "")
        
  'Other Code
 

Code: Select all

.Cells(r, 4).Value = IIf(Sheets("Input").OLEObjects("CheckBox1").Object.Value = True, ChrW(&H2713), "")