{quote}{login=KukLP}{date=07.08.2012 02:58}{thema=}{post}У меня нормально отрабатывает, без ошибок. Посмотрите в tools-references. Нет библиотек с пометкой missing?{/post}{/quote}  
 
Missing - нету.  
 
И вот глюк, при закрытом окне редактора VB ошибку эту не выдает О_о

Вот сам файл

Math.rnd - случайное число (можно просто rnd(), ошибку это не исправляет)  
PRo - имя листа.

В чем тут проблема возникновения этой ошибки?  
 
Sub opopopopop()  
 
x = Int(Math.Rnd * (100 + 100) - 100)  
 
If x < 0 Then  
    PRo.Range("B2").Value = 1  
    PRo.Range("C2").Value = ""  
Else  
    PRo.Range("B2").Value = ""  
    PRo.Range("C2").Value = 1  
End If  
 
PRo.Range("A1").Value = x  
 
End Sub

Помогите люди, не получается сделать...  
В общем есть:  
 
Sub CopySheet()  
 
Dim sheetimya As Worksheet, shablon As Worksheet  
Dim imya As String  
Dim r As Long  
 
Set listt = ThisWorkbook.Sheets("Лист")  
Set shablon = ThisWorkbook.Sheets("Шаблон")  
 
r = listt.Cells(Rows.Count, 2).End(xlUp).Row  
 
For Each cell In listt.Range("B7:B65536")  
   If r = 0 Then Exit Sub  
       imya = listt.Cells(r, 2).Value  
   If imya = "" Then  
   r = r - 1  
   Else  
       imya = listt.Cells(r, 2).Value  
       shablon.Copy after:=Sheets(2)  
       ActiveSheet.Name = imya  
       r = r - 1    
         
       listt.Hyperlinks.Add Anchor:=Cells(r, 2), Address:="", SubAddress:="'" & imya & "'" & "!A1"  
         
   End If  
Next  
End Sub  
 
Нужно чтоб ссылка вставлялась на листе "Лист", при таком макросе она вставляется на создаваемый лист =(  
Заранее спасибо.

Возникла проблема, если ячейка, где дату вводить, оставить пустой или ввести дату, которой нет в списке, то всплывает "91" ошибка: Object variable or With block variable not set.

Спасибо, это то что надо! :)

Люди помогите!  
Есть 2 листа:  
1. "Лист1" - Форма, где вносятся данные.  
2. "Лист2" - Своего рода база данных, куда переносятся данные с Листа1  
 
Нужен макрос, делающий выборку по заранее введенной дате (см. прикрепленный файл) из той самой базы данных на Листе2 и внесения данных, соответствующим введенной дате в форму заполнения.

Всем спасибо! :)

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

{quote}{login=The_Prist}{date=11.01.2010 04:44}{thema=Re: }{post}Можно. Необходимо знать - листы эти меняться будут или же они постоянные?{/post}{/quote}  
Они постоянные и меняться не будут.

Спасибо The_Prist, это то, что надо!  
А можно ли как нибудь исключить некоторые листы из диапазона суммирования?

Нужен макрос, который суммировал бы все данные со всех листов книги. Количество листов постоянно увеличивается и названия их может быть разным.  
Заранее всем спасибо.

Спасибо! Так все работает :)

Макрос останавливается на одном листе в ячейке A1  
содержимое которой - "*"  
 
Пробовал скопировать листы с моей книги в ту, что скачана с приемов, и макрос выбил опять же эту ошибку...

Не работает тот, что в приемах там написан -  
Sub ScanText() 'этот макрос копирует все слова текущей книги в  
' столбец А на лист "Словарь"  
   Dim c As String  
   i = 0  
   For Each sht In ActiveWorkbook.Sheets  
   If sht.Name = "Словарь" Then GoTo 2  
   If sht.Name = "START" Then GoTo 2  
   For Each cell In sht.Cells.SpecialCells(xlCellTypeConstants)  
       c = Asc(cell.Value)  
       If (c >= 65 And c <= 122) Or (c >= 192 And c <= 255) Then  
           cell.Copy Destination:=Worksheets("Словарь").Range("A2").Offset(i, 0)  
           i = i + 1  
       End If  
   Next cell  
2:  Next sht  
End Sub

Не работает макрос-сборщик всех слов в один столбик.  
УПишет ошибку в стороке "c = Asc(cell.Value)"  
Run-time error '5':  
Invalid procedure call or argument  
 
В чем проблема?.  
PS: http://www.planetaexcel.ru/tip.php?aid=76  
 
И мимолетный вопрос по приему http://www.planetaexcel.ru/tip.php?aid=100  
Как добвить туда кнопку, при нажатии на которую эта форма закрыывалась?

{quote}{login=PIKA4Y}{date=12.11.2009 11:32}{thema=}{post}А можно чтоб без полного пути, только название книги?{/post}{/quote}  
Вот накопал в инете такую формулу: =ПСТР(ЯЧЕЙКА("filename";A1);НАЙТИ("[";ЯЧЕЙКА("filename";A1))+1;65535)
Теперь нужно чтоб не отображалось то, что после .xls

Как собрать данные (находящиеся в определенном диапазоне) в отдельный лист с листов (название и количество которых может быть любым) начинающихся с 4-го?

А можно чтоб без полного пути, только название книги?

И еще маленький вопрос, как сделать чтоб в определенной ячейке писалось название книги? Т.е. есть книга, мы ее переименовываем, открываем и в определенной ячейке уже прописано название этой книги.

Всем СПАСИБО! :)

Нужен макрос который создает новый лист по листу шаблону с именем, которое введено в определенную ячейку.  
То есть есть 2 листа: "главный" лист (с кнопкой "создать" и ячейкой, в которую нужно ввести название будущего листа) и лист - шаблон, по которому будет создаваться новый лист.  
 
Заранее СПАСИБО!

При попытке открыть файл, расположенный на локальном диске, выдается ошибка DDE, что это такое?

Возникла проблема: если в этой таблице в листе "список" "оценка" повторяется, то в листе "рейтинг" пишется имя, которое первое по списку :(  
 
Как решить данную проблему?

Всем БОЛЬШОЕ СПАСИБО!!! =)

Есть файл с двумя листами "список" и "рейтинг", Нужно чтоб из "списка" в "рейтинг" вытягивались имена с оценками, но только 5, у которых оценка выше всех (типа ТОП ЛУЧШИХ) =)  
 
Помогите о гуру экселя :)

Спачибо, какраз то, что надо =)

Спасибо, немного подошло, но вот работает некорректно:  
 
Private Sub CommandButton2_Click()  
 
Dim bazaDannih As Worksheet, vvod As Worksheet  
Dim r As Long  
Dim myDate As Date  
 
Set bazaDannih = ThisWorkbook.Sheets("1")  
Set vvod = ThisWorkbook.Sheets("2")  
 
myDate = vvod.Range("N7").Value  
 
If myDate = 0 Then  
   vvod.Range("N7").Activate  
   MsgBox "xxx!!! ", 48, "xxxxx"  
   Exit Sub  
End If  
   
iCriteria1 = "=" & format(myDate, "#")  
 
bazaDannih.Range("C2").AutoFilter Field:=2, Criteria1:=iCriteria1  
 
Sheets("2").Select  
 
End Sub  
 
... фильтр срабатывает, но ничего не отображает, весь список скрывается :(  
В чем тут проблема???

Подскажите как можно сделать поиск в таблице по дате и вывод  найденных строк.  
 
Есть таблица, колонки: дата ФИО возраст и т.д...  
 
Нужно сделать на отдельном листе так, что вводишь дату, жмешь кнопку и выводятся все строки из той таблицы которые с совпадающей датой =)  
 
Причина - таблица оч большая, автофильтр не совсем удобен.