{quote}{login=ABC}{date=25.10.2012 10:59}{thema=}{post}может так?  
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
   Range("A1").Formula = "=" & ActiveCell.Address  
End Sub{/post}{/quote}  
 
Спасибо это то что нужно!!!  
Ячейка "A1", при использовании макроса показывает данные активной ячейки,  
а в формуле я ссылаюсь на "A1" - я правильно понял:)

{quote}{login=** ТУРБО-ЁЖ **}{date=25.10.2012 10:43}{thema=}{post}Предложу пару вариантов:  
=ЯЧЕЙКА("содержимое")  
=ДВССЫЛ(ЯЧЕЙКА("адрес")){/post}{/quote}  
 
Спасибо, но не то:  
=ЯЧЕЙКА("содержимое") - не подходит так как это "содержимое" есть переменная - активная ячейка.  
 
=ДВССЫЛ(ЯЧЕЙКА("адрес")) - не подходит тоже - "адрес" - меняется вместе с активной ячейкой.

Добрый день, уважаемые форумчане.  
Поиск и спарвка, результатов не принёс, поэтому создал тему:  
"Как в формуле сослаться на активную ячейку?"  
 
Подходят любые варианты:)

Если, я правильно вас понял, то это выглядит так.  
Смотрите вложение, мои изменения помечены красным.

{quote}{login=ber$erk}{date=27.07.2012 11:18}{thema=}{post}1 класс{/post}{/quote}  
Просто добавляем это условие)))

Мой вариант - 2 класс)))

{quote}{login=lw091190}{date=24.07.2012 04:52}{thema=Сводная таблица 2007}{post}Добрый день уважаемые пользователи, столкнулся с проблемой:  
есть сводная таблица, стоит два фильтра, как в 2007 сделать чтото типо срезов?  
Необходимо чтобы после фильтрации первым фильтром, данные по которым можно отфильтровать вторым урезались, то есть чтобы был каскад фильтров, второй являлся уточнающим{/post}{/quote}  
День добрый,  
Собственно проблемы, и существенной разницы между сводными таблицами 2003 и 2007 не вижу. Добавляй фильтров сколько влезет, и делай срезы в любой оследовательности.  
Пример во вложении:

Поставте в ячейку С9 формулу =ЕСЛИ(B9=1;ИСТИНА;ЛОЖЬ)  
и протяните вниз, получится проверка:)  
Или вам нужен макрос, вообще запрещающий вводить в определённый диапазон,  
что либо кроме первого числа месяца?

Добавить сбоку столбец с нумерацией и отсортировать по убыванию, затем убрать столбец с нумерацией по необходимости.

Решение через "ПРОСМОТР":  
=ЕСЛИ(H3<>"";ПРОСМОТР(H3;$B$3:$B$8;$C$3:$C$8);ПРОСМОТР(I3;$D$3:$D$8;$E$3:$E$8))  
 
Но рекомендую испольховать, формулу с поста выше, так как значения в аргументе просматриваемый_вектор должны быть расположены в порядке возрастания: ..., -2, -1, 0, 1, 2, ..., A-Z, ЛОЖЬ, ИСТИНА; в противном случае функция "ПРОСМОТР" может возвратить неправильный результат. Текст в нижнем и верхнем регистрах считается эквивалентным.  
Проще говоря, для коректной работы, используя "ПРОСМОТР", в первой таблице необходимо отсортировать столбцы "овощи" и "фрукты" по алфавиту.

Устройте проверку в зависимости от того, что вам конкретно нужно.  
Пример кода:  
 
Sub Пример()  
   
Set FSO = CreateObject("Scripting.FileSystemObject")  
Set File = FSO.GetFile("c:\Dropbox\*.*") 'тут путь и имя файла  
mStr = mStr & "Дата создания - " & File.DateCreated & vbCrLf  
mStr = mStr & "Дата последнего доступа - " & File.DateLastAccessed & vbCrLf  
mStr = mStr & "Дата последней модификации - " & File.DateLastModified & vbCrLf  
MsgBox mStr  
 
End Sub

День добрый.  
Смотрите, всё с помощью формул, хотя с макросом было бы проще:)  
Во вложении мой пример решения вашей задачи.  
Мои изменения имеют красный цвет шрифта.

Маша, добрый день.  
Ваш файл, имеет большой размер, и открывается долго из за кучи "кривых" присвоеных имён.  
Зайдите в вкладку формулы -> диспетчер имён и уберите не используемые или имебщие ошибки в ссылках имена, и у вас всё заработает быстро и без тормозов.

МСН, огромное спасибо!!!  
 
В итоге изменил и использовал формулу:    
=СУММПРОИЗВ(ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;СМЕЩ(B4;СТРОКА(B4:B9)-СТРОКА(B4);))*F4:F9/ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;B4:B9))  
МСН,ещё раз спасибо, на вашем примере я понял логику и уяснил, что "СУММПРОИЗВ" и "ПРОМЕЖУТОЧНЫЕ.ИТОГИ" ещё как дружат:)

Банальное "=", вам очень поможет, и всё будет отлично обновляться.

Спасибо конечно, всё гениальное просто :), но это не то, что мне нужно.  
Нежна расчетная формула на основании масивов данных, приводящая к такому же результату а не банальное "=".  
Но всё "=" спасибо повеселили...

Добрый день, уважаемые форумчане.  
Столкнулся с проблемой "СУММПРОИЗВ" и "ПРОМЕЖУТОЧНЫЕ.ИТОГИ" не дружат:( - пример во вложении.    
Нужно поправить формулу, или ввести свою, чтобы значение  совподало с значением "Вклад", при использовании автофильтра, по столбцу "критерий".

Огромное спасибо, это то, что нужно:)

Согласен ...Доброго времени суток!!! Но формула всё равно нужна:)

Нужна формула, которая выдаст первое значение в строке по критерию >0.  
Смотрите пример в вложении.

Смотрите на своём примере.

А вот так пробовали?  
http://www.planetaexcel.ru/tip.php?aid=64

Смотри вложение, будет работать с любой версией Excel.

Макрос написан для использования в Exceel 2007 (2010). В версии Exceel 2003, выдаст ошибку, так как в ней нет поддержки функции "ЕСЛИОШИБКА".  
Если критично, переделаю.

{quote}{login=Alexandro}{date=22.03.2012 03:42}{thema=}{post}Ну или хотя бы как сделать чтобы при нажатии на ячейку человек перемещался на лист где в ячейках прописаны нужные данные и при клике по необходимую ячейку она перемещалась туда куда он кликал изначально?{/post}{/quote}  
Согласно вашему условию, действие двойной клик по ячейке.  
Смотрите вложение.

Иван, припер во вложении, так подойдёт?

Во вложении файл с макросом, то что хотел?

А чего сложного то, нажимаешь записать макрос, копируешь с листа 1 на лист 2 столбцы в нужной очерёдности, нажимаешь стоп и всё готово, в смысле макрос готов.

Но и собственно  сама просьба: Помогите разобраться или посоветуйте свой вариант. Где ошибка?

Нужно создать файл, который бы при закрытии создавал свою полную копию, за исключением участка кода который отвечает за дальнейшее копирование.  
В папке "Пример", должна храниться обновляемая копия файла в одном экземпляре, с названием "Пример копия", которая при дальнейшем пользовании не должна плодить копии.  
Вот как я попытался реализовать данное действие (во вложении пример файла):    
 
 
Function ОткрытаЛиКнига(Имя) As Boolean  
On Error Resume Next  
With Workbooks(Имя): End With  
ОткрытаЛиКнига = (Err = 0)  
End Function  
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)  
' Макрос Workbook_BeforeClose  
   Dim x As String  
   Dim strFileTitle As String  
   Dim strFileName As String  
   Dim strPath As String  
     
   strFileTitle = Left(ActiveWorkbook.Name, _  
            Len(ActiveWorkbook.Name) - 5) & " " & "копия" & ".xlsm"  
   strPath = "C:\Пример"  
   strFileName = strPath & "\" & strFileTitle  
           
     ' Проверяем есть ли нужный нам файл в природе и не открыт ли уже, если открыт сохраняем закрываем  
If ОткрытаЛиКнига(strFileTitle) Then  
' Если открыта  
   Application.ScreenUpdating = False  
   Windows(strFileTitle).Activate  
   ActiveWorkbook.Save  
   Windows(strFileTitle).Close  
   Kill strFileName  
Else  
' Если не открыта  
   If Dir(strFileName) <> "" Then  
   Application.ScreenUpdating = False  
   Kill strFileName  
Else  
On Error Resume Next  
   x = GetAttr(strPath) And 0  
   If Err = 0 Then  
' Если путь существует - сохраняем копию книги  
               
       ActiveWorkbook.SaveCopyAs Filename:=strFileName  
Else  
'Если путь не существует - выводим сообщение  
         
       MsgBox "Папка " & strPath & " недоступна или не существует!", vbCritical  
     End If  
'___________________________________________________________­________________  
Application.ScreenUpdating = False  
 ActiveWorkbook.Open Filename:=strFileName  
    Windows(strFileTitle).Activate  
With ActiveWorkbook.VBProject.VBComponents("ЭтаКнига").CodeModule  
.DeleteLines 1, .CountOfLines  
End With  
 ActiveWorkbook.Save  
 ActiveWorkbook.Close  
   Exit Sub  
'___________________________________________________________­________________  
   End If  
 End If  
End Sub