Получить значение строки найденного

[Sergey112233]

Уважаемые форумчане.
Прошу Вас помочь со следующим вопросом.
С помощью Find находим нужное значение кода в диапазоне a:a
Например, значение 2222 найдено и находится в ячейке А2. В ячейку B2 автоматически должна вставиться текущая дата в формате 26.12.10
Подскажите, пожалуйста, как получить значение строки найденного значения 2222 и задать его для вставки даты.


Dim i As Integer
Dim Today

Dim iValue As Variant, poz As Range
Do
iValue = Application.InputBox("Введите номер:", "Ввод")
If iValue = False Then Exit Sub
Set poz = [a:a].Find(What:=iValue, LookAt:=xlWhole)
If poz Is Nothing Then
MsgBox iValue & " Не нашлось"
Else
poz.Select
Exit Do
End If
Loop

Today = Now

i = 3

Cells(i, 2).Value = Today

[EducatedFool]

Sub test()
    On Error Resume Next
    Do
        iValue = Application.InputBox("Введите номер:", "Ввод")
        If iValue = False Then Exit Sub
        Err.Clear: [a:a].Find(What:=iValue, LookAt:=xlWhole).Next = Format(Now, "DD.MM.YY")
        If Err Then MsgBox iValue & " не найдено в столбце А"
    Loop
End Sub

Пример в файле: http://excelvba.ru/XL_Files/Sample__...0__0-54-13.zip

PS: Лучше в ячейку просто вставлять дату, как в этом примере: http://excelvba.ru/XL_Files/Sample__...0__0-56-45.zip

Err.Clear: [a:a].Find(What:=iValue, LookAt:=xlWhole).Next = Now

А нужного вида даты добиться изменением формата ячейки
(а то сейчас в ячейке хранится не дата, а текст, похожий на дату)

Сообщение от Sergey112233

Как Вы считаете, какая литература с примерами применения Excel-VBA или иной ресурс наиболее были бы полезны?

Посмотрите книги и учебники по Excel и VBA здесь: http://excelvba.ru/books
Ну а лучше изучите макросы на примерах: http://excelvba.ru/code

[Sergey112233]

EducatedFool,
а где здесь получение координат ячеек первого столбца и передача во второй столбец?

[EducatedFool]

[a:a].Find(What:=iValue, LookAt:=xlWhole) - возвращает ссылку на найденную ячейку
.Next - ссылка на ячейку справа от найденной

вот и всё - зачем усложнять...

[Sergey112233]

EducatedFool,

"...а где здесь получение координат ячеек первого столбца и передача во второй столбец?..."

Мой вопрос оказался не совсем корректным.
Позвольте задать его еще раз.
Предполагается, что после нахождения значения кода (2222 в данном примере) текущую дату надо иметь возможность вставить не только в соседнюю ячейку на этой строке, но и в любую другую ячейку на этой строке.
Например, значение 2222 найдено и находится в ячейке А2.
Далее даты ставятся по вариантам:
1.Текущую дату вставить в ячейку D2.
2. Еще одно значение даты: Текущая дата +1 (или+2) - вставить в ячейку F2.
(выбор ячейки, куда нужно вставить дату и ячейки, куда нужно вставить дата +1 осуществляется с помощью значений 1, 2, 3 группы переключателей)

[IgorGO]

а чуть-чуть почитать, хоть что-нибудь...
set rg = [a:a].Find(What:=iValue, LookAt:=xlWhole)
rg.Next = Format(Now, "DD.MM.YY")
rg.offset(0,2) = now + 2
...

[Sergey112233]

IgorGO,

Спасибо Вам за отклик.

Как Вы считаете, какая литература с примерами применения Excel-VBA или иной ресурс наиболее были бы полезны?