{quote}{login=R Dmitry}{date=11.05.2011 09:40}{thema=Re: Получение даты из имени файла ГГММДД.xls}{post}{quote}{login=semx}{date=11.05.2011 09:32}{thema=Получение даты из имени файла ГГММДД.xls}{post}Бэн, это Данила!  
 
В общем, имеется куча файлов excel, названия которых содержат в себе дату в немного перевернутом формате (ГГММДД):  
110429.xls  
110430.xls  
110501.xls  
110502.xls  
 
Следующей строкой, отбрасываем от имени книги расширение .xls, получаем ГГММДД  
OutFileName = Left(iTempWB.Name, Len(iTempWB.Name) - InStr(1, StrReverse(iTempWB.Name), "."))  
 
Далее, дату необходимо переделать из ГГММДД в ДДММГГ и вот тут я затупил  
OutDate = Right(OutFileName, 2)...  
 
Вопрос, как получить ДДММГГ из ГГММДД?{/post}{/quote}  
 
d = DateSerial(Mid(d, 1, 2), Mid(d, 3, 2), Mid(d, 5, 2)){/post}{/quote}  
 
Спасибо, это гениально и просто! А главное - работает.  
 
OutFileName = Left(iTempWB.Name, Len(iTempWB.Name) - InStr(1, StrReverse(iTempWB.Name), "."))  
OutFileName = DateSerial(Mid(OutFileName, 1, 2), Mid(OutFileName, 3, 2), Mid(OutFileName, 5, 2))

Бэн, это Данила!  
 
В общем, имеется куча файлов excel, названия которых содержат в себе дату в немного перевернутом формате (ГГММДД):  
110429.xls  
110430.xls  
110501.xls  
110502.xls  
 
Следующей строкой, отбрасываем от имени книги расширение .xls, получаем ГГММДД  
OutFileName = Left(iTempWB.Name, Len(iTempWB.Name) - InStr(1, StrReverse(iTempWB.Name), "."))  
 
Далее, дату необходимо переделать из ГГММДД в ДДММГГ и вот тут я затупил  
OutDate = Right(OutFileName, 2)...  
 
Вопрос, как получить ДДММГГ из ГГММДД?

Вот это СПАСИБИЩЕ!!!! Просто, то что нужно.    
Где плюсануть вам карму не нашел, но полагаю там и так все хорошо.  
 
Спасибо всем.  
 
{quote}{login=Alex_ST}{date=12.08.2010 02:59}{thema=}{post}В модуле листа запустите:  
Sub for_SemX()  
  Dim iCell As Range, iRow%, Result$, Delim$  
  Delim = ", "  
  For iRow = 2 To 35  
     Result = ""  
     For Each iCell In Range("C2:AH35")  
        If iCell.Value = Cells(iRow, 1).Value And iCell.Row <> iRow Then  
           If Result = "" Then  
              Result = Cells(iCell.Row, 1).Value  
           Else  
              Result = Result & Delim & Cells(iCell.Row, 1).Value  
           End If  
        End If  
     Next iCell  
     Cells(iRow, 2).Value = Result  
  Next iRow  
End Sub  
 
 
 
Вау!  
Капча 49994{/post}{/quote}

Да, простите, ошибся. Искать нужно действительно в диапазоне С2:AН35, а совпадения выводить в столбец Result через напятую. Т.е. например для 62326, в поле Result будет это: 62324, 62325, 62323  
 
 
{quote}{login=Alex_ST}{date=12.08.2010 01:21}{thema=}{post}Ну, вы бы хоть для первых двух значений "Искомого" ручками (Ctrl+F) нашли и заполнили Result...  
Вчитывался в ваше "пояснение" в примечании к файлу несколько минут:  
"В это поле нужно вывести результат поиска для искомого числа 62324. т.е. нужно пройти циклом всю таблицу H2:AM35 и для каждого найденного 62324 вывести через запятую (например) значение столбца "Искомое" по строке в которой было найдено совпадение с 62324 и так для каждой строки. Соотв. для каждой строки свое значение "Искомого"  
Так ничего и не понял... :-(  
Найти-то в табличке ячейки, совпадающие со значениями в первом столбце ("Искомое") - не проблема, а вот что с ними дальше делать - не понятно...  
И к стати, почему вы в примечании говорите, что искать нужно в H2:AM35, а данные в таблице расположены в С2:AН35?{/post}{/quote}

Ой, сейчас попробую все советы. Спасибо что откликнулись.

Друзья, нужна ваша помощь.  
 
Имеем таблицу в которой более 12k записей, и 32 столбца(в кот. ищем). В крайнем левом, находится значение которое необходимо искать по всей таблице и в случае совпадения в какой нибудь из строк, вывести через запятую все совпадения для каждой записи, подробности, попытался описать в файле на примере.  
 
Спасибо-пожалуйста.