здравствуйте! получила файл с кодом(и утверждением, что он рабочий так как использовался раньше).при запуске кричит на создание объекта(в интернете проверила-имеено так и пишут)...запускаю в excel 2007.  
 Dim hdr,env  
       Set env = CreateObject("pocketSOAP.Envelope.11")  
       env.EncodingStyle = ""  
ошибка "ActiveX component can't create object"  
буду благодарна за любую подсказку!  
Елена

Спасибо, Hugo. так и сделала.

Вот ведь! С english US и  English UK я пробовала поиграться, и безрезультатно... А он оказывается русский хочет!!! Бред!!!! Разве функция Month не должна одинаково обрабатывать все форматы? И что мне теперь весь завод заставить учить русский? Чушь какая-то!  
Спасибо всем за помощь огромное! Пойду думать, если придумаю -отпишусь...

{quote}{login=RAN}{date=10.05.2012 11:44}{thema=}{post}Поглядел. Msgbox 2 видел, Msgbox 12 - нет.{/post}{/quote}  
а что Вам показывает первый MSGBOX? у меня 12:02:12 AM -то есть  как время....

в смысле? вам выдает месяц 2? Но у меня 12???

нет оказывается так, извените  
Скачать file.rar с getzilla

или надо так?  
http://www.getzilla.net/files/3371306/file.rar.html

уф, большой а если так  
http://www.getzilla.net/filesofuser

to LightZ  
- cDate добавляла от отчаяния :( ...убрала  
- relevantMonthCap объявите как Byte  
не помогает  
- Вводите значение в Cells(r, 2), а месяц пытаетесь вытянуть с Range("b" & indexRow2) или у Вас это одна и та же ячейка? Зачем? :)  
это та же ячейка... обработка разная для разных листов...    
через форму поступают данные в разные листы: те, что часто добавляются идут в помесячные файлы для каждого и потом обрабатываются в отчете  (без затрагивания дыты (все чудненько работает..)  
один редко добавляемый вид продукции вносится в лист CUPS и теперб пришло время обработать и его в отчете и ...приехала:)  
 
to ikki  
Файл покромсала, ... вроде можно проверить  
заходите на лист CUPS REPORT  и жмите на кнопку REFRESH  
Почему он видит данные как время, а не дату???  
 
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

и если просто обработать month(date) все в порядке  
чудес не бывает, значит что-то в данных ячейки,  
ячейки определены как тип date  
файл огромный, да еще и с ивритом -все равно не пойдет...

to Юрий М  
покажу, что получаю в DEBUG  
 
значит так, определили тип переменной как Date  
Public relevantMonthCap As Date  
 
приняли в переменную данные из ячейки  
relevantMonthCap = Sheets(choosedSheetForReport).Range("b" & indexRow2).Value  
DEBUG: Sheets(choosedSheetForReport).Range("b" & indexRow2).Value  "01.02.12"  
relevantMonthCap 12:00:00 AM  
ПОЧЕМУ как время?!  
 
после: relevantMonthCap = Month(relevantMonthCap)  
DEBUG: relevantMonthCap  1/11/1900  
???

помогите ,пожалуйста:  
есть дипазон ячеек с датами, внесенными на протяжении года с помощью  
   .Cells(r, 2).Value = VBA.Format(VBA.Date, "dd.mm.yy")  
теперь требуется определить строки по месяцам, для этого присваиваю переменной значение дыты в первой строке  
 
Public relevantMonthCap As Integer  
...  
relevantMonthCap = Month(CDate(Sheets(choosedSheetForReport).Range("b" & indexRow2).Value))  
и в значении получаю бред: из ячейки с датой 01.02.12 получаю значение 12!!!  
Объясните, кто может, пожалуйста!

Здравсттуйте.  
Есть файл, из него отправка письма с прикрепленным файлом , созданным командами:  
----------------  
ThisWorkbook.Sheets(CurrentWorksheetName).Copy       'копирование  
Call DeleteModulesAndCode                            'удаление кода, модулей, форм...  
ActiveWorkbook.SaveAs "NewDelay", 56                 ' СОХРАНЕНИЕ ПОД ОПРЕД. ИМЕНЕМ  
----------------  
во время сохранения выскакивает предупреждение о несоответствии другим версиям Excel каких-то компонентов  в сущ. файле (именных диапазонов)    
Как избавиться то этого предупреждения, подскажите, пожалуйста.

{quote}{login=sva}{date=29.12.2011 01:30}{thema=}{post}Попробуйте так:  
ActiveCell.FormulaR1C1 = _  
"=SUMIFS(" & choosedSheetForReport & "!R[-4]C[6]:R[42]C[6]," & choosedSheetForReport & "!R[-4]C[5]:R[42]C[5], " & choosedSheetForReport & "!R[-4]C[11]," & choosedSheetForReport & "!R[-4]C[12]:R[42]C[12],1)"{/post}{/quote}
спасибо большое!    
Стыдно признаться -но все гораздо хуже... При копировании потеряла 2 знака !R..  
ваш первый вариант верный. Спасибо!

{quote}{login=sva}{date=29.12.2011 01:18}{thema=}{post}Листы будут в одной книге?{/post}{/quote}  
 
Да

{quote}{login=sva}{date=29.12.2011 01:05}{thema=}{post}ActiveCell.FormulaR1C1 = _  
"=SUMIFS(' " & choosedSheetForReport & "'!R[-4]C[6]:R[42]C[6],'" & choosedSheetForReport & "'!R[-4]C[5]:R[42]C[5],' TableHelp'!R[-4]C[11],'" & choosedSheetForReport & "'!R[-4]C[12]:R[42]C[12],1)"{/post}{/quote}
 
Вы правы!!!, я это попробовала -но  тоже не идет...

Уважаемые спецы!  
Я создала макрос, использующий функцию SUMIFS. Мне необходимо, чтобы он работал для любого заданного листа.Пользователь вводит через USERFORM   его название, которое принимает STRING переменная  choosedSheetForReport.  
Но макрос ее не переваривает и выдает " Application-defined or object-defined error"  
 
Public choosedSheetForReport As String  
...  
было так:  
   ActiveCell.FormulaR1C1 = _  
       "=SUMIFS(' plastic'!R[-4]C[6]:R[42]C[6],'plastic'!R[-4]C[5]:R[42]C[5],' TableHelp'!R[-4]C[11],' plastic'!R[-4]C[12]:R[42]C[12],1)"
я пыталась таким образом:  
   ActiveCell.FormulaR1C1 = _  
       "=SUMIFS('" choosedSheetForReport"'!R[-4]C[6]:R[42]C[6],'" choosedSheetForReport "'!R[-4]C[5]:R[42]C[5],' TableHelp'!R[-4]C[11],' "choosedSheetForReport "'!R[-4]C[12]:R[42]C[12],1)"
И вот так:    
   ActiveCell.FormulaR1C1 = _  
       "=SUMIFS(choosedSheetForReport!R[-4]C[6]:R[42]C[6],choosedSheetForReport!R[-4]C[5]:R[42]C[5],' TableHelp'!R[-4]C[11],choosedSheetForReport !R[-4]C[12]:R[42]C[12],1)"
не идет...    
Подскажите, пожалуйста, где ошибка  
спасибо

Здравствуйте !  
Возможно ли отловить закрытие PDF файла который я создала макросом и он открыт для просмотра после создания (OpenAfterPublish:=True)?

Спасибо -работает!

To KukLP: спасибо за советы, но помогло вот что:если из исходного текста убрать пробелы между числом и словом то, накладка исчезает.вероятно какой то баг в ивритской версии..:)

спасибочки огромное!  
а может кто знает почему он не переваривает там же метод cntrl.Visible = True ?  
если убрать работает?..  
If TypeName(cntrl) = "TextBox" Then  
   If cntrl.Text = "" And cntrl.Visible = True Then  
.....

здравствуйте, на форме существуют контролы и я порхожу по ним    
Private Sub CommandButton_print_Click()  
Dim cntrl As Control  
For Each cntrl In UserForm1.Controls  
If TypeName(cntrl) = "ComboBox" Then  
   cntrl.ShowDropButtonWhen = fmShowDropButtonWhenAlways  
   cntrl.SpecialEffect = fmSpecialEffectSunken  
End If  
Next cntrl    
 
а как сделать то же самое для контролов на листе? не пойму что должно стоять вместо UserForm1???  
спасибо

здравствуйте, уважаемые.  
происходит заполнение textBox с таблицы и иногда текст накладывается сам на себя, причем, если встать на него курсором -все исправляется -убрать снова наложение.  
может , кто сталкивался? прилагаю картинку -наложение в 10 строке (текст на иврите, поэтому не читабельный)  
спасибо