{quote}{login=Egorchick}{date=28.07.2011 10:09}{thema=RE:}{post}А я бы не отказался послушать...{/post}{/quote}  
 
Я снова отвечаю с боОольшой задержкой :)  
что конкретно интересно послушать ?

Sub nnn()  
Dim wb As Workbook  
Dim summa As Integer  
Set wb = ActiveWorkbook  
Range("A:A").Select  
summa = Application.WorksheetFunction.Sum(Selection)  
If summa > 0 Then  
MsgBox "Сумма по столбцу А больше 0"  
wb.Close savechanges:=False  
Exit Sub  
Else  
End If  
End Sub

{quote}{login=юзер4682}{date=18.07.2011 11:35}{thema=помогите !!! вывести диалоговое окно при выполнении условия}{post}Добрый день!  
Уверен что тема распространенная, но в поиске не нашел. Поэтому прошу помощи.  
Хотелось добавить в макрос несколько условий и не знаю как это сделать.  
Например: если сумма по столбцу А больше ноля - то вывод окна с сообщением и завершение макроса с закрытием файлов без сохранения, если нет - то продолжение обработки.  
 
Заранее спасибо за ответ.{/post}{/quote}  
 
а какое из диалоговых окон нужно вывести ?

{quote}{login=Alex_ST}{date=27.06.2010 10:47}{thema=}{post}Ну, неужели никому не приходилось программировать Visio?{/post}{/quote}  
 
мне приходилось :)  
но боюсь, что это уже не актуально…

все разобрался !  
 
ссылки в столбце А не работают непосредственно после запуска макроса, если заново открыть xls-файл. то все ссылки работают корректно !

во вложении есть xls-файл и папка 'ИД' c тремя вложенными папками .  
 
моя задумка использования xls-файла, я его сохраняю где-то на локальном диске.    
копия файла кладется в нужную мне папку, запускается макрос - папка 'ИД' копируется в нужную папку. хотелось бы чтобы работали все гиперссылки: и на листы внутри книги (столбец А) и на папки в 'нужная папка\ИД' (столбец В)  
 
после запуска макроса у меня перестают работать ссылки столбца А ! :(

а через комбинацию Ctrl+K не получится ?  
 
дело в том, что у меня есть 2 столбца, в одном ссылки внутри данной книги, в другом столбце ссылки на книги находящиеся в той же папке, что и текущая книга ..  
 
конечно можно переписать макросом эти гиперссылки  
 
Range("A2").Select  
   ActiveCell.FormulaR1C1 = "=HYPERLINK(""d:\VISIO\Макросы\logfile.txt"",""лог"")"  
   Range("B2").Select  
   ActiveCell.FormulaR1C1 = "=HYPERLINK(ИД_ПД!R[5]C,""ого"")"
 
но это муторно :(

уважаемые Форумчане!  
 
помогите советом: можно ли сделать так чтобы в части ячеек гиперссылки были относительными (с использованием свойства Hyperlink Base в свойствах файла), а в другой части ячеек были гиперссылки на листы или ячейки в этой книге ?