Есть потребность передачи в формулу RANKK название столбца по которому идет сортировка (чтобы RANKK рассчитывался по столбцу с сортировкой). В настоящее время реализовал при помощи закладок, но это крайне странное решение.
Может есть другой способ получения информации о столбце, по которому идет сортировка в таблице?
(переключение фильтра столбца через CTRL в десктоп)

День добрый, подскажите как можно решить проблему открытия файла или извлечения данных из файла в другой в случае если выдает ошибку при открытии файла следующего содержания:

Подскажите, как избежать удаление свойства - представление сводной таблицы.

Часто бывает, что при открытии книги происходит сбой и после открытия книги сводная таблица преобразуется в обычную таблицу с данными.
Что влияет на возникновения сбоя открытия книги?

Сообщения при открытии:

 

Периодически во время работы с книгой, выскакивает ошибка (при попытке запустить макрос, открывающий userform) Path/file access error  
При повторном открытии книги ошибка исчезает на какое-то время (данную книгу не сохраняю, а пользуюсь лишь как формой анкетирования данные с которой потом уходят в другую книгу).  
В чем может быть суть данной ошибки и как ее можно устранить?

Всем доброго вечера, подскажите что следует указать в макросе для копирования диапазона  
Range("A8:F8")  
в определенный диапазон на Лист 2, начало которого определено в ячейке A1= строке(например 2), B1= столбцу (например 3)

Подскажите, как в UserForm вместо текста в Lable2 и Lable5 соответственно указывались значения с ячеек A2 и B2.

Всем привет.  
Опишу задачу. Существует Анкета, состаящая из UserForms. Необходимо сделать вставку текущей даты и времени (Cells(16, 1).FormulaR1C1 = "=NOW()") после закрытия всех UserForms (тоесть при завершении опроса, единственное но, опрос может прикратится на любом из циклов).

Подскажите, как сделать, что бы при выборе 2-х вариантов в ChexkBox и вводе текстовых данных они размещались в одной ячейке через "/". А то в данном варианте остается только 1 из выбранных.  
Private Sub CommandButton1_Click() 'Exit  
Cells(2, 1) = Me.TextBox1.Value  
If Me.CheckBox1 = True Then  
Cells(2, 1) = "1"  
Unload Me  
ElseIf Me.CheckBox2 = True Then  
Unload Me  
Cells(2, 1) = "2"  
End If  
End Sub

Всем привет.  
Создал 3 формы. Необходимо что-бы в зависимости выбора ответа на первой форме (да или нет),при нажатии кнопки далее открывалась либо 2 либо 3 форма. Не знаю как это привязать. Подскажите.

Подскажите пожалуйста, какие причины могут повлиять на следующее сообщение при открытии книги пишет:  
В книге "kms.xlsx" обнаружено содержимое, которое не удалось прочитать. Попробовать восстановить содержимое книги?  
При нажатии Да сводная таблица превращается в обычную. Что может повлиять на это? Может большой размер файла 20м

В первый раз столкнулся с такой вещью. Когда ввожу в ячейку данные (например в ячейку A1 "Компания A") затем меняю значение на (A1 = "Компания B"). При копировании значения ("Компания B") и дальнейшей отмены последнего действия (т.е. последнего ввода данных) и вставки значения получаем первоначальное ("Компания A").  
Всегда думал, что копирование не привязывается к ячейке, а идет копирование в буфер непосредственно значения.  
Забавно но не знал. Может кому будет интересно)

Всем доброго дня.  
 
Возник вопрос с ускорением работы расчетов файла. Быть может кто предложит другой вариант решения задачи.  
Имеется база (Лист База) в которую необходимо поставить даты начала и конца контракта (желтый диапазон; с Листа Период контрактов). Мы находим соответствующего Клиента+услугу на Листе Период контрактов соответствующего в Базе и смотрим чтобы период с базы поподал в интервал, если не поподает, то ищем второе значение Клиента+услугу и т.далее.

Всем привет,    
подскажите, что нужно прописать в макросе для следующей задачи.  
Необходимо заменить формулы на значения после перерасчета данных той строки, номер которой указан в ячейке A1.

Всем привет.  
Подскажите пожалуйста, возможно ли создание гиперссылок в сводной таблице. И каким образом это можно осуществить.

Не корректно раскидывает данные макросом по столбцам. все данные хранятся в одном столбце. Эти данные раскидываются по соответствующим столбцам в зависимости от форматирования текста.  
Не пойму в чем может быть проблема, часть дынных не распределяется по столбцам, как будто их формат отличается от исходного, хотя это не так.  
Файл прилагаю  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Подскажите пожалуйста, что нужно прописать в макросе, что бы он копировал ячейку удовлетворяющую условию FontColor Criteria1:=RGB(7, 97, _59) например в столбец D.

Всем привет.  
Подскажите пожалуйста, как прописать более 2х значений для фильтра (значения=ячейки К2,L2,M2 и т.д)  
У меня был такой вариант для пары значений  
ActiveSheet.Range("$B$3:$J$312").AutoFilter Field:=10, Criteria1:=Range("K2"), _  
       Operator:=xlOr, Criteria2:=Range("L2")

Подскажите, как нужно изменить макрос, что бы вместа строки 24, шло копирование номера строки указанной в ячейке на данном листе, например в ячейке A2:= 5, следовательно копируем пятую строку. И еще, PasteSpecial можно привязать к копированию, а не к выделению?  
Sub Макрос1()  
   Rows(24:24).Selection  
   Selection.Copy  
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
       :=False, Transpose:=False  
End Sub

Имеется код экспорта данных из веб узла, как можно его оптимизировать, что бы при изменении данных например в ячейке D1=http://www.jldfhkgl.su/view.asp?key=657 менялся код. Точнее как привязать данные к ячейке D1?  
Sub Макрос3()  
'  
' Макрос3 Макрос  
'  
 
'  
   Columns("A:B").Select  
   Selection.ClearContents  
     
   Range("A1").Select  
   With ActiveSheet.QueryTables.Add(Connection:= _  
       "URL;http://www.jldfhkgl.su/view.asp?key=657", Destination:=Range( _  
       "$A$1"))  
       .Name = "view.asp?key=657_1"  
       .FieldNames = True  
       .RowNumbers = False  
       .FillAdjacentFormulas = False  
       .PreserveFormatting = True  
       .RefreshOnFileOpen = False  
       .BackgroundQuery = True  
       .RefreshStyle = xlInsertDeleteCells  
       .SavePassword = False  
       .SaveData = True  
       .AdjustColumnWidth = True  
       .RefreshPeriod = 0  
       .WebSelectionType = xlSpecifiedTables  
       .WebFormatting = xlWebFormattingNone  
       .WebTables = "25"  
       .WebPreFormattedTextToColumns = True  
       .WebConsecutiveDelimitersAsOne = True  
       .WebSingleBlockTextImport = False  
       .WebDisableDateRecognition = False  
       .WebDisableRedirections = False  
       .Refresh BackgroundQuery:=False  
   End With  
  End Sub

Подскажите, как заменить =ГИПЕРССЫЛКА(AT391;AU391), на фактическое значение с сохранением гипперсылки.    
Тоесть чтобы значение в ячейке было например: Сбербанк (а не ГИПЕРССЫЛКА(AT391;AU391)) и по клику работала гипперсылка.

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

Добрый день.  
Последнее время столкнулся с проблемой в 2007 Excele. Необходимо скопировать определенные данные, без пустых значений. Ставлю фильтр и соответственно копирую нескрытые ячейки (видимые), но при большом объеме таблицы не получается, выдает сообщение (при выделении диапазона более 49579 строк:  
 
Невозможно создать или использовать ссылку на диапазон данных, так как она слишком сложна.  
 
Как можно решить такую проблему, не хотелось бы копировать данные по частям. Кто сталкивался с такой проблемой и как ее решает?  
P.S. файл не выкладываю, слишком большой размер. Заранее спасибо