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

Страницы: 1
макрос для добавления блоков столбцов, макрос для добавления блоков столбцов
 
#
25.06.2022 16:56:19
Привет! помогите написать макрос для добавления блоков столбцов в разных местах таблицы.
Например, есть блоки со столбцами n1-n7, которые содержат данные по месяцам.
Нужно сделать макрос который сможет по второй строке столбца n1 определить что это за месяц, например 05.2021, и добавить после этого блока такой же блок с таким же месяцем и столбцами n1-n7.
при этом таких блоков с 05.2021 может быть несколько подряд, и новый блок нужно добавить после самого правого блока с таким месяцем
Пример во вложении.
Спасибо.
 
Перейти    
код для вставки формулы в определенную строку Vba
 
#
17.12.2019 17:12:32
Всем привет! Есть такой кусок кода, который под определенной основной строкой добавляет новые строки и заполняет их значениями. нужен код, который вставит формулу в последнюю добавленную строку. Вопрос в том, как обозначить или как определить в vba эту последнюю добавленную строку в которую мне надо вставить формулу. Формула должна быть следующей: в основной строке вручную пишется сумма, в новых добавленных строках пишутся слагаемые этой суммы, а последняя  строка из этих новых-добавленных рассчитывается как сумма в основной строке минус все слагаемые из новых строк выше.

Код добавления и группировки строк:
Код
Dim i, j As Integer

Sheets("060").Select
For i = 25 To 500
For j = 17 To 100

If Cells(i, 46) = 1 And Sheets("060").Cells(i, 44) = Sheets("Ном").Cells(j, 5) Then
 Rows(i + 1).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Ном").Select
Sheets("Ном").Range(Cells(j, 7), Cells(j, 32)).Select
Selection.Copy
Sheets("060").Select
Range(Cells(1 + i, 47), Cells(1 + i, 47)).Select
ActiveSheet.Paste
Rows(i + 1 & ":" & i + 1).Select
Selection.Rows.Group
 End If
 Next j
 Next i
Помогите пожалуйста
 
Перейти    
Вставить и сгруппировать пустые строки
 
#
12.11.2019 15:24:36
Привет! есть макрос, который добавляет пустые строки по определенному условию, подскажите код, который позволит сразу эти пустые вставленные строки сгруппировать?
Код
Sub вставка_строк_в_рсз()
Dim i As Integer
Sheets("РСЗ (1)").Select
For i = 17 To 743
If Cells(i, 97) = 1 Then
 Rows(i + 1).Resize(Cells(i, 3)).EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
 End If
 Next i
End Sub
Изменено: nikita49 - 12.11.2019 20:35:20
 
Перейти    
Вставка n- количества строк после найденного значения
 
#
11.11.2019 14:18:35
Привет! подскажите пожалуйста как в макросе выбрать или обозначить ячейку после поиска
Код
Set fcell = Columns("A:A").Find(1510)

после этой найденной ячейки нужно вставить n-ное количество пустых строк  
Изменено: nikita49 - 11.11.2019 14:40:22
 
Перейти    
Сложить произведение ненулевых строк
 
#
05.11.2019 12:44:37
Привет! нужна формула, которая  сложит произведение только тех строк, второй множитель которых не равен 0. Пример прикрепляю. Помогите пожалуйста!
 
Перейти    
Вставить строку над ячейкой, в которой поменялось значение
 
#
18.10.2019 12:48:48
Привет

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

помогите пожалуйста!  пример прикрепляю
Изменено: nikita49 - 18.10.2019 13:26:33 (уточнение)
 
Перейти    
Страницы: 1
Наверх