Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- With Worksheets(1)
- For i = 1 To 50
- If InStr(" " & .Cells(i, 1).Value & " ", " Иван ") Then
- UserForm1.ListBox1.AddItem .Cells(i, 1).Value
- End If
- Next i
- End With
- If " " & .Cells(i, 1).Value & " " Like "* Иван *" Then
- UserForm1.ListBox1
- .Shapes.Range(Array("ListBox1"))
Add Comment
Please, Sign In to add comment