Большое спасибо Сергей!!!  
 
off: да расслабился. увлекся другими вещами))) и как то потихоньку позабыл VBA.) но наверстаю, обязательно)))    
ikki, нет в армии не отслужил. не хотят меня забирать)  
 
еще раз Большое спасибо!

Здравствуйте уважаемые форумчане!)))  
помогите пожалуйста в одном вопросе. сам на прочь позабыл все что умел когда-то!  
как разнести данные из одной ячейки в другие? например в одной ячейке записаны два-три номера и их надо разнести в соседние! напомните пожалуйста как это сделать  
 
Большое спасибо)

прошу прощения, не обратил внимание что скрин отсутствует. (приложил еще раз)  
 
Казанский, спасибо! прочитал. если правильно понял, то средствами excel это не обойти?

Здравствуйте уважаемые форумчане! подскажите возможно ли решить такой вопрос. в файл excel добавил объект (файл с расширением .exe). как можно запустить его, не нажимая каждый раз появляющееся окно с подтверждением?  
 
выполняется например такой макрос:  
ActiveSheet.Shapes.Range(Array("Object 1")).Select  
Selection.Verb Verb:=xlPrimary  
 
появляется окно (см. скрин), вот его и надо убрать.  
 
это не помогает.  
Application.EnableEvents = False  
Application.DisplayAlerts = False  
 
Спасибо!

ох. только заметил, что надо НЕ пустые ячейки удалять) простите.  
SpecialCells(xlConstants, 1)

вот такой вариант  
 
Sub io()  
Sheets("Недостача").UsedRange.Offset(1).Columns("C").SpecialCells(xlBlanks).Rows.Delete  
End Sub  
 
правде если пустых ячеек не будет, появиться ошибка. тогда можно добавить обработчик ошибок.

а вот так, не то?  
 
Private Sub Workbook_Open()  
On Error GoTo err  
   With GetObject("\\I61823528\ИС\Проба\Новая папка\База.xls")  
       Заставка.Show 0  
           .Worksheets("ТИТУЛ").ScrollArea = "A1:l30"  
               .Worksheets("JPH_RO").ScrollArea = "A1:r40"  
                   .Worksheets("ПРОСТОИ").ScrollArea = "A1:m42"  
                       .Worksheets("Ввод данных").ScrollArea = "A1:o31"  
                          .Close True  
                             Unload Заставка  
   End With  
   Exit Sub  
     
err: MsgBox "Not Ready!!!", vbCritical  
    Exit Sub  
End Sub

все правильно поняли!  
на всякий случай, если вдруг соберетесь(мало ли) распечатать больше 255 копий замените тип переменной.)  
Dim numCopies As Integer

Sub Печать_Щелчок()  
Dim numCopies As Byte  
   If Application.Dialogs(xlDialogPrinterSetup).Show = False Then Exit Sub  
 numCopies = Application.InputBox("Кол-во копий", , 1)  
   If numCopies = False Then Exit Sub  
 [A1:M42].PrintOut Copies:=numCopies
End Sub

все просто  
If Application.Dialogs(xlDialogPrinterSetup).Show = False Then Exit Sub

так.

может так еще можно  
Application.Dialogs(xlDialogPrinterSetup).Show  
Selection.PrintOut Copies:=Application.InputBox("Кол-во копий", , 1)

variable not defined = Переменная не определена  
объявите переменные в макросе

.

мне тоже не давно помогали с таким же вопросом  
 http://www.planetaexcel.ru/forum.php?thread_id=38745

С Днем Рождения!  
 
Желаю здоровья, желаю успеха,  
Чтобы слезы блестели только от смеха,  
Чтоб счастье и радость в улыбке светились,  
Чтоб все пожеланья осуществились!

еще вариант. макрос.

недавно на скорую руку так делал: (14032012 - 14.03.2012)  
Private Sub TextBox1_Change()  
If Right(Left(TextBox1, 3), 1) Like "." Then Exit Sub  
If Len(TextBox1) = 8 Then TextBox1= Left(TextBox1, 2) & "." & Mid(TextBox1, 3, 2) & "." & Right(TextBox1, 4)  
End Sub

прошу прощенья. невнимательность!

в "B2"  =ВПР(A2;$E$2:$F$4;2)

еще вариант. (макрос)

MAKSIS свяжитесь со мной по почте ( fimi-on@yandex.ru ), у меня кажется есть то что Вам может понравиться.

Большое спасибо Всем за помощь и подсказки.  
 
будем перерисовывать бланк в xls книгу  
просто думал есть какие то функции в VBA, для переноса данных в PDF.  
 
Спасибо еще раз.

[прохожий]:
выкладывать нечего. xls с заполненным столбцом?!

[RAN]:
>сделать в xls?  
над этим уже идет кропотливая работа. просто бланк очень ВАЖНЫЙ и все границы, поля, таблицы и т.п. должны быть абсолютно точными.(до миллиметра, во как.)  
 
[subtlety]:
>Зачем, для печати?  
абсолютно точно.

смысл не сохранить xls в pdf формате , а вставить некоторые данные из xls в pdf файл

subtlety, т.е получается сначала распечатываем шаблон PDF, затем сверху excel ?! так не пойдет.  
RAN, в том то и дело, что в книге нет такого шаблона.    
 
в книге есть лист (информационный), в котором в столбец записана информация, с этого листа формулами информация разбрасывается по бланкам(в книге) и есть один бланк(которого нет в книге) в формате PDF/ вот мне и надо с этого инфо-листа вытянуть данные в бланк PDF.

спасибо за вариант. но это не то.

есть основная книга xls с большим кол-ом бланков и есть доп.бланк-шаблон PDF  
так вот надо из основной книги взять некоторые данные и вставить их в определенные строки бланка PDF.  
 
в настоящий момент приходится писать одну и тужу информацию по два раза.

Здравствуйте!    
 
подскажите возможно ли связать xls и pdf ? и как? (VBA)  
т.е. надо значения определенных ячеек (xls) вставить в определенные строки бланка PDF  
 
 
где посмотреть инфо? (сам ни чего не нашел)