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

Привет, Всем!!!  
 
Помогите, пожалуйста, дописать макрос!!!  
 
Необходимо чтобы макрос создавал новый файл и сохранял его в указанную папку с именем, взятым из ячейки G3 (см. пример). Сейчас макрос сохраняет файл только с именем "Filename".  
 
Текст примера:  
 
Private Sub CommandButton1_Click()  
   Dim iTemp As Integer  
   Dim oBook As Workbook  
     
   iTemp = Application.SheetsInNewWorkbook  
   Application.SheetsInNewWorkbook = 1  
   Set oBook = Application.Workbooks.Add  
   Application.SheetsInNewWorkbook = iTemp  
     
       oBook.Names.Add Name:="tempRange", _  
       RefersTo:="=Sheet1!$A$1"  
   oBook.SaveAs "c:\Documents and Settings\ilukyanov\Ìîè äîêóìåíòû\Filename.xls"  
   oBook.Close SaveChanges:=True  
End Sub  
 
 
Заранее, Всем, Огромное спасибо!!!

Имеется таблица с несколькими столбцами в которых указана дата в формате ММ/ГГ (текстовый формат). Дата может повторяться от строки к строке, но в одной строке она уникальна.  
Задача.  
Поиск заданного значения в указанном диапазоне и вывод строки его содержащего.  
 
Сам никак не могу разобраться, все что получается выводит только одно значение и дальше не ищет...  
Помогите пожалуйства

Подскажите, как это делается? Где-то мало места, а некоторые данные жируют от свободного

Подскажите, можно ли закрашивать области диаграммы, как в примере?

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

у меня есть макрос    
Sub setFiltr()  
Dim aRange As Range  
Dim FilterData As String, k As String, k2 As String, k3 As String, k4 As String, k5 As String  
Dim FilterData2 As String  
Dim FilterData3 As String  
Dim FilterData4 As String  
Dim FilterData5 As String  
Dim LastRow As Long  
   
 On Error Resume Next  
       
 ActiveSheet.AutoFilterMode = False  
   
k = Range("b2").Value  
k2 = Range("e2").Value  
k3 = Range("f2").Value  
k4 = Range("g2").Value  
k5 = Range("h2").Value  
   
 Application.ScreenUpdating = False  
   
 If (k = "" And k2 = "" And k3 = "" And k4 = "" And k5 = "") Then  
   MsgBox "Введите данные для фильтра в соответствующих розовых окнах", vbInformation, "Писать будем или глазки строить?"  
   Exit Sub  
 End If  
 
 FilterData = "=**" & k & "**"  
 FilterData2 = "=**" & k2 & "**"  
 FilterData3 = "=**" & k3 & "**"  
 FilterData4 = "=**" & k4 & "**"  
 FilterData5 = "=**" & k5 & "**"  
 
   
 ' Фильтровать  
  With ActiveSheet  
       .UsedRange  
       LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row  
       Set aRange = Range("B4", Cells(LastRow, "H"))  
       aRange.AutoFilter Field:=1, Criteria1:=FilterData  
       aRange.AutoFilter Field:=4, Criteria1:=FilterData2  
       aRange.AutoFilter Field:=5, Criteria1:=FilterData3  
       aRange.AutoFilter Field:=6, Criteria1:=FilterData4  
       aRange.AutoFilter Field:=7, Criteria1:=FilterData5  
   End With  
End Sub  
и он не подписан сертификатом. Чтобы не менять уровень безопасности,для работы пользователей в локальной сети, хочу создать настройку. как это сделать? чтобы этот макрос работал на каждом компьютере в сети?

У меня есть файл в локальной сети (лежит на сервере) и в нем есть макрос, который удобно фильтрует список. Уровень безопасности макросов по умолчанию стоит "Высокий", где макросы работают только от надежных издателей. Как сделать чтобы все пользователи в сети с уровнем безопасности "Высокий" могли запускать именно этот макрос, а остальные, от ненадежных издателей не запускались? Одним словом, как стать самому надежным издателем для пользователей своей сети без финансовых вложений?

Private Sub Worksheet_Change(ByVal Target As Range)  
If Target.Address = Range("Name").Address Then Call setFiltr  
End Sub  
 
При введение текста в ячейку Nane запускается макрос setFiltr, который фильрует список. Как сделать так, чтобы при вводе по букве в ячейку после каждой буквы срабатывал макрос setFiltr?

вот код:  
Sub setFiltr()  
Dim aRange As Range  
Dim FilterData As String, k As String  
Dim LastRow As Long  
   
 On Error Resume Next  
       
   
   ActiveSheet.AutoFilterMode = False  
   
   
   
 k = Range("C4").Value  
   
 Application.ScreenUpdating = False  
 
 
 FilterData = "=**" & k & "**"  
 If IsEmpty(FilterData) Then  
   MsgBox "Введите данные для фильтра", vbInformation, "Ну! Писать будем, или глазки строить?"  
   Exit Sub  
 End If  
   
 ' Фильтровать  
  With ActiveSheet  
       .UsedRange  
       LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row  
       Set aRange = Range("C5", Cells(LastRow, "C"))  
       aRange.AutoFilter Field:=1, Criteria1:=FilterData  
   End With  
 
   
 Range("D3").ClearContents  
   
 Application.ScreenUpdating = True  
 
End Sub  
сейчас фильруется столбец C по ячейке выше (C4)  
нужно чтобы все 3 стобца фильровались по содержимому из ячеек выше с условием "И"  
   
и еще инф. бокс не работает почему-то.  MsgBox "Введите данные для фильтра", vbInformation, "Ну! Писать будем, или глазки строить?"  
 
Помогите пожалуйста

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

Всем привет!!!  
Подскажите, пожалуйста, в обычной формуле запись выглядит так: y=суммпроизв((матрица!A1:A550=сводный файл!A2)*1)  
а мне нужно написать ее в записи y = WorksheetFunction.SumProduct()  
я пишу  
y = WorksheetFunction.SumProduct((Worksheets("Матрица").Cells(1, 1).Resize(550, 1) = Worksheets("Сводный файл").Cells(2, 1)) * 1), но у меня выскакивает ошибка...  
Подскажите как мне правильно написать?

Добрый день!  
Есть примочка под Excel 2003 которая не обновляется уже несколько лет. Там при выводе графика судя по всему стоит ограничитель на 256 столбцов (программа сообщает что дальше строить не хочет). Пожалуйста подскажите как это можно исправить. Спасибо!