Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

Жёстко привязать границы поиска

Автор vladturbo, 26.02.2011, 00:24

« назад - далее »

vladturbo

Добрый вечер.
Возможно ли установить границу поиска (допустим диапазон D4:D500), т.к.
With Worksheets(i).Cells не позволяет работать с диапазоном.
Спасибо!

Dim n, FF, Message, i, Obj, kk, firstAddress
kk = "Транспортное средство не найдено"
Message = "Введите подстроку поиска"
FF = InputBox(Message)
If FF = "" Then Exit Sub
n = Worksheets.Count
For i = 1 To n
With Worksheets(i).Cells
Set Obj = .Find(FF, LookIn:=xlValues)
If Not Obj Is Nothing Then
firstAddress = Obj.Address
Dim wsSh As Object
For Each wsSh In ActiveWorkbook.Sheets
If wsSh.Name <> "Лист1" Then wsSh.Visible = xlSheetVisible
Next wsSh
Sheets(i).Select
.Range(firstAddress).Select
GoTo m1
End If
End With
Next
FF = MsgBox(kk)
If kk = "Транспортное средство не найдено" Then Exit Sub
m1:
On Error Resume Next
ActiveCell.Offset(0, -3).Select
Application.Run "Пропуска.xls!Поиск"
End Sub


_Boroda_

А чем не нравится просто
Range("D4:D500").Find.....?
Скажи мне, кудесник, любимец ба'гов...



Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995