Все дело в этом атрибуте было  
 
MyName = Dir(Mask, vbDirectory)

Sub Macros_Dir()  
Mask = (ThisWorkbook.Path & "\База\")  
MyName = Dir(Mask)  
Do While MyName <> ""  
If Range("A:A").Find(MyName) Is Nothing Then  
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _  
ThisWorkbook.Path & "\База\" & MyName, TextToDisplay:= _  
MyName  
End If  
MyName = Dir  
Loop  
End Sub  
 
 
А можно ли сделать так что бы были еще и гиперссылки на папки....а то сейчас только ссылки на файлы....

Макро рекордер просто выдал ActiveCell.ClearContents

Sub tt()  
Mask = (ThisWorkbook.Path & "\База\")  
Kill Mask & ActiveCell  
ActiveCell.ClearContents  
End Sub  
 
R Dmitry спасибо Вам ) Очень рад, что почти сам разобрался ))

Sub tt()  
Mask = (ThisWorkbook.Path & "\База\")  
Kill Mask & ActiveCell  
End Sub  
 
Вроде так вот получилось) Остается удалить гиперссылку с самого листа)

А если нужно удалить файл расположенный по гиперссылке ? т.е. я нахожусь на выделенной ячейке в которой находится гиперссылка на это файл ?  
 
sub tt()  
 
kill ActiveSheet.Hyperlinks  
 
end sub ?

А можно ли обратный макрос сделать ?  
Что бы удалялся файл который находится по гиперссылке...т.е. удалялся из таблицы и из папки "База" ?  
 
 
Sub Macros_Dir()  
Mask = (ThisWorkbook.Path & "\База\")  
MyName = Dir(Mask)  
Do While MyName <> ""  
If Range("A:A").Find(MyName) Is Nothing Then  
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _  
ThisWorkbook.Path & "\База\" & MyName, TextToDisplay:= _  
MyName  
End If  
MyName = Dir  
Loop  
End Sub

{quote}{login=Ролян}{date=19.01.2010 10:31}{thema=Собираю все виды СУДОКУ на VBA (генераторы и решалки тоже)}{post}Все кто имел опыт работы с Судоку в VBA выложите свои примеры или ссылки.  
Хочу организовать генератор судоку на VBA{/post}{/quote}  
Можно и без VBA  
http://excelfin.ru/index.php/articles/examples/87-practice-sudocu

Sub zakrutie()  
ActiveWindow.Close False  
End Sub  
 
Вставил отдельным модулем. не работает (

Так куда все таки это нужно прописать ?

супер, то что мне нужно

Решил по простому, Mask1 = ThisWorkbook.Path & "\list\  
убрать маску и все, что бы все категории файлов сканировались

а можно ли сделать маску поиска одновременно по *tif и *pdf    
 
нужно создавать два диапозона или можно как то объединить запрос ?  
 
Mask1 = ThisWorkbook.Path & "\list\*.tif"  
Mask1 = ThisWorkbook.Path & "\list\*.pdf"

Данный макрос раскрывает перед сохранением автофильтр на одном листе книге, можно ли сделать так что бы он раскрывал автофильтры на всех листах книги.  
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)  
If Worksheets("лист1").FilterMode Then Worksheets("лист1").ShowAllData  
End Sub  
 
Пробую писать If Worksheets("лист1", "лист2") ну что то VBA ругается

Методом научного тыка, пришел к такому макросу.  
tif многостраничный, удобный в просмотре. Сканирую стандартной утилитой майксросфт, если документ из 5-6 страниц то занимает 1,2 мб  
Mask = ThisWorkbook.Path & "\list\*.tif"  
MyName = Dir(Mask)  
Do While MyName <> ""  
If Range("A:A").Find(MyName) Is Nothing Then  
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _  
ThisWorkbook.Path & "\list\" & MyName, TextToDisplay:= _  
MyName  
End If  
MyName = Dir  
Loop

If Range("A:A").Find(MyName) Is Nothing Then  
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ThisWorkbook.Path & "\"  
MyName , TextToDisplay:= _  
MyName  
End If  
 
может бть как то так ?

Mask = ThisWorkbook.Path & "\list\*.tif"  
MyName = Dir(Mask)  
Do While MyName <> ""  
If Not Range("A:A").Find(MyName,,xlValues,xlWhole) Is Nothing Then  
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _  
MyName, TextToDisplay:= _  
MyName  
End If  
MyName = Dir  
Loop  
 
Вот так делаю, гипперсслка даже не появляется

Mask = (ThisWorkbook.Path & "\list" & "*.tif")  
MyName = Dir(Mask)  
 
Вот так пробую,  но тут ошибка

А можно ли указать путь без привязки к точному названию папки(ThisWorkbook.Path)  
 
Допустим в этой дериктории есть файл excel, и папка list, в ней файлы *tif.  
Вот что бы функция Dir указала ссылку именно на эту папку и на файл *tif  
 
т.е. путь /lis/.*tif только без привязки к конкретной папке, что бы можно было перемшать данную папку.

Спасибо Большое ))

Добрового времени суток.  
 
Столкнулся с проблемой, есть таблица с гиперссылками на  документы. Можно ли сделать макрос который бы копировал эти документы в буферобмена(по адрессу гиперссылки)  
 
Copy Hyperlinks.Add Anchor:=Selection, Address:= _  
 
?

Лузер! большое тебе человеческое спасибо

а можно по конкретнее...

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

Sub Macros_Dir()  
Mask = "C:\data\*.tif"  
MyName = Dir(Mask)  
i = 1  
Do While MyName <> ""  
If Range("A:A").Find(MyName) Is Nothing Then  
ActiveSheet.Hyperlinks.Add Anchor:=(Cells(i, "A")), Address:= _  
"C:\Data\" & MyName, TextToDisplay:= _  
MyName  
i = i + 1  
End If  
MyName = Dir  
Loop  
 
End Sub  
 
Спасибо за ответ.  
я думаю что должно быть так.  
Но видимо неправильно. гиперссылки создаются, но при добавлении новых в файлов в папку data просиходит что-то невразумительное. Они добавляются только когда повторишь n-ое колчиствно раз макрос (зависит от ко-ва файлов в папке data)

А можно ли немного преоброзовать данный макрос ?  
Например что бы были, не просто имена файлов, а гиперссылки на них (т.е. можно было бы легко посмотреть фотографию их excel)  
И сделать так что бы, при добавлении новых фотографий в указонную папку, происходило только добавление новых файлов в excel ?

Здравствуйте!  
Столкнулся с проблемой написания макроса в excel, плохо разбираюсь в VSB...  
знаюшие люди помогите plz...  
 
Хочу упорядочить электронную документацию, она хрониться в папке data, в виде tif файлов.  
 
В Excele есть 4 столбца. В первом ссылки на документы, во втором и следуюших описания документа (тип,номер,дата и т.д.)    
 
В excele хотел бы сделать так, что бы гипперссылки на эти tif файлы формировались автоматически.  
 
Хочу сделать кнопку "cформировать списки", при нажатии на которую происходило следуюшие:  
 
программа смотрела бы все документы(ссылки) в папке data и  
сравнивала с уже имеющимся в списке  
документами и добавляла лишь те документы(ссылки)  
(ссылки на файл), которых в списке нет.  
 
Если документа нет, а в других столбцах есть его описание  
, то программа НЕ удаляла бы строчку из  
списка!!