Доброй ночи!
Люди! Понимаю, что это великая наглость, но прошу помочь настроить форму, чтобы в нее по интервалу дат попадали строки с листа.
Кому не сложно, помогите, плиз.
Видела много подобных форм, но элементарно не могу разобраться, что значат коды в них.
Заранее спасибо!

Казанский,спасибо!
Правда ничего не поняла)
поняла только три строки кода.

Долгими мучения накропала вот такой код для поиска по номеру договора.
Можете помочь переделать код под интервал дат?

Private Sub CommandButton1_Click()
x_text$ = TextBox1
If x_text$ <> "" Then
With ThisWorkbook.Worksheets("расчет").[A:A]
Dim iCell As Range
Set iCell = .Find(x_text$, , xlValues, xlPart)
If Not iCell Is Nothing Then
iAddress = iCell.Address
ListBox1.Clear
Do
ListBox1.AddItem
ListBox1.List(iCount&, 0) = CStr(iCell(1, 4))
ListBox1.List(iCount&, 1) = iCell(1, 1)
ListBox1.List(iCount&, 2) = CStr(iCell(1, 7))
ListBox1.List(iCount&, 3) = iCell(1, 9)
ListBox1.List(iCount&, 4) = iCell(1, 8)
ListBox1.List(iCount&, 5) = iCell(1, 5)
ListBox1.List(iCount&, 6) = iCell(1, 69)
ListBox1.List(iCount&, 7) = iCell(1, 70)
iCount& = iCount& + 1
Set iCell = .FindNext(iCell)
Loop While iAddress <> iCell.Address
End If
End With
Else
TextBox1.SetFocus
MsgBox "Введите значение для поиска!", , ""
End If
End Sub.


Мне надо, что в листбокс выбирались столбы не подряд, а только некоторые.

Спасибо!

Shocker.Pro,

это вот так надо было?
[src vb]
Private Sub CommandButton1_Click()
x_text$ = TextBox1
If x_text$ <> "" Then
With ThisWorkbook.Worksheets("ðàñ÷åò").[A:A]
Dim iCell As Range
Set iCell = .Find(x_text$, , xlValues, xlPart)
If Not iCell Is Nothing Then
iAddress = iCell.Address
ListBox1.Clear
Do
ListBox1.AddItem
ListBox1.List(iCount&, 0) = CStr(iCell(1, 4))
ListBox1.List(iCount&, 1) = iCell(1, 1)
ListBox1.List(iCount&, 2) = CStr(iCell(1, 7))
ListBox1.List(iCount&, 3) = iCell(1, 9)
ListBox1.List(iCount&, 4) = iCell(1, 8)
ListBox1.List(iCount&, 5) = iCell(1, 5)
ListBox1.List(iCount&, 6) = iCell(1, 69)
ListBox1.List(iCount&, 7) = iCell(1, 70)
iCount& = iCount& + 1
Set iCell = .FindNext(iCell)
Loop While iAddress <> iCell.Address
End If
End With
Else
TextBox1.SetFocus
MsgBox "Ââåäèòå çíà÷åíèå äëÿ ïîèñêà!", , ""
End If

End Sub
[src vb]

у меня почему то не получается(

Shocker.Pro, все, все, не ругайтесь. научилась!