благодарствую Марчук Pavel55 Igor67 Юрий М и остальным мудрым знатокам  
кстати на http://forum.msexcel.ru/microsoft_excel/ есть кнопочка типа спасибо - оказать уважение

че то не дошло  
svpalagin@km.ru

ну и сюда если не жалко, заранее спасибо  
svpalagin@km.ru

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

в описании файла ausvice написано что среда разработки эклипс  
 
Eclipse представляет собой основанную на Java расширяемую платформу разработки с открытым исходным кодом. По сути - это просто среда разработки и набор сервисов для построения приложений на основе встраиваемых компонентов (плагинов). В архиве предустановленный PDT (PHP Developer Tool) Plugin  
господа эксперты кто знаком???? реально может с ексель взаимодействовать???

EMironov@tsng.novatek.ru  
лови

господа вопрос в чем сделано то что я прикрепил  
если с помощью эксель то где скачать такие приблуды???

МАРЧУК а в этих ссылках что конкретнее скажи пожалуйста. не охота просто так трафик плавить  
http://rapidshare.com/files/177026867/Excel2007.part1.rar  
http://rapidshare.com/files/177029797/Excel2007.part2.rar  
http://rapidshare.com/files/177020097/mur_ekonomika.part1.rar  
http://rapidshare.com/files/177023061/mur_ekonomika.part2.rar

а что за тип файла docx ???    
в чем его смотреть???

вопрос снят сам разобался

вопрос снят сам разобался

ну вроде как макрос экселевский должен в это время создать ворд а после выполнения его закрыть хотя на панели задач ворд не выскакивает

уважаемые знатоки  
у меня есть макрос в ворд  
Sub Макрос4()  
   Selection.Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, _  
       NestedTables:=True  
   Selection.Find.ClearFormatting  
   Selection.Find.Replacement.ClearFormatting  
   With Selection.Find  
       .Text = "_"  
       .Replacement.Text = " "  
       .Forward = True  
       .Wrap = wdFindAsk  
       .Format = False  
       .MatchCase = False  
       .MatchWholeWord = False  
       .MatchWildcards = False  
       .MatchSoundsLike = False  
       .MatchAllWordForms = False  
   End With  
   Selection.Find.Execute Replace:=wdReplaceAll  
End Sub  
 
пытаюсь запустить его из ексель макросом  
 
Dim wbApp As Object  
Set wbApp = GetObject(, "Word.Application")  
wbApp.Run "Макрос4"  
 
а он мне в ответ  
run time error 5941  
запрашиваемый номер семейства не существует  
хотя макросы типа  
Sub Макрос5()  
MsgBox "Hello, Word! : )"  
End Sub  
работают нормально не ругаясь  
может что то подставить надо???

Добрый день уважаемые знактоки  
у меня есть в ворд один макрос  
Sub Макрос4()  
   Selection.Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, _  
       NestedTables:=True  
   Selection.Find.ClearFormatting  
   Selection.Find.Replacement.ClearFormatting  
   With Selection.Find  
       .Text = "_"  
       .Replacement.Text = " "  
       .Forward = True  
       .Wrap = wdFindAsk  
       .Format = False  
       .MatchCase = False  
       .MatchWholeWord = False  
       .MatchWildcards = False  
       .MatchSoundsLike = False  
       .MatchAllWordForms = False  
   End With  
   Selection.Find.Execute Replace:=wdReplaceAll  
 
пытаюсь запустить его из ексель  
Dim wbApp As Object  
Set wbApp = GetObject(, "Word.Application")  
wbApp.Run "Макрос4"  
 
а мне в ответ    
End Subrun time error 5941  
запрашиваемый номер семейства не существует  
 
хотя на макросы попроще совсем не ругается  
может что-то добавить нужно????

Уважаемые форумчане экселеводы от всей души поздравляю вас с Новым 2009 годом  
всем желаю карьерного роста и творческих успехов.

всем спасибо тему можно закрывать  
проблему решить помогли  
Удалите ветку реестра:  
[HKEY_CURRENT_USER\Software\Microsoft\VBA\6.0\Common]
 
всех с новым годом

всем огромное спасибо  
я еще не совсем разбираюсь в VBA  
дело было в  
Call FillCombo  
тему можно закрывать  
все получилось

извиняюсь забыл вложение

в общем такой вопрос на листе ПЧД есть два списка один не изменяемый  
второй такой же только имеет возможность добавления через юзерформ7  
т.е. дописывает в конец  
мне необходима сортировка  по комбо 9.10.11 (сопровождение)  
по списку 2 (b34:b150)  
 
все выложеные примеры в итоге выдают type mismath  
помогите господа

господа замучился  
каким то образом расположение окон в vba увел от стандартных настроек  
т.е. сейчас открываются хаотично  
как вернуть на место?

на последний ругается  
Run-time error '438':  
Object doesn't support this property or method  
посылает на  
Next Item  
   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear  
   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("A1"), _

вот пример соорудил  
спасибо заранее

блин вопрос назад  
не работает то что нашел

все нашел    
разбираться пошел

извеняюсь если было но найти не смог  
возможна ли сделать чтобы отображаемые данные в комбо бокс  
сортировались независимо от данных из исходного диапазона  
т.е. допустим у мня на листе 1,5,8,3, так и должно остаться  
а в комбо соответстно 1,3,5,8 и т.п.

Marchuk  
спасибо за ссылки

Pavel55  
огромное спасибо за подсказку  
просто я пока не очень сторонюсь сокращений    
(я об этом не даже не догадывался)  
пока главное работоспособность  
вот скоро допишу что хотел тогда буду изучать ускорение  
еще раз спасибо

http://www.planetaexcel.ru/forum.php?thread_id=7507  
re - могу выложить их на рапиду.  
Marchuk выложи пожалуйста и ссылочку в студию

Влад спасибо вопрос снят все работает

уважаемые знатоки тут столкнулся  
в userform создаю combobox с выбором даты, 'задаю формат дата  
If Me.ComboBox1.Value <> "" Then  
Me.ComboBox1.Value = Format(Me.ComboBox1, "dd/mm/yyyy")  
End If  
далее все это уходит на лист  
Sheets("ведомость").Select  
   Range("l3").Select  
      ActiveCell.Value = UserForm1.ComboBox1.Value  
но тут начинается проблема строка l3 перестает участвововать в дальнейшем процессе  
до тех пор пока ее не кликнешь вручную    
но если убрать    
If Me.ComboBox1.Value <> "" Then  
Me.ComboBox1.Value = Format(Me.ComboBox1, "dd/mm/yyyy")  
End If    
то сразу все приходит в норму значит ошибка зарыта где-то в тексте формул  
помогите чайнику