Как кнопку привязать к дате

[valerij]

Доброго Утра!
Есть кнопка на листе, она, кнопка, должна перемещаться на ячейку с сегодняшней датой. Дата в виде 1 2 3 ...31
Рекодер выдает код

ActiveSheet.Shapes("AutoShape 1").Select
    Selection.ShapeRange.IncrementLeft 93.75

Но это просто приращение сдвига и если запускать макрос несколько раз, кнопка двигается в право, замена числа 93,75 на выражение Day(Date), ни чего не дала, сделал, что бы не двигалась, но не слушается кнопка при смены даты..

ActiveSheet.Shapes("AutoShape 1").Select
    Selection.ShapeRange.IncrementLeft Day(Date)
Selection.ShapeRange.IncrementLeft -Day(Date)

Игорь, опять не понятно объяснил? вроде все подробно описал.

[IgorGO]

никогда кнопка туда не попадет. сегодня 16.12.2010, а там даты с 01.01.1900 по 31.01.1900

[valerij]

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

никогда кнопка туда не попадет. сегодня 16.12.2010, а там даты с 01.01.1900 по 31.01.1900

Точно!!!
Но чета не могу дату выставить, прикрепил файл, че не так?

Не помогло, не двигается, кнопка

[EducatedFool]

Sub test()
    On Error Resume Next
    Set Ячейка = [2:2].Find(Day(Now)) ' ищем во второй строке нужную ячейку
    [КНОПКА].Top = Ячейка.Top: [КНОПКА].Left = Ячейка.Left ' ставим туда кнопку
End Sub

Пример в файле: http://excelvba.ru/XL_Files/Sample__...0__8-28-47.zip

[valerij]

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

Пример в файле

Супер, Спасибо!!!!!

[ZORRO2005]

Кто-то обещал на этот форум больше не обращаться.
http://www.programmersforum.ru/showp...14&postcount=6

[valerij]

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

Кто-то обещал на этот форум больше не обращаться.

Да куда я от ВАС, денусь!!!!

[valerij]

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

Sub test()
    On Error Resume Next
    Set Ячейка = [2:2].Find(Day(Now)) ' ищем во второй строке нужную ячейку
    [КНОПКА].Top = Ячейка.Top: [КНОПКА].Left = Ячейка.Left ' ставим туда кнопку
End Sub

Игорь, если ставлю, системную дату, 01-01-11, то кнопка становится на яч. = 02-01-11, почему?

Нашел, все ОК!