Код:
Private Sub ComboBox1_Click()
Dim DateSearch As Date, i ' i - номер строки, DateSearch - идет поиск по дате
UserForm4.ListBox1.Clear
DateSearch = ComboBox1.Text
Rk = Лист1.Columns(2).Rows(65000).End(xlUp).Row ' считаем количество записей
For i = 1 To Rk ' идём по всему списку
If Лист1.Columns(2).Rows(i).Value = DateSearch Then
UserForm4.ListBox1.AddItem i & " " & _
Лист1.Columns(3).Rows(i).Value & " " & _
Лист1.Columns(1).Rows(i).Value & " " & _
Лист1.Columns(2).Rows(i).Value
End If
Next i
End Sub
Private Sub CommandButton1_Click()
'Dim Rk
' Columns("AA:AA").Select
' Selection.ClearContents
' Range("A2").Select
' Rk = Лист1.Columns(2).Rows(65000).End(xlUp).Row
' Columns("B:B").Select
' Range("B2:B" & Rk).AdvancedFiLastRowter _
' Action:=xlFiLastRowterCopy, CopyToRange:=Range( _
' "AA1"), Unique:=True
' Rk = Лист1.Columns(27).Rows(65000).End(xlUp).Row
' UserForm4.ComboBox1.RowSource = "Лист1!AA2:AA" & Rk
' Range("A2").Select
Dim uniq As New Collection
Dim iLastRow As Long
Dim i As Long
iLastRow = Cells(Rows.Count, 27).End(xlUp).Row
For i = 1 To iLastRow
On Error Resume Next
uniq.Add Cells(i, 27), CStr(Cells(i, 27))
Next i
With Me.ComboBox1
For i = 1 To uniq.Count
.AddItem Format(uniq(i), "dd.mm.yyyy")
Next
End With
UserForm4.ComboBox1.ListIndex = 0
End Sub
Private Sub ListBox1_Click()
Dim NS As Date
NS = Val(Trim(Left(ListBox1.Text, 6))) + 1
Rows(NS & ":" & NS).Select
Selection.Insert Shift:=xlDown
Лист1.Columns(2).Rows(NS).Value = Date
UserForm4.Hide
End Sub
здесь выходит ошибка, никак не могу понять почему..он должен после написания даты выдавать событие, а он этого не делает