Private Sub UserForm_Activate()
Dim arr() As Variant
Dim iRowL As Integer, iRow As Integer, iRowU As Integer
ListBox1.Clear
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 2 To iRowL
If Cells(iRow, 1).Value = "X" And _
Cells(iRow + 1, 1).Value "X" And _
Cells(iRow - 1, 1).Value "X" Then
ReDim Preserve arr(0 To 1, 0 To iRowU)
arr(0, iRowU) = Cells(iRow, 1)
arr(1, iRowU) = Cells(iRow, 2)
iRowU = iRowU + 1
End If
Next iRow
ListBox1.Column = arr
End Sub
Private Sub UserForm_Activate()
Dim arr() As Variant
Dim iRowL As Integer, iRow As Integer, iRowU As Integer
ListBox1.Clear
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 2 To iRowL
If Cells(iRow, 1).Value = "X" Then
If Cells(iRow + 1, 1).Value "X" Then
If Cells(iRow - 1, 1).Value "X" Then
If Not Left(Cells(iRow, 2), 1) = "-" Then
If Not Left(Cells(iRow + 1, 2), 1) = "-" Then
ReDim Preserve arr(0 To 1, 0 To iRowU)
arr(0, iRowU) = Cells(iRow, 1)
arr(1, iRowU) = Cells(iRow, 2)
iRowU = iRowU + 1
End If
End If
End If
End If
End If
Next iRow
ListBox1.Column = arr
End Sub
Private Sub UserForm_Activate()
On Error Resume Next
Dim arr() As Variant
Dim iRowL As Integer, iRow As Integer, iRowU As Integer
ListBox1.Clear
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 2 To iRowL
If Cells(iRow, 1).Value = "X" Then
If Not Left(Cells(iRow, 2), 1) = "-" And Left(Cells(iRow + 1, 2), 1) "-" Or _
Not Left(Cells(iRow, 2), 1) = "-" And Left(Cells(iRow + 1, 2), 1) = "-" Then
If Not Cells(iRow, 2).Value = Left(Cells(iRow + 1, 2), -1) Then
ReDim Preserve arr(0 To 1, 0 To iRowU)
arr(0, iRowU) = Cells(iRow, 1)
arr(1, iRowU) = Cells(iRow, 2)
iRowU = iRowU + 1
End If
End If
End If
Next iRow
ListBox1.Column = arr
End Sub
Private Sub UserForm_Activate()
On Error Resume Next
Dim arr() As Variant
Dim iRowL As Integer, iRow As Integer, iRowU As Integer
ListBox1.Clear
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 2 To iRowL
If Cells(iRow, 1).Value = "X" Then
If Not Left(Cells(iRow, 2), 1) "-" And Left(Cells(iRow + 1, 2), 1) = "-" Or _
Not Left(Cells(iRow + 1, 2), 1) = "-" And Left(Cells(iRow, 2), 1) "-" Then
If Not Cells(iRow, 2).Value = Left(Cells(iRow + 1, 2), -1) Then
If Not Cells(iRow, 2).Value = Left(Cells(iRow - 1, 2), -1) Then
ReDim Preserve arr(0 To 1, 0 To iRowU)
arr(0, iRowU) = Cells(iRow, 1)
arr(1, iRowU) = Cells(iRow, 2)
iRowU = iRowU + 1
End If
End If
End If
End If
Next iRow
ListBox1.Column = arr
End Sub
Option Explicit
Private Sub UserForm_Initialize()
Dim rng As Range
With ListBox1
For Each rng In Range("A2:A19")
If rng.Value = "X" And rng.Offset(1, 0) "X" And rng.Offset(0, 1).Value > 0 Then
.AddItem rng.Value
.List(.ListCount - 1, 1) = rng.Offset(0, 1)
End If
Next
End With
End Sub