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

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

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

Здравствуйте!  
в Class Modules написал:  
Public WithEvents MyCommandButton As MSForms.CommandButton  
 
Sub MyCommandButton_Click()  
   MsgBox "TEST"  
End Sub  
 
по идеи, нажимая на CommanButtons(n) в формах, должно появляться сообщение "TEST". подскажите почему не работает.  
 
Спасибо!

Здравствуйте!    
подскажите пожалуйста.  
надо заменить  
Me.Picture = LoadPicture("\путь к файлу\*.jpg")  
так чтобы картинки брались из самой книги с определенного листа  
пробовал  
Me.Picture = Sheets(1).Shapes("Рисунок 1")  
но увы провал...

Здравствуйте!    
нашел код, который добавляет кнопки управления формой  "_[]X"
 
подскажите как открыть форму сразу в развернутом виде?  
 
Спасибо!

Здравствуйте! простите если тема названа не очень правильно.  
каждый день мы с вами скачиваем с форума много(или не очень) файлов, по умолчанию у меня они сохраняются в папку "C:\Users\AKSENOV_048\Downloads", со временем файлов становиться очень много и папку надо чистить, но удалять все тоже не надо, т.к. есть файлы с интересными примерами, которые хотелось бы оставить.  
   
так вот чего захотелось, написать макрос который бы, если файл открыт из папки \Downloads,  при закрытии книги спрашивал Удалить книгу? Да/Нет. Да - удаляем / Нет - сохраняем в другую папку  
 
код написал, но вот куда его вставить понять не могу. в PERSONAL? подскажите!) как сделать правильно?  
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)    
Dim WB As Workbook, iPath As String, ToPath As String  
Set WB = ActiveWorkbook  
iPath = "C:\Users\AKSENOV_048\Downloads"  
ToPath = "D:\Excel\planetaexcel.ru"  
   If WB.Path = iPath Then  
       
    Select Case MsgBox("Удалить этот файл?", vbYesNo)  
     Case vbYes  
       With WB  
         .ChangeFileAccess xlReadOnly  
         SetAttr .FullName, 0  
         Kill .FullName  
         .Close True  
       End With  
 
     Case vbNo  
       ChDir ToPath  
       WB.SaveAs Filename:=ToPath & "\" & InputBox("Сохранить файл под именем:", , "Пример") & ".xls", FileFormat:=xlExcel8  
    End Select  
       
   End If  
End Sub  
 
 
Спасибо!