Спасибо! Выбор на любой вкус! )

Здравствуйте, уважаемые форумчане! Суть макроса состоит в преобразовании даты, введённой в ячейку как текст в формате, напр. 02-Apr-12 в формат 02.04.2012. Думаю, есть более короткий вариант решения макросом. Спасибо, кто предложит более рациональное решение.  
 
Sub ConvertData ()  
Dim MonthN As Integer  
Dim Day As String, Month As String, Year As String  
Dim Data As Date  
' Cells(1, 1) = "02-Apr-12"  
Day = Left(Cells(1, 1), 2)  
Month = Mid(Cells(1, 1), 4, 3)  
If Month = "Jan" Then MonthN = 1  
If Month = "Feb" Then MonthN = 2  
If Month = "Mar" Then MonthN = 3  
If Month = "Apr" Then MonthN = 4  
If Month = "May" Then MonthN = 5  
If Month = "Jun" Then MonthN = 6  
If Month = "Jul" Then MonthN = 7  
If Month = "Aug" Then MonthN = 8  
If Month = "Sep" Then MonthN = 9  
If Month = "Okt" Then MonthN = 10  
If Month = "Nov" Then MonthN = 11  
If Month = "Dec" Then MonthN = 12  
Year = "20" & Right(Cells(1, 1), 2)  
Data = DateSerial(Year, MonthN, Day)  
Cells(1, 2).Value = Data  
End Sub

Пока дожидался ответа, сам и решил задачку благодаря подсказке в найденной ссылке http://www.planetaexcel.ru/forum.php/tips.php?thread_id=6474 :) В приложении готовое решение. Ячейка с Данными может быть как и абсолютно пустая, так и с формулой, возвращающей пустое значение. Может, не так изящно, как с формулами массива, зато работает наверняка! )

"Пусто" получается как результат формулы. Поместив в пустую ячейку указанного диаппазона исходного столбца хотя бы формулу типа ="", то и получается ошибка.

Здравствуйте ещё раз. ) Формула работает, если пустая ячейка в исходном столбце абсолютно пустая. Если же в ней поместить формулу, которая будет возвращать пустую ячейку как результат вычисления (напр., =ЕСЛИ(F1=””;””;F1+J1)), то эта формула выдаёт ошибку. Как устранить эту проблему? Спасибо заранее!

Kim, спасибо! Супер! То, что нужно! Рекомендую использовать эту формулу всем, у кого будет такая же задача. Z, спасибо и вам за желание помочь! :)

Спасибо, Z, за помощь. Не думал, что столь огромная формула и есть решение задачи. ) Применил её. Но почему в ячейке B2 появляется 0, и не показываются повторяющиеся данные (буквы)?

Спасибо, Z и Kim. Этот процесс должен происходить автоматически, поэтому использовать совет Kimа не получится. Перелопатил и предложенные Z-ом варианты запроса, но везде только подсчёт непустых ячеек. Можно ли осуществить задачу формулой?

Здравствуйте, уважаемые форумчане! Поискал на форуме возможное решение задачи, ответа не нашёл. Суть такова. Есть список с данными в одном столбце, но между ними есть и пустые ячейки. Как можно создать сплошной список в другом столбце из данных этого списка, игнорируя пустые ячейки между данными (не удаляя строки)? Спасибо заранее!

Спасибо. Будем искать. )

Здравствуйте, уважаемые форумчане!  
В ячейке есть, например, такая вот формула:  
= “Здравствуйте, “ & A1 & “!”  
Если установить полужирный шрифт (Ж) для этой ячейки, то, естественно, весь текст ячейки будет соответствующего шрифта. Можно ли сделать так, чтобы лишь ссылка в этой формуле (т.е. вставляемое значение) выделялась этим шрифтом? Видимо, тут не обойтись без макроса. В поисковике есть подобные примеры, но ответа на конкретно этот вопрос не нашёл. Спасибо!

Hugo, спасибо огромное! То, что нужно! )

Поместите в модуле ЭтаКнига этот макрос:  
   Sub Workbook_BeforeClose(Cancel As Boolean)  
   ActiveWorkbook.Sheets("Sheet1").Select  
   ActiveSheet.Protect Password = "123"  
   ActiveSheet.EnableSelection = xlNoSelection  
   ActiveWorkbook.Save  
   End Sub  
Пароль и название листа, естественно, - свои.) Перед закрытием книги будет автоматически паролиться необходимый лист и сохраняться внесённые изменения.

Здравствуйте, уважаемые форумчане! Посмотрел в поисковике, но ответа на вопрос так и не нашёл. Как сделать проверку ячейки, в которой должны быть только цифры и пробел между определёнными их сочетаниями на наличие в ней каких-либо букв так, чтобы при их обнаружении выдавалась ошибка или же просто требовалось повторное корректное введение числовых данных? Сделал обычную проверку на количество введённых цифр, но она не отменяет появление среди них букв. Как понимаю, это может сделать лишь макрос. Спасибо, кто откликнется!

Да, внутреннее шифрование Excel оставляет желать лучшего, конечно. Спасибо, The_Prist за совет! Пусть эти самые программки хоть немного заморотятся расшифрованием, не без боя, так сказать. ) Интересно, почему же Microsoft не работают над этим недочётом? Это вопрос, естественно, не сюда. )

Добрый вечер, уважаемые форумчане! Есть ли какие советы по созданию более-менее стойких паролей для защиты листов и проекта VBA от программ-взломщиков? Спасибо.

Спасибо большое, SVA! Путь, естественно, необходимо добавить свой.

Здравствуйте. Можно ли макросом поместить линк в меню Пуск - Выполнить?

Спасибо. Достаточно и одно раза.)

Спасибо. Учтём. )

Уважаемый Михаил С, подскажите, каким способом вы сделали вариант post_277394.xls?

Здравствуйте! Подскажите, пожалуйста, почему при нажатии на ссылку с прикреплёнными документами RAR в ответах на темы, появляется не окошко с предложением скачать документ (как обычно), а текст с массой непонятных иероглифов? Как правильно скачать архив?

Здравствуйте. Подскажите, почему при нажатии на ссылку с документами RAR,как и в приведённом примере, появляется не предложение скачать документ (как обычно), а текст с массой непонятных иероглифов? Как правильно скачать архив?

Нашёл, в чём была проблема. В строке Worksheets("Baza").Copy должно быть Worksheets("Baza").Cells.Copy  Возможно, эта поправка необходима для Office 2007-го. Как уже отметил выше, теперь появилась проблема с SendMail. Кто может объячнить, в чём тут дело?

Заметил и след.факт: если уберу в макросе часть кода насчёт копирования и присвоения имени новой книге, то начинает ругаться и на метод SendMail. Может, это какие-то настройки в VBA нужно сделать, если таковые имеются?

Спасибо большое за ответы. Но вопрос не о раскладке букв. С этим всё понятно.. Вот тот же код с латинским названием листа. Почему же всё ругается на этот метод Copy??  
Sub Mail_ActiveSheet()  
Dim strdate As String  
Worksheets("Baza").Copy  
strdate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")  
ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _  
& " " & strdate & ".xlsx"  
ActiveWorkbook.SendMail "someone@microsoft.com", _  
"Subject_line"  
ActiveWorkbook.ChangeFileAccess xlReadOnly  
Kill ActiveWorkbook.FullName  
ActiveWorkbook.Close False  
End Sub

У меня Excel на русском, потому названия листа Лист1 и т.д. При копировании сюда, русский шрифт отобразился такими символами. Но результат тот же с Debug, если и переименую лист на английское название и укажу на него в макросе.

Добрый вечер, уважаемые форумчане! Поздравляю всех мусульман со священным праздником Курбан байрам! )  
  Нашёл на форуме нижеследующий макрос по отправке листа книги по email. При выполнении появляется Debug с надписью: Метод Copy из класса Worksheet завершён неверно. Что тут неверного? Спасибо всем, кто поможет разобраться с этой ошибкой!  
 
Sub Mail_ActiveSheet()  
Dim strdate As String  
Sheets("Ëèñò1").Copy  
strdate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")  
ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _  
& " " & strdate & ".xls"  
ActiveWorkbook.SendMail "someone@microsoft.com", _  
"Subject_line"  
ActiveWorkbook.ChangeFileAccess xlReadOnly  
Kill ActiveWorkbook.FullName  
ActiveWorkbook.Close False  
End Sub