Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Павел
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Выборка данных для среза после выполнения макроса.
 
#
07.03.2016 16:27:19
KuklP, еще раз большое спасибо Вам. Все работает, после праздников буду тестировать на работе и там все уже будет ясно, надеюсь, что все будет хорошо! Еще раз спасибо!
 
Перейти    
Выборка данных для среза после выполнения макроса.
 
#
07.03.2016 12:07:18
Спасибо большое KukIP . Буду разбираться сейчас! Позже отпишусь.
 
Перейти    
Выборка данных для среза после выполнения макроса.
 
#
06.03.2016 13:43:14
Всем привет!
Чето опять не работает. Данные с листа "РАСХОД_СКЛАД" при выполнении макроса, стали выбираются на низ таблицы на листе "РАСХОД_ОБЩИЙ". Чтобы все данные были видны, помогает только фильтр для месяца(((
вот ссылка на файл https://cloud.mail.ru/public/8kvF/TYZJavP1q (файл перезалил)
Просто уже не знаю как поступить в данном случаи. Можно наверно переписать макрос, чтобы он считывал только значения ячеек, а не формулы, которые там находятся. Не знаю.
Изменено: Павел - 06.03.2016 13:43:40
 
Перейти    
Выборка данных для среза после выполнения макроса.
 
#
03.03.2016 00:36:47
KukIP все работает как Вы посоветовали. Моя ошибка была не внимательно правил код) Спасибо Вам большое!

Вот как сделал:
Код
        .Range(.Cells(7, 2), .Cells(LastRow, 8)).Copy Cells(Freerow, 2)
        .Range(.Cells(7, 3), .Cells(LastRow, 8)).Copy Cells(Freerow, 3)
        .Range(.Cells(7, 4), .Cells(LastRow, 8)).Copy Cells(Freerow, 4)
        .Range(.Cells(7, 5), .Cells(LastRow, 8)).Copy Cells(Freerow, 5)
        .Range(.Cells(7, 6), .Cells(LastRow, 8)).Copy Cells(Freerow, 6)
        .Range(.Cells(7, 7), .Cells(LastRow, 8)).Copy Cells(Freerow, 7)
        .Range(.Cells(7, 8), .Cells(LastRow, 8)).Copy Cells(Freerow, 8)
 
Перейти    
Выборка данных для среза после выполнения макроса.
 
#
01.03.2016 17:59:48
Цитата
KuklP написал:  .Range(.Cells(7, 2), .Cells(LastRow, ).Copy Cells(Freerow, 2)
Спасибо KukIP. Сделал как Вы посоветовали не работает к сожалению. Мне бы не хотелось менять код макроса, он работает и выполняет свою функцию. думаю, что надо прописать чтобы срезы обновлялись после макроса. Хотя может я и ошибаюсь.
 
Перейти    
Выборка данных для среза после выполнения макроса.
 
#
01.03.2016 15:14:46
Здравствуйте!
Всем хорошего времени суток.
Есть проблема - как сделать чтобы срезы на листе начинали работать и считывать данные после выполнения макроса на этом же листе.  
Макрос:
Код
Sub Macro1()
Dim LastRow As Long, i As Long, Freerow As Long
    LastRow = Cells(Rows.Count, 2).End(xlUp).Row
    Range(Cells(7, 1), Cells(LastRow + 1, 8) ).ClearContents
    Freerow = 7
    Application.ScreenUpdating = False
    With Sheets("РАСХОД_Б.Н")
        LastRow = .Cells(Rows.Count, 1).End(xlUp).Row
        .Range(.Cells(7, 2), .Cells(LastRow, 2)).Copy Cells(7, 2)
        .Range(.Cells(7, 3), .Cells(LastRow, 3)).Copy Cells(7, 3)
        .Range(.Cells(7, 4), .Cells(LastRow, 4)).Copy Cells(7, 4)
        .Range(.Cells(7, 5), .Cells(LastRow, 5)).Copy Cells(7, 7)
        .Range(.Cells(7, 6), .Cells(LastRow, 6)).Copy Cells(7, 8)
    End With
    Freerow = Cells(Rows.Count, 2).End(xlUp).Row + 1
    With Sheets("РАСХОД_СКЛАД")
        LastRow = .Cells(Rows.Count, 2).End(xlUp).Row
        .Range(.Cells(7, 2), .Cells(LastRow, 2)).Copy Cells(Freerow, 2)
        .Range(.Cells(7, 3), .Cells(LastRow, 3)).Copy Cells(Freerow, 3)
        .Range(.Cells(7, 4), .Cells(LastRow, 4)).Copy Cells(Freerow, 4)
        .Range(.Cells(7, 5), .Cells(LastRow, 5)).Copy Cells(Freerow, 5)
        .Range(.Cells(7, 6), .Cells(LastRow, 6)).Copy Cells(Freerow, 6)
        .Range(.Cells(7, 7), .Cells(LastRow, 7)).Copy Cells(Freerow, 7)
        .Range(.Cells(7, 8), .Cells(LastRow, 8)).Copy Cells(Freerow, 8)
    End With
    ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add Key:=Range("C7" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveSheet.Sort
        .SetRange Range("A7:H2000")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    LastRow = Cells(Rows.Count, 2).End(xlUp).Row
    For i = 7 To LastRow
        Cells(i, 1) = i - 6
    Next
    Application.ScreenUpdating = True
End Sub
Имя первого среза для использования в формулах: Срез_месяц2
Имя второго среза для использования в формулах: Срез_госномер2

Я ранее публиковал тему в форуме с этой проблемой, но так никто и не ответил(((
Возможно потому, что я файл приложил для скачивания из облака (так как файл больше положенного размера)  

Тем не менее вот ссылка на файл: https://cloud.mail.ru/public/8Rem/h8NPkpw7g
Вот ссылка не предыдущую тему: http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=74843

Заранее благодарен.
 
Перейти    
Объединение 2х таблиц в одну с разными текстовыми и цифровыми значениями.
 
#
25.02.2016 23:59:41
Всем хорошего времени суток! Начал адаптировать решения для моей таблицы любезно предоставленное Юрием, за что ему еще раз огромное спасибо! Появилась проблема, следующего характера: для объединения данных с листов "РАСХОД_СКЛАД" и "РАСХОД_Б.Н" формируется таблица на листе "РАСХОД_ОБЩИЙ" в ней есть пару срезов, которые работают не корректно, а именно - непосредственно в самом срезе выводятся наименования только с листа "РАСХОД_Н.Б", а наименования с листа "РАСХОД_СКЛАД" не выводятся, как пример месяц Апрель и Декабрь их нет). Самое интересное, что если к примеру в срезе выбрать другой месяц (Январь или Февраль) то таблица выводит правильные данные для обоих таблиц в соответствии с данным месяцем. А Декабрь я выбрать не могу в срезе, как так в таблице на листе "РАСХОД_Н.Б" его нет. Лазил по всем настройкам среза - помогает только на один раз, потом как только запускаешь макрос опять все пропадает. Что можно тут предпринять, подскажите или помогите пожалуйста.
Файл загрузить не могу, так как весит больше разрешенного размера, поэтому выложил на облако, ссылка на файл https://cloud.mail.ru/public/8Rem/h8NPkpw7g
Заранее благодарен
Изменено: igetnet - 26.02.2016 00:21:32
 
Перейти    
Объединение 2х таблиц в одну с разными текстовыми и цифровыми значениями.
 
#
20.02.2016 00:23:45
понял. спасибо!
 
Перейти    
Объединение 2х таблиц в одну с разными текстовыми и цифровыми значениями.
 
#
19.02.2016 23:44:38
Юрий огромное Вам спасибо! Выручили!!!  
 
Перейти    
Объединение 2х таблиц в одну с разными текстовыми и цифровыми значениями.
 
#
19.02.2016 22:23:07
Спасибо парни.
Сам точно не сделаю. Буду переделывать всю архитектуру книги, чтобы найти другое решение. Странно, что не смог найти решение этой проблемы в сети, все рядом да около))
Всех с наступающим праздником и хороших выходных!
 
Перейти    
Объединение 2х таблиц в одну с разными текстовыми и цифровыми значениями.
 
#
19.02.2016 20:58:15
Ребята ну что, ни каких мыслей нет по моему вопросу?  
 
Перейти    
Объединение 2х таблиц в одну с разными текстовыми и цифровыми значениями.
 
#
19.02.2016 15:45:02
Здравствуйте! Помоги разобраться, у самого не получается, нашел огромное кол-во решений по объединению и консолидации таблиц, но они очень наворочены и не подходят для моего решения. Суть в следующем есть таблицы на листах РАСХОД_СКЛАД и РАСХОД_Б.Н они разные. Надо объединить эти таблицы в таблицу на листе РАСХОД_ОБЩИЙ. Там разные значения в наименовании позиций и разное кол-во колонок. Пример прикладывается, как должно быть на выходе. Заранее благодарен.  
 
Перейти    
Выбор суммы при использование среза
 
#
14.02.2016 17:49:56
Catboyun спасибо большое! Все работает)  
 
Перейти    
Выбор суммы при использование среза
 
#
14.02.2016 17:21:57
Всем хорошего времени суток.
Суть состоит в следующем, есть лист РАСХОД с двумя срезами. Там выводится общая сумма расходов, при использование выбора по срезу общая сумма не меняется. Как сделать, чтобы значение общей суммы соответствовала выводу таблицы после среза? И порядковый номер строчки выводится после среза так, как он прописан в общей таблицы.
Заранее благодарен.
Изменено: igetnet - 14.02.2016 17:26:30
 
Перейти    
Вывод таблицы данных по уникальному значению с разных листов.
 
#
13.02.2016 00:06:57
Юрий огромное спасибо! просто выручили меня!
 
Перейти    
Вывод таблицы данных по уникальному значению с разных листов.
 
#
12.02.2016 23:29:21
Спасибо Виктор за Ваш вариант с формулой, классно!  
 
Перейти    
Вывод таблицы данных по уникальному значению с разных листов.
 
#
12.02.2016 23:26:28
Юрий спасибо еще раз, если у Вас время и естественно желание делать это, добавьте пожалуйста еще одну функцию, после того как будет выведена таблица по гос номеру, чтобы можно было потом выбрать по месяцу из этой таблицы данные, которые соответствуют расходам по гос номеру за выбранный месяц. Заранее благодарен.  
Изменено: igetnet - 12.02.2016 23:27:05
 
Перейти    
Вывод таблицы данных по уникальному значению с разных листов.
 
#
12.02.2016 21:59:24
Юрий огромное спасибо! Все как часики работает)
 
Перейти    
Вывод таблицы данных по уникальному значению с разных листов.
 
#
12.02.2016 21:07:15
Всем хорошего времени суток. Ребята подскажите пожалуйста как можно реализовать следующее на листе АВТО выбираешь госномер автомобиля и выводятся там же таблица с данные, которые связанны с этим госномером с листа РАСХОД. На листе РАСХОД я сделал пример как должно выглядеть в идеале).
 
Перейти    
Вставка данных по нескольким условиям, содержащим текст
 
#
12.02.2016 19:45:38
Всем хорошего времени суток. Ребята подскажите пожалуйста как можно реализовать следующее на листе АВТО выбираешь госномер автомобиля и выводятся там же таблица с данные, которые связанны с этим госномером с листа РАСХОД. На листе РАСХОД я сделал пример как должно выглядеть в идеале).
 
Перейти    
Вставка данных по нескольким условиям, содержащим текст
 
#
11.02.2016 12:46:36
Все привет!
Ребята нужна Ваша помощь, адаптировал предложенную формулу к своей книги. Работает чуток не корректно, ошибку нашел.
Суть в следующем: в листе РАСХОД формируется столбик D (цена 1 ед) данные которого подтягиваются из листа ПРИХОД. Одинаковых позиций в ПРИХОДЕ может быть к примеру 5 шт, а в РАСХОДЕ тех же позиций может быть уже 10 шт.
Для РАСХОД! D есть формула: {=ЕСЛИОШИБКА(ИНДЕКС(ПРИХОД!D$1:D$5000;НАИБОЛЬШИЙ(ЕСЛИ(ПРИХОД!$B$1:$B$5000=$B7;СТРОКА(ПРИХОД!$B$1:$B$5000));СЧЁТЕСЛИ($B$7:$B7;$B7)));"")}
Но когда я копирую ее на весть столбик D, то в формуле меняются все значения как положено, кроме последнего диапазона после СЧЁТЕЕСЛИ $B$7 - остается неизменной и на всех других ячейках выводит $B$7, а должно выводить $B$8, $B$9, $B$10 и тд.

Вроде сделал следующим путем убрал $ после В, то есть получил $B7 и соответственно все стало меняться и работать.
Вопрос это правильно так прописать диапазон или есть другие решения?
Заранее благодарен
Изменено: igetnet - 11.02.2016 12:52:30
 
Перейти    
Вставка данных по нескольким условиям, содержащим текст
 
#
11.02.2016 01:24:50
Большое спасибо Юрий работает,по крайней мере значения выдает, сейчас буду настраивать.  
 
Перейти    
Вставка данных по нескольким условиям, содержащим текст
 
#
11.02.2016 01:10:15
Всем доброго времени суток!
Внимательно слежу за этой темой.
скачал файл от  Ivan.kh
Цитата
Копия Реестр11111 .xlsx (21.73 КБ)
Это файл отлично работает у меня и полностью мне подходит для моей таблицы.
Вставляю адаптированную формулу в свою таблицу и ничего не работает.
В ячейке появляется обычный текст формулы.
Подскажите в чем может быть проблема
Вот формула с которой пытаюсь работатью.

{=ЕСЛИОШИБКА(ИНДЕКС(ПРИХОД!B$1:B$500;НАИБОЛЬШИЙ(ЕСЛИ(ПРИХОД!$E$1:$E$500=$B7;СТРОКА(ПРИХОД!$B$1:$B$500));СЧЁТЕСЛИ($B$7:$B7;$B7)));"")}

Заранее благодарен
 
Перейти    
Страницы: 1
Наверх