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

Страницы: 1 2 3 След.
Копирование данных динамической таблицы на другой лист (бланк)
 
#
30.08.2017 20:49:10
Спасибо.
 
Перейти    
Копирование данных динамической таблицы на другой лист (бланк)
 
#
30.08.2017 19:18:04
Dmitriy XM, СПАСИБО ОГРОМНЕЙШЕЕ, ЧЕЛОВЕЧЕСКОЕ!
А не подскажете как можно этот макрос в модуль листа загнать? Очень сложно?
 
Перейти    
Копирование данных динамической таблицы на другой лист (бланк)
 
#
30.08.2017 18:44:52
А столбец итого не переносит........
 
Перейти    
Копирование данных динамической таблицы на другой лист (бланк)
 
#
30.08.2017 18:34:22
Вот посмотрите исходный файл, в первом посте. там если выделить любоц столбец, то он выйдет в конечную форму. И нулевых значений итого и полупустых строк не будет.
 
Перейти    
Копирование данных динамической таблицы на другой лист (бланк)
 
#
30.08.2017 18:31:14
"Вопрос: в какой строке с последнем столбце на странице 1 значения равные нулю?"

Итого может быть нулём. или не иметь значения
Изменено: baurey - 30.08.2017 18:32:26
 
Перейти    
Копирование данных динамической таблицы на другой лист (бланк)
 
#
30.08.2017 18:17:37
Вы немного меня не поняли.
Да, в формулу ошибочно влез столбец с днями. Но не суть важно.
Чтобы в конечном листе 1 в последнем столбце были только отличные от нуля значения.
Столбец F конечно же влияет на последнгий столбец - там сумма строки.
Но выборку сделать бы по всем столбцам по выделению по отдельности (или первой ячейки или всего столбца) (всего столбца проще - его проще выделить.)
Выделил нужный столбец и сделал выборку в конечную форму
Изменено: baurey - 30.08.2017 18:20:32
 
Перейти    
Копирование данных динамической таблицы на другой лист (бланк)
 
#
30.08.2017 17:56:52
К примеру столбец F с нулями.
Ой, извиняюсь, в ячейках столбцов может быть не только ноль, но и пусто.
Изменено: baurey - 30.08.2017 18:00:00
 
Перейти    
Копирование данных динамической таблицы на другой лист (бланк)
 
#
30.08.2017 17:41:18
Цитата
Dmitriy XM написал:
Так?
Да, почти. Конечный результат такой, только как обойтись без нулевых строк (чтобы не было строк с нулями в последнем столбике отчётной таблицы). И чтобы не фиксированно выбирал макрос столбик на листе 2017, а делал эту таблицу на листе 1 из выделенного столбца на листе 2017.
 
Перейти    
Копирование данных динамической таблицы на другой лист (бланк)
 
#
30.08.2017 17:30:10
"Inexsu написал:  Какие именно?"

Столбцы добавляются каждый месяц. Могут добавляться другие столбцы по распределению, по бригадам.

Ещё могут добавляться строки : новые фИО и табельные номера, профессия. Добавляются путём вставки строки между других учасников, допустим в ставка межу ивановым 13 и ивановым 14.

Так же строки могут удаляться : выбывшие участники. Удаляется вся строка.

Задумка в том, чтобы выбрать нужный столбец, запустить макрос и получить сводную без нулевых значений на листе "1", в обойтись без промежуточных листов. только листы 2017 и 1(зелёный).

Добавил в файле как могут добавляться и добавляются.

Изменено: baurey - 30.08.2017 17:33:24
 
Перейти    
Копирование данных динамической таблицы на другой лист (бланк)
 
#
30.08.2017 06:17:39
Так как на листе с цифрой 1. Зелёного цвета ярлык.
А листов всего два: 2017 и 1.
Изменено: baurey - 30.08.2017 06:18:38
 
Перейти    
Копирование данных динамической таблицы на другой лист (бланк)
 
#
29.08.2017 19:28:29
Здравствуйте.
Помогите пожалуйста. Есть Таблица - на листе 2017. там добавляются столбцы каждый месяц. (распределение денег каждый месяц). Как перенести в сводную таблицу чтобы не было пустых строк в ней. и подписи остались.
Работает макрос О. ,: выделяю весь столбец ИТОГО, запускаю макрос О. на 1 результат. Только подписи не появляются под таблицей.
Оно у меня сейчас работает, но приходится использовать промежуточные листы.
Хотелось бы от них избавиться. Т.е. выделив столбик ИТогО ( или любой другой столбец) чтобы сразу перелетало в отчетную таблицу.
Строки могут добавляться а могут и нет - всё зависит от обстановки (на листе 2017). Столбцы добавляются ежемесячно.

Поможете?
Изменено: baurey - 29.08.2017 20:02:03
 
Перейти    
Сумма двух столбцов цифр построчно с буквенным результатом
 
#
18.08.2015 17:51:02
Спасибо,Михаил С., Очень помогли. Огромное душевное СПАСИБО!
 
Перейти    
Сумма двух столбцов цифр построчно с буквенным результатом
 
#
15.08.2015 21:30:23
Если убрать выделенный оранжевым то работает, как ограничение сделать чтобы на ячейке с текстом останавливалось?
 
Перейти    
Сумма двух столбцов цифр построчно с буквенным результатом
 
#
15.08.2015 21:15:42
Спасибо!
Я попробовал - всё работает , но если в любом столбце текст, где цифры текст - то тоже не работает.
Нельзя ли сделать останов как до текста дойдёт?
 
Перейти    
Сумма двух столбцов цифр построчно с буквенным результатом
 
#
15.08.2015 20:21:05
Извините уж, а если вот так изменится?:
Изменено: baurey - 15.08.2015 20:27:16
 
Перейти    
Сумма двух столбцов цифр построчно с буквенным результатом
 
#
15.08.2015 20:11:58
Практически могут гулять непредсказуемо по горизонтали до +15 а по вертикали до +5
 
Перейти    
Сумма двух столбцов цифр построчно с буквенным результатом
 
#
15.08.2015 20:07:55
Вот так.
 
Перейти    
Сумма двух столбцов цифр построчно с буквенным результатом
 
#
15.08.2015 19:54:14
Заработало, СПАСИБО ОГРОМНЕЙШЕЕ!
 
Перейти    
Сумма двух столбцов цифр построчно с буквенным результатом
 
#
15.08.2015 19:46:16
Не пойму : не работает вообще - ничего не меняется.

Пардон, не присвоил макрос кругляку. Исправил.
Изменено: baurey - 15.08.2015 19:47:41
 
Перейти    
Сумма двух столбцов цифр построчно с буквенным результатом
 
#
15.08.2015 19:32:30
Не работает. Не пойму в чём дело.

Небольшое уточнение: не только лист удаляется, но и столбцы могут менять свои места.
Вот и не знаю как быть.... :(

Макрос внутри.
Изменено: baurey - 15.08.2015 19:39:29
 
Перейти    
Сумма двух столбцов цифр построчно с буквенным результатом
 
#
15.08.2015 16:16:45
 Формулами проще, но лист где это должно работать всё время меняется, т.е. старый убирают, новый вставляют.
Помогите пожалуйста!
Вот такой макрос был.
Код
Sub ReplaceValues()
Range("G1:G20").Select
    Selection.ClearContents
   Dim cell As Range
   Range("G1").Select
    ActiveCell.FormulaR1C1 = "=RC[-4]-RC[-2]"
    Range("G1").Select
    Selection.AutoFill Destination:=Range("G1:G20"), Type:=xlFillDefault
    Range("G1:G20").Select
   For Each cell In Range("G1:G20").Cells
         If cell.Value < 0 Then
         cell.Value = "ошибка"
      ElseIf cell.Value > 0 Then
         cell.Value = "а"
         ElseIf cell.Value = 0 Then
         cell.Value = "А"
      End If
   Next
End Sub

Как сделать чтобы лишние буквы не вылазили? Помогите пожалуйста.

Рисунок удален: превышение допустмого размера вложения [МОДЕРАТОР]
Изменено: baurey - 15.08.2015 18:57:29
 
Перейти    
Сумма двух столбцов цифр построчно с буквенным результатом
 
#
15.08.2015 15:44:49
Помогите пожалуйста!
Как макросом сделать чтобы в одной строке сначала вычислить С1-Е1, потом не записывая результат сравнить его с нулём и если меньше нуля то написать в ячейке G1 "ошибка", если больше нуля то поставить строчную букву "а", если равно нулю то поставить заглавную букву "А", а в строке где нет цифр (хотябы одной цифры) ничего не трогать ( не изменять). В макросах ноль - пробовал с подсказками, пробовал, получилось только лишь заполнить столбец полностью независимо от наличия цифр. Пустые строки тоже считает и ставит букву.  
Изменено: baurey - 15.08.2015 18:25:00
 
Перейти    
Копирование строк на другой лист по нескольким условиям
 
#
11.06.2013 14:28:19
Понял что мне изучить VBA не грозит.. Слишком тупой в этом вопросе...  :D
Изменено: baurey - 11.06.2013 14:28:32
 
Перейти    
Копирование строк на другой лист по нескольким условиям
 
#
11.06.2013 14:13:57
Вроде работает... углубленно не применял ещё.
А что такое SpecialCells? и что указывается в скобках? нигде не нашел описания. Cells - это понятно.
 
Перейти    
Копирование строк на другой лист по нескольким условиям
 
#
11.06.2013 12:54:40
Спасибо огромнейшее.....
Что-то не даются мне такие програмы....
Ещё раз: СПАСИБО ВСЕМ!!!!!!!!!!!
 
Перейти    
Копирование строк на другой лист по нескольким условиям
 
#
11.06.2013 12:05:04
Понял.
Спасибо за подсказки.
Изменено: baurey - 11.06.2013 12:08:17
 
Перейти    
Копирование строк на другой лист по нескольким условиям
 
#
11.06.2013 11:50:50
Код
И что мне с ними делать? Несовсем пойму...
Изменено: baurey - 11.06.2013 12:04:44
 
Перейти    
Копирование строк на другой лист по нескольким условиям
 
#
11.06.2013 11:28:34
Hugo, куда вставить? у меня не модуль, а исходный текст листа.

Цитата
Юрий М пишет: baurey, код оформляйте соответствующим тегом.
это как?
Изменено: baurey - 12.06.2013 00:28:07
 
Перейти    
Копирование строк на другой лист по нескольким условиям
 
#
11.06.2013 10:51:13
Код
Public Sub корректировка_ОН()
 Dim i As Long
 'Очищаем лист2
 If Not ThisWorkbook.Worksheets("для корр ОН"  ;)  .Range("A2"  ;)  .Value = "" Then ThisWorkbook.Worksheets("для корр ОН"  ;)  .Range(ThisWorkbook.Worksheets("для корр ОН"  ;)  .Cells(2, 1), ThisWorkbook.Worksheets("для корр ОН"  ;)  .Cells.SpecialCells(xlLastCell)).Clear
 'Копируем по условию
 For i = 2 To ThisWorkbook.Worksheets("План"  ;)  .Cells(Rows.Count, 1).End(xlUp).Row
 If ThisWorkbook.Worksheets("План"  ;)  .Cells(i, 9).[COLOR=#FF0000]Value = "ОН"[/COLOR] And Not ThisWorkbook.Worksheets("План"  ;)  .Cells(i,  8)  .Value = ThisWorkbook.Worksheets("План"  ;)  .Cells(i, 10).Value Then
 ThisWorkbook.Worksheets("План"  ;)  .Cells(i, 1).EntireRow.Copy Destination:=ThisWorkbook.Worksheets("для корр ОН"  ;)  .Cells(ThisWorkbook.Worksheets("для корр ОН"  ;)  .Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
 End If
 Next i
End Sub&


А не подскажете как сделать чтобы выбирал ОН написанное и заглавными буквами (ОН) и прописными (он)?

Пробовал поставить Value = "ОН" or "он" , Value = "ОН" or Value = "он" , Value = "ОН" and Value = "он" не помгло. Ну чайник я деревянный.
Изменено: baurey - 11.06.2013 12:04:01
 
Перейти    
Копирование строк на другой лист по нескольким условиям
 
#
05.06.2013 09:24:24
Спасибо большое. Самому не одолеть такое.
 
Перейти    
Страницы: 1 2 3 След.
Наверх