Спасибо код работает, ошибок не выдает.
перестал работать макрос, дает не определена переменная
перестал работать макрос, дает не определена переменная
перестал работать макрос, дает не определена переменная
перестал работать макрос, дает не определена переменная
Самопроизвольное изменение чисел в Excel
Условное форматирование при отличии данных
24.05.2013 07:57:31
Признаюсь не моё, приведенный ниже код поможет это сделать.
Option Explicit Dim vValue Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target <> vValue Then Target.Interior.Color = vbRed End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = 1 Then vValue = Target End Sub Вставляем код: Правый щелчок мыши по ярлычку листа(изменения в котором Вы хотите отследить)-Исходный текст-Вставляем приведенный код. |
|
|
Копирование данных по разным листам, Копируем в зависимости от значения
Проблема взаимодействия 1С 8.2 и Excel 2010.,
Копирование данных по разным листам, Копируем в зависимости от значения
Копирование данных по разным листам, Копируем в зависимости от значения
22.05.2013 14:18:35
Вот нашел в сети пример, спасибо "The_Prist", классный макросишка, соображаю что по признаку копируется в Лист который в столбце D. как допилить то его если у меня может быть 2 признака (User1,User2) через запятую.
Заранее благодарю. Sub ПРИЧИНЫ() Dim i As Double Dim iLastRow1 As Double Dim K As Double, wsSh As Worksheet iLastRow1 = Sheets("НАЧАЛО").Cells(Rows.Count, 2).End(xlUp).Row 'находим последнюю строку листа НАЧАЛО With Sheets("НАЧАЛО") On Error Resume Next For i = 0 To iLastRow1 'перебираем весь столбец по условию до последней строки Set wsSh = Sheets(Trim(.Cells(i + 3, 4).Value)) If Not wsSh Is Nothing Then wsSh.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 15).Value = .Cells(i + 3, 1).Resize(, 15).Value Else Sheets("ПРОЧИЕ").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 15).Value = .Cells(i + 3, 1).Resize(, 15).Value End If Set wsSh = Nothing Next i End With End Sub |
|
|
Внесение ежемесячных платежей по ГСК в общую таблицу
Внесение ежемесячных платежей по ГСК в общую таблицу
Копирование данных по разным листам, Копируем в зависимости от значения
22.05.2013 12:01:44
Добрый день! Дорогие форумчане помогите с макросом или формулой для копирования строк по листам книги.
Создать Листы с именами "Ответственных за отклонения", если само отклонение больше или меньше (+/- 10) от плана (столбец G), то перетаскиваем в созданные листы строки ,если отклонение в норме то строку перетаскивать не надо . Пример вручную сделал для User1 и User2. Вручную я сам могу создать листы с именами ответственных. Если можно автоматизировать копирование. |
|
|
Условное форматирование ячейки
Условное форматирование ячейки
Не печатать определенных ячеек
Значение фильтра в отдельную ячейку
Использование если с диапозоном ячеек
Листы в Excel 2007
Сводная таблица : Вставка содержимого ячеек в Значение
12.12.2012 10:02:11
Может этот пример с "Приёмов" поможет вам
|
|
|
Быстрая замена столбца в формуле
Разноска данных столбца по двум столбцам
Разноска данных столбца по двум столбцам
Разноска данных столбца по двум столбцам
Разноска данных столбца по двум столбцам
Выборка из данных по спискам на другой лист
Выборка из данных по спискам на другой лист
05.12.2012 16:59:22
Сделал сам, правда топорненько, на Листе "база" стоят 2 фильтра в С3 и D3. На Листе "выборка" суммы по квартально и помесячно при помощи промежуточных итогов.
Особо не изящно но мне так сойдет, всё видно. Пользуйтесь может кому пригодится. Спасибо всем кто ответил на просьбу помочь. тема закрыта. |
|
|
Выборка из данных по спискам на другой лист
Выборка из данных по спискам на другой лист
Выборка из данных по спискам на другой лист
05.12.2012 10:41:04
Добрый день! Помогите создать списки на Листе "вывод результатов" из данных которые есть на Листе "по месячно". Первый список по всем договорам или по договорам с видом услуги (например "вывоз ТБО"), второй по всем услугам или по конкретной, третий период по месячно (с нарастанием), квартал, полугодие, год.
|
|
|