В чем тут проблема возникновения этой ошибки?  
 
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  
 
Нужно чтоб ссылка вставлялась на листе "Лист", при таком макросе она вставляется на создаваемый лист =(  
Заранее спасибо.

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

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

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

Не работает макрос-сборщик всех слов в один столбик.  
УПишет ошибку в стороке "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  
Как добвить туда кнопку, при нажатии на которую эта форма закрыывалась?

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

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

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

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

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