Приветствую форумчан.
Есть небольшое дельце..

Дано: Прайс поставщика вот в таком формате:

[img]http://img-fotki.yandex.ru/get/9254/13200805.f/0_da8db_fac6c59f_XL.jpg[/img]

Надо: Переделать его в csv в формате загрузки в БД Магазина.

https://cloud.mail.ru/public/595f869686bb/product_export_0-1000_2014-03-13-1149.csv

При этом из прайса нужно выделить производителя, модель, размер и что-то там ещё.
Обратите внимание на кодировку.
В общем, ничего супер сложного. Сделал бы сам, но времени нет (мотошмотки же, а сезон на носу).
Подробности желающим расскажу в Скайпе или по телефону.

Предложения, с указанием примерной цены, срока, скайпа или телефона, пишите, пожалуйста, в личку.
Я с Вами свяжусь, обсудим детали.
Заранее всем спасибо.

Алексей

Задача очень простая.  
Есть надстройка. В надстройке есть единственный лист, назван "Spravochnik".  
На листе есть столбец со справочными значениями - SprCol (начиная с 4 строки)  
 
Необходимо проверить содержимое нескольких ячеек (EmplRow, EmpCol)с листа Worksheets("Employees") открытой и (на момент начала проверки активной) книги на соответствие справочнику.  
 
Если значение ячейки не соответствует справочнику - красим эту ячейку (на листе "Employees") в красный цвет.  
 
Написал процедуру (см ниже). Работает!  
 
НО ЯЧЕЙКА НЕ КРАСИТСЯ. Просто слетает и всё.  
 
Вопрос: Почему?  
 
Sub Check120(EmplRow, EmpCol, SprCol)  
   Dim i As Byte  
   Dim St As String  
   St = Trim(Worksheets("Employees").Cells(EmplRow, EmpCol))  
   LastSprCol = Spravochnik.Cells(Rows.Count, SprCol).End(xlUp).Row  
   For i = 4 To LastSprCol  
   If St = Spravochnik.Cells(i, SprCol) Then  
   Exit Sub  
   Else  
   End If  
   Next  
   Worksheets("Employees").Cells(EmplRow, EmplCol).Interior.ColorIndex = 3  
   Worksheets("ErrLog").Cells(LogRow, 3) = "Значение поля '" & Worksheets("Employees").Cells(1, EmplCol) & "' не соответствует справочнику"  
   LogRow = LogRow + 1  
End Sub

Всем привет.  
Поиском ничего похожего не нашел. Странно, задача по идее не эксклюзивная.  
Есть некая ведомость. Необходимо проверить каждую ячейку столбца "Фамилия" на недопустимые в фамилии символы.  
По идее фамилия может содержать только буквы А-Я и A-Z ну и "-".  
А символы типа ".", ":","?","*","..." т.д. - являются недопустимыми.  
 
Помогите плз. грамотно решить задачу.  
 
Алексей  
(файл прикладывать смысла нет, суть вроде ясна)