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

Страницы: 1
Сумма промежуточных итогов в автофильтре Макроса, Как автоматизировать корректно?
 
#
03.06.2019 06:01:35
Добрый день!
Подскажите пожалуйста, как в макросе сделать корректную выборку с автофильтра?
Дело в том, что с макросами особо не дружу, делаю их только в записи Excel своих действий (записать макрос и потом остановить).

Сделал автофильтр по условию и в конце сумма промежуточных итогов по выбранному фильтру.
Однако делая макросом следующий автофильтр по другому условию он делает промежуточные итоги по старому автофильтру.
Помогите пожалуйста!

Код
Range("AU1").Select Selection.AutoFilter
Range("AV4").SelectActiveSheet.Range("$A$1:$AU$221").AutoFilter Field:=46, Criteria1:="Алмата"[/P]Range("AU19").Select
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 44
ActiveWindow.ScrollRow = 57
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 74
ActiveWindow.ScrollRow = 80
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 99
ActiveWindow.SmallScroll Down:=222
Range("AU400").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-381]C:R[-1]C)"
Range("AU400").Select
Selection.Copy
Range("AS400").Select
ActiveSheet.Paste
Range("AQ400").Select
ActiveSheet.Paste
Range("AI400").Select
ActiveSheet.Paste
Range("AC400").Select
ActiveSheet.Paste
ActiveWindow.ScrollRow = 378
ActiveWindow.ScrollRow = 376
ActiveWindow.ScrollRow = 373
ActiveWindow.ScrollRow = 372
ActiveWindow.ScrollRow = 369
ActiveWindow.ScrollRow = 367
ActiveWindow.ScrollRow = 365
ActiveWindow.ScrollRow = 363
ActiveWindow.ScrollRow = 361
ActiveWindow.ScrollRow = 359
ActiveWindow.ScrollRow = 357
ActiveWindow.ScrollRow = 355
ActiveWindow.ScrollRow = 353
ActiveWindow.ScrollRow = 351
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 345
ActiveWindow.ScrollRow = 343
ActiveWindow.ScrollRow = 341
ActiveWindow.ScrollRow = 339
ActiveWindow.ScrollRow = 337
ActiveWindow.ScrollRow = 336
ActiveWindow.ScrollRow = 334
ActiveWindow.ScrollRow = 332
ActiveWindow.ScrollRow = 330
ActiveWindow.ScrollRow = 329
ActiveWindow.ScrollRow = 326
ActiveWindow.ScrollRow = 324
ActiveWindow.ScrollRow = 321
ActiveWindow.ScrollRow = 318
ActiveWindow.ScrollRow = 312
ActiveWindow.ScrollRow = 308
ActiveWindow.ScrollRow = 303
ActiveWindow.ScrollRow = 297
ActiveWindow.ScrollRow = 292
ActiveWindow.ScrollRow = 286
ActiveWindow.ScrollRow = 281
ActiveWindow.ScrollRow = 277
ActiveWindow.ScrollRow = 272
ActiveWindow.ScrollRow = 267
ActiveWindow.ScrollRow = 262
ActiveWindow.ScrollRow = 258
ActiveWindow.ScrollRow = 253
ActiveWindow.ScrollRow = 248
ActiveWindow.ScrollRow = 243
ActiveWindow.ScrollRow = 237
ActiveWindow.ScrollRow = 231
ActiveWindow.ScrollRow = 225
ActiveWindow.ScrollRow = 220
ActiveWindow.ScrollRow = 213
ActiveWindow.ScrollRow = 207
ActiveWindow.ScrollRow = 201
ActiveWindow.ScrollRow = 196
ActiveWindow.ScrollRow = 190
ActiveWindow.ScrollRow = 184
ActiveWindow.ScrollRow = 179
ActiveWindow.ScrollRow = 171
ActiveWindow.ScrollRow = 166
ActiveWindow.ScrollRow = 157
ActiveWindow.ScrollRow = 147
ActiveWindow.ScrollRow = 139
ActiveWindow.ScrollRow = 130
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 114
ActiveWindow.ScrollRow = 107
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 73
ActiveWindow.ScrollRow = 69
ActiveWindow.ScrollRow = 65
ActiveWindow.ScrollRow = 55
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 64
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 122
ActiveWindow.ScrollRow = 137
ActiveWindow.ScrollRow = 145
ActiveWindow.ScrollRow = 154
ActiveWindow.ScrollRow = 164
ActiveWindow.ScrollRow = 178
ActiveWindow.ScrollRow = 189
ActiveWindow.ScrollRow = 204
ActiveWindow.ScrollRow = 217
ActiveWindow.ScrollRow = 228
ActiveWindow.ScrollRow = 243
ActiveWindow.ScrollRow = 255
ActiveWindow.ScrollRow = 266
ActiveWindow.ScrollRow = 278
ActiveWindow.ScrollRow = 289
ActiveWindow.ScrollRow = 298
ActiveWindow.ScrollRow = 307
ActiveWindow.ScrollRow = 315
ActiveWindow.ScrollRow = 321
ActiveWindow.ScrollRow = 328
ActiveWindow.ScrollRow = 335
ActiveWindow.ScrollRow = 339
ActiveWindow.ScrollRow = 345
ActiveWindow.ScrollRow = 351
ActiveWindow.ScrollRow = 356
ActiveWindow.ScrollRow = 360
ActiveWindow.ScrollRow = 365
ActiveWindow.ScrollRow = 369
Sheets("Лист2").Select
Range("B1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Алматы"
Range("B3").Select
ActiveCell.FormulaR1C1 = "Выплаченные"
Range("B4").Select
ActiveCell.FormulaR1C1 = "комиссия"
Range("B7").Select
ActiveCell.FormulaR1C1 = "Отправленные"
Range("B8").Select
ActiveCell.FormulaR1C1 = "комиссия"
Range("B9").Select
Columns("B:B").ColumnWidth = 14.29
Range("B3:C4").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("B7:C8").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("D8").Select
Columns("C:C").ColumnWidth = 13.71
Range("C1").Select
Selection.Font.Bold = True
Sheets("Лист1").Select
Range("AU400").Select
Selection.Copy
Sheets("Лист2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Лист1").Select
ActiveWindow.ScrollRow = 368
ActiveWindow.ScrollRow = 365
ActiveWindow.ScrollRow = 360
ActiveWindow.ScrollRow = 356
ActiveWindow.ScrollRow = 348
ActiveWindow.ScrollRow = 339
ActiveWindow.ScrollRow = 329
ActiveWindow.ScrollRow = 319
ActiveWindow.ScrollRow = 301
ActiveWindow.ScrollRow = 292
ActiveWindow.ScrollRow = 280
ActiveWindow.ScrollRow = 270
ActiveWindow.ScrollRow = 261
ActiveWindow.ScrollRow = 254
ActiveWindow.ScrollRow = 246
ActiveWindow.ScrollRow = 239
ActiveWindow.ScrollRow = 232
ActiveWindow.ScrollRow = 225
ActiveWindow.ScrollRow = 218
ActiveWindow.ScrollRow = 211
ActiveWindow.ScrollRow = 195
ActiveWindow.ScrollRow = 179
ActiveWindow.ScrollRow = 172
ActiveWindow.ScrollRow = 155
ActiveWindow.ScrollRow = 149
ActiveWindow.ScrollRow = 139
ActiveWindow.ScrollRow = 134
ActiveWindow.ScrollRow = 124
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 95
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 74
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 65
ActiveWindow.ScrollRow = 55
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 1
ActiveSheet.Range("$A$1:$AU$221").AutoFilter Field:=8, Criteria1:="P"
ActiveWindow.SmallScroll Down:=240
Range("AC400").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Лист2").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Лист1").Select
Range("AI400").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Лист2").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Лист1").Select
ActiveWindow.ScrollRow = 387
ActiveWindow.ScrollRow = 385
ActiveWindow.ScrollRow = 379
ActiveWindow.ScrollRow = 373
ActiveWindow.ScrollRow = 367
ActiveWindow.ScrollRow = 359
ActiveWindow.ScrollRow = 351
ActiveWindow.ScrollRow = 342
ActiveWindow.ScrollRow = 334
ActiveWindow.ScrollRow = 324
ActiveWindow.ScrollRow = 313
ActiveWindow.ScrollRow = 304
ActiveWindow.ScrollRow = 294
ActiveWindow.ScrollRow = 281
ActiveWindow.ScrollRow = 268
ActiveWindow.ScrollRow = 253
ActiveWindow.ScrollRow = 239
ActiveWindow.ScrollRow = 226
ActiveWindow.ScrollRow = 216
ActiveWindow.ScrollRow = 206
ActiveWindow.ScrollRow = 197
ActiveWindow.ScrollRow = 187
ActiveWindow.ScrollRow = 178
ActiveWindow.ScrollRow = 170
ActiveWindow.ScrollRow = 148
ActiveWindow.ScrollRow = 142
ActiveWindow.ScrollRow = 131
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 88
ActiveWindow.ScrollRow = 82
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 73
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 54
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 1
ActiveSheet.Range("$A$1:$AU$221").AutoFilter Field:=8, Criteria1:="S"
ActiveWindow.SmallScroll Down:=204
Range("AS400").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Лист2").Select
Range("C7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Лист1").Select
Range("AI400").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Лист2").Select
Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("C:C").Select
Application.CutCopyMode = False
Selection.Style = "Comma"
Range("G6").Select
ActiveCell.FormulaR1C1 = "Контроль отправленных"
Range("E8").Select
Sheets("Лист1").Select
Range("AQ400").Select
Selection.Copy
Sheets("Лист2").Select
Range("F7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E7:F7").Select
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Columns("E:E").ColumnWidth = 10.14
Range("F7").Select
Selection.Style = "Comma"
End Sub
Изменено: bio1977 - 03.06.2019 14:19:00
 
Перейти    
ВПР: где то нд, а где то ноль
 
#
26.02.2018 08:26:34
Добрый день!
Сидел делал ВПР с разных файлов. Все шло хорошо. Там где был ноль - он ставил ноль. Там где была пустая ячейка он ставил НД.
Далее решил перепроверить себя. Наоборот стал делать ВПР (в обратную сторону с того файла в основной)  и тут он стал везде выдавать нули вместо НД где пусто и нулей где нули. Везде проставлял нули, даже если ячейки были пустыми.
что я сделал не так?
 
Перейти    
Помогите удалить дубликаты в списке, но оставить последнюю дату
 
#
11.10.2017 17:49:54
Добрый день форумчане!
Помню как то занимался Excel и таблицами, потом сменил работу и уже почти всё позабыл...
Помогите пожалуйста в списке убрать дубликаты, но при этом из двух дублирующихся значений оставить только то, которое "свежее" датой.
Как это сделать? Даты дубликата закрашеные красной заливкой - это "старые" даты, эти дубликаты надо убрать. А даты закрашенные зеленой заливкой это актуальные "свежие" дубликаты и их надо оставить. Так как в исходном рабочем файле даты в разном формате или отсуствуют, то просьба сделать это с помощью заливки (зеленый оставить и убрать красный дубликат), а не даты.
Буду очень признателен Вам за помощь!
 
Перейти    
Как заложить суммирование по датам?
 
#
29.05.2016 06:44:28
Есть отчет в котором есть дата и два столбца данных.
Даты идут в нарастающем порядке вниз, напротив каждой даты два столбца с данными.

Как можно в конце отчета заложить даты и сумму в соответствие с датами? Но при этом сумма одного из столбцов должна быть смещена на уровень другой даты, но считать свою дату?
Посмотрите пожалуйста пример.
 
Перейти    
Как протянуть СРЗНАЧ но без учета нулевых значений?
 
#
03.07.2014 04:34:16
СРЗНАЧ берет в расчет все показатели где протянут диапазон условия, даже если там нули, а можно ли протянуть что бы брал в расчет только положительные значения (больше нуля) ?

Пример во вложении.
 
Перейти    
ДА/НЕТ в зависимости от значений в ячейках
 
#
26.06.2014 10:36:33
Доброе время суток форумчане!
Подскажите пожаоуйста логическую формулу
Условие такое - если столбец А больше нуля и столбец Б больше нуля, а также если столбец В больше нуля но при условии что столбцы А и Б больше нуля, то ДА, в противном случае НЕТ.

Застрял на прописке условия столбца В.
 
Перейти    
Помогите проставить средние итоги., автоматически или формулой
 
#
23.06.2014 08:16:40
Доброе время суток!
Подскажите пожалуйста как проставить средние итоги по компании, в соответствии с каждым его номером договора?
Желательно что бы договора не забивать вручную.

Пример во вложении.
 
Перейти    
Помогите отсортировать данные по группам без нарушения состава группы
 
#
09.06.2014 17:40:46
Есть клиенты группы, которые я вытащил сводной таблицей, в группу одного клиента входят несколько клиентов с разной прибылью, но сортировать по убыванию прибыли необходимо только по итоговой группе без нарушения состава группы... (итоговая прибыль это сумма прибыли всех компаний входящих в группу, это так к сведению)
Я в растерянности... помогите пожалуйста... У меня при сортировке ломается состав группы.... даже если я накладываю фильтр на итоги и потом по итогам сортирую.

Пример файла во вложении. Лист Microsoft Excel.xlsx (9.51 КБ)
Изменено: bio1977 - 09.06.2014 17:49:09
 
Перейти    
Возможно ли функциями листа переносить форматирование ячеек? (заливку, шрифт и т.д.)
 
#
07.06.2014 09:25:30
Возможно ли такое?
 
Перейти    
как поставить перед каждой цифрой знак минус?
 
#
06.06.2014 10:47:50
очень большой массив цифр и перед каждой надо поставить знак минуса. Подскажите как?
 
Перейти    
Как вставить данные в нужные ячейки, из другой книги, в соотвествии с условием совпадения показателей.
 
#
03.06.2014 18:48:28
Подскажите пожалуйста, как можно вставить данные в ячейки показателей из другой книги (или листа), где показатели не по порядку?
Может по какому то идентификатору который проставить "откуда брать" и "куда вставлять"?

Пример во вложении. Желательно что бы наложить формулу махом на все показатели, а она сама распределила куда что в соответствии со своим показателем. Каждому свои данные распределила, что не подходит (лишнее) - не брала.
Пример.xlsx (10.52 КБ)
Изменено: bio1977 - 03.06.2014 18:48:57
 
Перейти    
Как найти порядковые места значений в таблице?
 
#
29.05.2014 13:38:06
желательно не учитывая первую строчку которая является шапкой таблицы.
Нужно одних клиентов найти в другой таблице и поставить место (позицию) в списке той таблицы.
 
Перейти    
Как суммировать данные с условием и выборкой
 
#
13.05.2014 17:55:03
Имеется вот такая структура (см. вложение). Как по группам компаний протянуть сумму копированием формулы по всем показателям где написано "сумма" (вместо этого слова) но так как их много, то хотелось бы протянуть формулу тупо скопировав ее один раз и вставляя строкой в строки "группы компаний". Что бы сумма сама понимала кто входят в группу материнской компании и складывала ее показатели. Условия кто входит в материнскую компанию - есть. Приведены в столбце "С" название "ID код материнской компании".
Можно ли как то заложить что бы формула брала диапазон от 3-ей строки до 40-й, далее понимала какие именно компании входят в группу и делала по ним сумму. А те кто сам по себе не трогала и кто не в ходит в группу тоже не суммировала. И эту формулу я бы копировал в отведенные строки группы.

Помогите пожалуйста!
 
Перейти    
Страницы: 1
Наверх