{quote}{login=RAN}{date=28.07.2011 01:58}{thema=}{post}До обалдения хитрый файл!  
Попробуйте запустить в нем макрос в любом столбце, кроме А  
Sub wwww()  
With Selection  
aa = .Address  
a = .Range(Selection.Address).Value  
End With  
End Sub{/post}{/quote}  
 
 
это что шутка?

{quote}{login=nilem}{date=28.07.2011 01:44}{thema=}{post}28-й вариант :)  
 
Sub поискизамена()  
With Columns("H:H")  
   .Replace " ", ""  
   .Replace "'", ""  
End With  
End Sub{/post}{/quote}  
 
Спасибо всем за помощь, варианты Гиганта и Nilem работают,  
только конечно я не понял как  
 
Replace " ", ""  -почему????

{quote}{login=KukLP}{date=28.07.2011 01:21}{thema=}{post}В системных разделителях. См. язык и региональные стандарты.{/post}{/quote}  
 
 
 извините за необразованность, но что там нужно смотреть и что менять.  
пример файла на всякий случай прилагаю(это отчет который выгружается из 1с)

Добрый день.  
Не могу понять почему код    
Sub поискизамена()  
'  
' поискизамена Макрос  
'  
 
'  
   Columns("H:H").Select  
   Selection.Replace "'", "", LookAt:=xlPart, _  
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _  
       ReplaceFormat:=False  
   Columns("H:H").Select  
   Selection.Replace ".", ",", LookAt:=xlPart, _  
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _  
       ReplaceFormat:=False  
End Sub  
 
ищет то что нужно, но заменяет на какие-то пробелы,  
например было 6'054.379 заменяет на 6 054 379, а нужно 6054,379.  
 
Может кто подскажет в чем причина...?

{quote}{login=Deamelfuse}{date=26.07.2011 06:07}{thema=У меня вот такая проблема возникла как подбной структуре}{post}Адаптеры  
Адаптеры | PCI/PCMCIA Адаптеры  
Адаптеры | PCI/PCMCIA Адаптеры | TP-Link  
Адаптеры | USB Адаптеры  
Адаптеры | USB Адаптеры | Alpha  
 
задать нумерацию  
 
1  
1|2  
1|2|3  
1|4  
1|4|5  
 
да так, чтобы всё начиналось например с 171, т.е.  
 
171  
171|172  
171|172|173  
171|174  
171|174|175{/post}{/quote}  
 
я так понял, что вас максимум два подуровня?  
известны ли вам все возможные уровни?

{quote}{login=ZVI}{date=26.07.2011 06:37}{thema=Re: }{post}{quote}{login=kukushkin}{date=26.07.2011 04:43}{thema=}{post}А как решить вторую часть? Можно ли вытянуть из Outlook какую-нибудь переменную, свидетельствующую о том, что сама отправка письма прошла успешно (без ошибок)?{/post}{/quote}  
Private Sub CommandButton1_Click()  
   
 Dim OutApp As Object  
 Dim OutMail As Object  
 Dim IsNew As Boolean  
   
 On Error Resume Next  
 Set OutApp = GetObject(, "Outlook.Application")  
 If Err Then  
   Set OutApp = CreateObject("Outlook.Application")  
   OutApp.Visible = True  
   IsNew = True  
 End If  
   
 Err.Clear  
 OutApp.Session.Logon  
 If Err Then MsgBox "Нет соединения с почтовым сервером", vbCritical: GoTo cleanup  
   
 On Error Resume Next  
 Set OutMail = OutApp.CreateItem(0)  
   
 With OutMail  
   .To = "ToAddress"  
   .Subject = "SubjectHere"  
   .Body = "Mail Body"  
   '.Attachments.Add "PathName"  
   '.Display  
   .Send  
   If .Sent Then  
     MsgBox "Mail sent"  
     'Range("A" & ActiveCell.Row).Offset(0, 2 + User) = ("Уведомление отправлено")  
     'Range("A" & ActiveCell.Row).Offset(0, 2 + User).Interior.ColorIndex = 42  
   Else  
     MsgBox "Mail not sent"  
   End If  
 End With  
 
cleanup:  
 Set OutMail = Nothing  
 If IsNew Then OutApp.Quit  
 Set OutApp = Nothing  
 Application.ScreenUpdating = True  
End Sub{/post}{/quote}  
 
 
Добрый день.  
 
 хотел спросить, можно ли сделать чтоб при запуске макроса , выпадало окно с возможностью выбрать определенную папку, а далее макрос отправлял файл из этой папки с указанием в теме имени файла без расширения и в теле письма имя папки в которой лежит файл и имя папки в которой лежит папка.  
 
Заранее спасибо за ответ.

{quote}{login=Казанский}{date=25.07.2011 12:14}{thema=}{post}Удобно составить таблицу наценки на листе (можно на отдельном листе) и использовать ее в формуле:{/post}{/quote}  
 
   
если >2 и =<10, то 50%    
 
таблица наценки  
 
2,0000...1   -   50%

{quote}{login=nerv}{date=22.07.2011 02:55}{thema=}{post}Я выкладывал небольшой макрос + UDF такого характера:  
 
При открытии книги (Рабочей, не Вспомогательной) открывается Вспомогательный файл, от туда берутся данные и помещаются в память. После чего файл закрывается. Далее чего, с помошью UDF - ВПРП можно было осуществлять поиск по этой памяти, а-ля столбцы-строки : ){/post}{/quote}  
 
У меня тоже вспомогательный файл открывается и закрывается автоматически, хотел узнать можно ли его вообще не открывать, но спасибо за ответ

Добрый день.  
 
Есть макрос в котором много формул со ссылками на другой файл. В макросе прописано открытие вспомогательного файла перед вставкой формул в ячейки активной книги и после сохранения значений - закрытие этого вспомогательного файла.  
 
у меня такой вопрос: можно ли сделать чтоб вспомогательный файл вообще не открывался?

Добрый день.  
Хочу просто выяснить  реально ли мне сделать такую штуку:  
 
   -есть отчет который необходимо делать каждый день,  
   -для этого используются два отчета из 1с  
   -на данный момент сначала формирую два отчета в 1с и сохраняю их в экселе в определенную папку, после открываю форму конечного отчета и запускаю макрос - в итоге данные обновляются и отчет готов.  
     вопрос:  
реально ли програмнно вытянуть отчеты из 1с и сохранить в экселе в определенную папку,    
чтобы можно было добавить нужный код в макрос и просто открывать конечный отчет, запускать макрос и ждать пока отработает процедура самостоятельно? можно ли найти нужный код в сети?