Чем вызвана ошибка OVERFLOW?

[Maxx]

Добрый день!

В столбце "B" записаны даты в текстовом формате.
Пример: 06/15/2008
Всего 174988 записей начаная с ячейки "B2" до ячейки "B174989".

Хочу перевернуть в формат дат в такой вид: 15.06.2008

Делал так:

Sub Замена_дат()
Application.ScreenUpdating = False
Columns("B:B").NumberFormat = "m/d/yyyy"
Dim x, y, i, j As Integer
Dim s, s1, s2, s3 As String
x = Cells(2, 2).Row
y = Cells(Cells(Rows.Count, "B").End(xlUp).Row, "B").Row
i = y - x
Cells(2, 2).Select
For j = 0 To i
s = ActiveCell.Offset(j, 0).Value
s1 = Mid(s, 1, 2)
s2 = Mid(s, 4, 2)
s3 = Mid(s, 7, 4)
ActiveCell.Offset(j, 0).FormulaR1C1 = "=" & s2 & "." & s1 & "." & s3 & ""
Next j
End Sub

Делал так:

Sub Замена_дат2()
Application.ScreenUpdating = False
Columns("B:B").NumberFormat = "m/d/yyyy"
Dim y, j As Integer
Dim s, s1, s2, s3 As String
y = Cells(Cells(Rows.Count, "B").End(xlUp).Row, "B").Row
For j = 2 To y
s = Cells(j, 2).Value
s1 = Mid(s, 1, 2)
s2 = Mid(s, 4, 2)
s3 = Mid(s, 7, 4)
Cells(j, 2).FormulaR1C1 = "=" & s2 & "." & s1 & "." & s3 & ""
Next j
End Sub

Понимаю, что разницы никакой. В обоих случаях: Run-time error 6. Overflow.

[istoe]

Не хватает диапазона типа integer
замените на long

[Maxx]

Да, с диапазоном стало все ОК! Спасибо!

Но теперь вылезает другая ошибка на строке:

ActiveCell.Offset(j, 0).FormulaR1C1 = "=" & s2 & "." & s1 & "." & s3 & ""

или

Cells(j, 2).FormulaR1C1 = "=" & s2 & "." & s1 & "." & s3 & ""

"Run-time error 1004". Application-defined or object-defined error"

В чем опять беда?
Где смотреть описание ошибок?

[EducatedFool]

Cells(j, 2).FormulaR1C1 = "=" & s2 & "." & s1 & "." & s3 & ""

А что Вы пытаетесь поместить в ячейку?
Формулу, или значение (дату в новом формате)?

Вот весь Ваш макрос:

Sub test()
    [b:b].Value = [b:b].Value
End Sub

[istoe]

Смотреть всегда полезно

в formulaR1C1 не надо писать "="

Cells(j, 2).FormulaR1C1 = s2 & "." & s1 & "." & s3 & ""

[Maxx]

istoe, EducatedFool Спасибо!

Невнимательность

Понял свою ошибку, исправил, РАБОТАЕТ!

А можно еще вопрос?
Я получил что хотел, но даты теперь в ячейках как числа, а не как даты.

Т.е. если, например, попытаться протянуть 15.06.2008, то получается не 16.06.2008 17.06.2008 и т.д., а 15.06.2000 15.06.2001

Что можно сделать?

[EducatedFool]

Я получил что хотел, но даты теперь в ячейках как числа, а не как даты.

Повторюсь: попробуйте простейший макрос

Sub test()
    [b:b].Value = [b:b].Value
End Sub

И даты преобразуются в нужный вид, и формат ячеек станет "дата", и "протягивание" ячейки даст 16.06.2008 17.06.2008 и т.д.

[Maxx]

Понял!

Этого можно также добиться, нажимая на каждой ячейке F2, затем Enter. Но у меня 174989 строк.

Сделал, не работает!

[Maxx]

Ура! Догадался с помощью макрорекодера.

Надо было писать так:

Cells(j, 2).FormulaR1C1 = s1 & "/" & s2 & "/" & s3 & ""

т.е. оставить месяц на первом месте, затем день и год, а вместо точки поставить /