Существует таблица (она обширна и конфиденциальна), где по нажатию кнопки выходит InputBox, куда необходимо указать ячейку с датой (форматом "dd.mm.yyyy hh:mm:ss").
Далее, идет поиск значения этой ячейки с возвратом номера столбца. Здесь вылезает ошибка Error 91.
При смене формата даты на "dd.mm.yyyy" все работает, но даты в таблице не должны меняться.
Подскажите, как выправить код?
[vba]
Код
Dim per As String Dim i, dd As String, df As String, li As Integer Dim ddd As Date Dim dff As Date
li = Range("B1:B10000").Find("Segment", , , xlWhole).Row
ddd = Application.InputBox(prompt:="What's the start of the period?", Type:=8) dff = Application.InputBox(prompt:="What's the end of the period?", Type:=8)
dd = Range("P" & li - 1 & ": AZT" & li - 1).Find(CDate(ddd), , , xlWhole).Column ''''''ERROR 91 df = Range("P" & li - 1 & ": AZT" & li - 1).Find(CDate(dff), , , xlWhole).Column
Application.ScreenUpdating = False
per = Application.InputBox(prompt:="What's the name of the sheet you want to create?") Sheets.Add.Name = per
[/vba]
Всем здравствуйте,
Существует таблица (она обширна и конфиденциальна), где по нажатию кнопки выходит InputBox, куда необходимо указать ячейку с датой (форматом "dd.mm.yyyy hh:mm:ss").
Далее, идет поиск значения этой ячейки с возвратом номера столбца. Здесь вылезает ошибка Error 91.
При смене формата даты на "dd.mm.yyyy" все работает, но даты в таблице не должны меняться.
Подскажите, как выправить код?
[vba]
Код
Dim per As String Dim i, dd As String, df As String, li As Integer Dim ddd As Date Dim dff As Date
li = Range("B1:B10000").Find("Segment", , , xlWhole).Row
ddd = Application.InputBox(prompt:="What's the start of the period?", Type:=8) dff = Application.InputBox(prompt:="What's the end of the period?", Type:=8)
dd = Range("P" & li - 1 & ": AZT" & li - 1).Find(CDate(ddd), , , xlWhole).Column ''''''ERROR 91 df = Range("P" & li - 1 & ": AZT" & li - 1).Find(CDate(dff), , , xlWhole).Column
Application.ScreenUpdating = False
per = Application.InputBox(prompt:="What's the name of the sheet you want to create?") Sheets.Add.Name = per