Здравствуйте, помогите решить проблему с форматом данных.  
 
Существует таблица, которая объединяет данные 3х столбцов.  
Во второй таблице есть данные, которые должны автоматические подставляться в первую таблицу.  
Проблема в том, что данные второй таблицы должны иметь определенный формат и в результирующей таблице этот формат должен быть сохранен.  
Внешне я сумел этого добиться, но при запуске макроса мои старания идут на смарку, так как в получающемся текстовом файле формат данных не сохраняется.  
 
В прикрепленном файле всё разъяснено и описано получше.

Помогите справиться с проблемой.  
 
Есть 2 листа:  
1 Лист - Табличная база данных, периодически редактируемая путём удаления строк некоторых работников или добавлением новых. У каждого есть индивидуальный номер.  
2 Лист - Лист для распечатки индивидуальный номер работников, причем он должен быть связан с таблицей, чтобы при удалении или добавлении работников она соответствующим образом корректировалась. Причем последовательность номеров должна быть той же, что и в таблице.  
 
Я пытался сделать это несколькими способами. Такими кодами как:  
 
=База!A2 (не подходит, т.к. в случае пустой клетки выдает сообщение "нет данных")  
=База!$A$2  
=ЕСЛИ(База!A2>0; База!A2; "")  
=ЕСЛИ(База!$A$2>0; База!$A$2; "")  
 
Вбивал их в первый столб и протягивал на всю колонку, затем с небольшими изменениями на порядковое число переносил на следующую колонку и снова протягивал.  
 
Проблема заключается в том, что    
1.Когда я удаляю строку в "Базе" в листе "Печать" индивидуальные номера не сдвигаются, занимая место удаленного, а ячейка с удаленным номером принимает вид "#ССЫЛКА!".  
 
2.Есть ли способ замены моего рутинного способа протягивания кода на каждый столбец более автоматизированным?  
 
Пример прилагается.  
 
Заранее благодарен!

Помогите создать макрос экспорта содержимого ячеек F2:F75 из Excel в txt.  
Из блужданий по сети нашел код  
 
Sub ExportAsText()  
  Dim lngRow As Long  
  Dim intCol As Integer  
   
  Open "C:\primer.txt" For Output As #1  
  For lngRow = 1 To Selection.Rows.Count  
     For intCol = 1 To Selection.Columns.Count  
        Write #1, Selection.Cells(lngRow, intCol).Value;  
     Next intCol  
     Print #1, ""  
  Next lngRow  
  Close #1  
End Sub  
 
Но столкнулся с проблемой незнания Visual Basic.  
1. Данный макрос для всего документа, а не для содержимого определенных ячеек.  
2. Как бы я не изменял его, в итоговом текстовом файле каждая строчка обособлена кавычками, а в конце еще и запятой.  
3. Необходимо, чтобы макрос не был привязан к определенному листу книги.  
4. Возможно ли, чтобы при сохранении у названия итогового файла были определенные параметры.  
 
Например:  
- Параметр даты создания "primer DD.MM.YY HH:MM.txt"  
или    
- Параметр содержимого ячейки A1 "ptimer =A1.txt"  
 
Заранее благодарен!

Возникла необходимость заполнить огромный журнал с описью и характеристиками изделий, а сами данные есть уже в Excel.  
 
Как перенести эти данные в уже готовые формы?  
Возникли две идеи, но как это сделать не знаю.  
 
Вариант 1. (предпочтительный)  
Создать таблицу по размерам соответствующую бланку (с размерами полей, ячеек, отступов). Соответственно каждый лист бумаги с размерами должен быть одинаковым, только данные - продолжение таблицы. И так, чтобы она сама не пропечатывалась, только её данные. Чтобы можно было заправить листы журнала в принтер и распечатать только данные в соответствующие графы бланков.  
 
Вариант 2.  
Создать форму-таблицу, аналогичную листам из журнала и вставить в эту таблицу данные. Но тогда нужно чтобы эта форма-таблица на каждой странице выглядела одинаково, включая название таблицы, примечания,названия разделов документации и прочие данные, находящиеся вокруг таблицы. Чтобы самому печатать эти листы.  
 
Примерный вид бланка прилагается.  
 
Пробовал пользоваться Form Pilot Office для этих целей, но функции заполнения целых перечней не нашёл, лишь одноразовое заполнение таблиц в одних и тех же графах.