{quote}{login=}{date=25.08.2010 09:20}{thema=}{post}не знаю правильно или нет...{/post}{/quote}  
 
Да, спасибо, работает. Но медленне стал чем оригинал.  
А с Each почему не сделали... Просто с Each гораздо быстрее чем For работает макрос  
Сейчас разбираюсь!

А не проще ваш макрос заменить на этот  
Sub demo()  
Dim i As Long, iLR As Long  
iLR = Cells(Rows.Count, 2).End(xlUp).Row  
ReDim dd(1 To iLR)  
For i = 1 To iLR  
dd(i) = CDate(Cells(i + 4, 2))  
Next  
Range("B5:B" & iLR) = dd  
End Sub  
 
Работает явно быстрее, чем ваш вариант, и прогрессбар можно не прикручивать.

ПрогрессБар - это ведь дополнительное время. Соответственно, скорость снизится. Но в ТРИ раза - это перебор!

{quote}{login=sva}{date=25.08.2010 09:46}{thema=}{post}А не проще ваш макрос заменить на этот  
Sub demo()  
Dim i As Long, iLR As Long  
iLR = Cells(Rows.Count, 2).End(xlUp).Row  
ReDim dd(1 To iLR)  
For i = 1 To iLR  
dd(i) = CDate(Cells(i + 4, 2))  
Next  
Range("B5:B" & iLR) = dd  
End Sub  
 
Работает явно быстрее, чем ваш вариант, и прогрессбар можно не прикручивать.{/post}{/quote}  
 
Да, есть много методов по быстроте без ПБара, но я в этой теме хотел использовать именно ПБ на этот макрос..

{quote}{login=Hugo}{date=25.08.2010 11:06}{thema=}{post}Так если через массив, так уж сразу вообще без перебора листа делать. И прогрессбар можно fake сделать, например на секунду или две, т.к. работа будет за 0,005 сек. происходить.{/post}{/quote}  
 
А как преобразовать даты без перебора?  
 
С прогрессбаром и перебором так:  
 
Sub demo()  
Dim i As Integer, iLR As Long  
iLR = Cells(Rows.Count, 2).End(xlUp).Row  
ReDim dd(1 To iLR)  
U.Show  
U.ProgressBar1.Max = iLR  
For i = 1 To iLR  
dd(i) = CDate(Cells(i + 4, 2))  
U.ProgressBar1.Value = i  
Next  
Range("B5:B" & iLR) = dd  
Unload U  
End Sub

Если сделать массив так dd = Range(Cells(5, 2), Cells(iLR, 2)), то потом не удается обращаться к нему же по-элементно и преобразовать данные тоже не получится. Без перебора никак, хотя может это я не то делаю.

С коленки писал, извините. Вот проверено:  
 
Sub My_method()  
tm = Timer  
   A = ActiveSheet.Name  
   Dim iLR As Long  
  iLR = Worksheets(A).Cells(Rows.Count, 2).End(xlUp).Row  
   dd = Range(Cells(5, 2), Cells(iLR, 2))  
     
   For i = 1 To UBound(dd)  
   dd(i, 1) = CDate(dd(i, 1))  
Next  
 
Range(Cells(5, 2), Cells(iLR, 2)) = dd  
Debug.Print Timer - tm  
End Sub  
 
0.1875 сек.  
Но вот есть ли результат - не проверял :), с виду всё по прежнему.

Все нашел.

Нет, перебирать нужно, т.к. изначально это дата, как текст и если загрузить/ вставить так и останется.

Я так понимаю,в приложенном файле ТС даты в нормальном виде, а изначально они в виде текста. ТС просил прогрессбар прикрутить.

Ну,у кого как,у меня на работе это выполняется 1.7 сек. :)

{quote}{login=Hugo}{date=25.08.2010 12:34}{thema=}{post}А вообще прогрессбар классный, я до этого всё какие-то сложные видел, и не использовал, статусбаром обходился. А этот буду впредь юзать при случае.{/post}{/quote}  
 
Вот я тоже именно этого хотел сказать...  
Спасибо за этот ПБ он очень ПРОСТОЙ, я тоже раньше точно такого без огромныз кодов не встречал...  
Но незная кого благодарить, т.к. он был без имени :)))

iLR = Selection.Rows.Count

{quote}{login=Inter_E}{date=25.08.2010 03:23}{thema=Re: }{post}{quote}{login=Hugo}{date=25.08.2010 03:05}{thema=}{post}iLR = Selection.Rows.Count{/post}{/quote}  
 
Спасибо! Отлично сработало!!!  
Хьюго вы сегодня №1 в моей рейтинге...  
РЕСПЕКТ...{/post}{/quote}  
 
Всем новичкам проекта ProgressBar, рекомендую этот пост!!!  
Кажется мы добились, до этого не было столь простого применения ПБ!  
Спасибо всем за содействие в данном проекте, теперь в дальнейшем будем исследовать сложные ПБ