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

Страницы: 1
Сумма до определённой ячейки, нужна формула или макрос
 
#
06.10.2023 13:48:57
Это не то
 
Перейти    
Сумма до определённой ячейки, нужна формула или макрос
 
#
06.10.2023 13:07:17
Я недавно натыкался на формулу которая считает сумму до определенной ячейки прилагаю изображение.
Смысл: в ячейке которая выделена должна быть сумма до ячейки (Всего руб. с НДС), но проблема в том что количество наименований всегда разное. расположение в столбце не меняется  а строки могут меняться.  Хелп.
 
Перейти    
Макрос добавление строчек, создание макроса с всплывающими кнопками
 
#
05.10.2023 15:51:22
Спасибо вам, тема для меня закрыта
 
Перейти    
Макрос добавление строчек, создание макроса с всплывающими кнопками
 
#
05.10.2023 15:25:55
Код
Sub InsertRowUp()
  Dim IRow&
  IRow = ActiveCell.Row
  Rows(IRow).EntireRow.Insert
  Range(Cells(IRow, 2), Cells(IRow, 8)).Merge     'объединение ячеек менять только цифры (это столбцы)
  Range(Cells(IRow, 10), Cells(IRow, 11)).Merge   'объединение ячеек менять только цифры (это столбцы)
  Range(Cells(IRow, 12), Cells(IRow, 14)).Merge   'объединение ячеек менять только цифры (это столбцы)
End Sub
Код
Sub InsertRowDown()
  Dim IRow&
  IRow = ActiveCell.Row + 1
  Rows(IRow).EntireRow.Insert
  Range(Cells(IRow, 2), Cells(IRow, 8)).Merge
  Range(Cells(IRow, 10), Cells(IRow, 11)).Merge
  Range(Cells(IRow, 12), Cells(IRow, 14)).Merge
End Sub
немного пояснений
также при добавлении фигуры нажмите правую кнопку мыши и назначить макрос выберите данный макрос
 
Перейти    
Макрос добавление строчек, создание макроса с всплывающими кнопками
 
#
05.10.2023 11:30:12
Ребят а как создать такие кнопочки? Есть гайд?)
 
Перейти    
Макрос добавление строчек, создание макроса с всплывающими кнопками
 
#
04.10.2023 16:02:04
Ребят помощь нужна. Задача такова, создать макрос на добавление строчки, если мы кликаем по любой ячейке в столбце А. Так вот кликнули мы допустим на ячейку А5, над курсором появилась кнопочка вставить сверху, под курсором вставить снизу. При нажатии на эти кнопки выполняется действие со строчкой 4 если нажата вставить сверху и со строчкой 6 если вставить снизу. Есть некоторые наработки, но не работают((( еще приятный бонус это копирование форматирования активной строки. Так же прилагаю файл в котором это работает.
Код
Sub InsertRowUp()
  iRow = ActiveCell.Row
  Rows(iRow).EntireRow.Insert
  Range(Cells(iRow, 2), Cells(iRow, 6)).Merge
  Cells(iRow, 16).FormulaR1C1 = "=RC10*RC15"
End Sub

Sub InsertRowDown()
  iRow = ActiveCell.Row + 1
  Rows(iRow).EntireRow.Insert
  Range(Cells(iRow, 2), Cells(iRow, 6)).Merge
  Cells(iRow, 16).FormulaR1C1 = "=RC10*RC15"
End Sub
 
Перейти    
Формула по % выполнения производительности
 
#
04.10.2023 12:51:14
=ЕСЛИ(C4<=15;"0%";ЕСЛИ(C4=15,1;"1%";ЕСЛИ(C4=15,2;"2%";ЕСЛИ(C4=15,3;"3%";ЕСЛИ(C4=15,4;"4%";ЕСЛИ(C4=15,5;"5%";ЕСЛИ(C4=15,6;"6%";ЕСЛИ(C4=15,7;"7%";ЕСЛИ(C4=15,8;"8%";ЕСЛИ(C4=15,9;"9%";ЕСЛИ(C4=16;"10%";ЕСЛИ(25>C4>=16,1;"30%";ЕСЛИ(C4>=25;"100%";))))))))))))

Это до 16
 
Перейти    
Организовать цикл по списку файлов, Помогите выстроить правильно Цикл FOR. В дальнейшем думаю это многим поможет.
 
#
04.10.2023 10:08:38
Уважаемы модераторы переименуйте тему на "Организовать цикл по списку файлов"
 
Перейти    
Организовать цикл по списку файлов, Помогите выстроить правильно Цикл FOR. В дальнейшем думаю это многим поможет.
 
#
03.10.2023 17:26:45
Код
Private Sub CommandButton1_Click()
 Dim v1 As String, v2 As String
 Dim n As Integer
    n = Range("O1").Value
    
    For i = 1 To n
    '1
    v1 = Cells(18, i + 2).Value 'ПОМЕНЯТЬ
    v2 = Cells(19, i + 2).Value 'ПОМЕНЯТЬ
    Workbooks.Open Filename:=v1
    Workbooks(v2).Worksheets("Specification").Range("B3").Copy
    Workbooks("КП разработать.xlsm").Activate
    ActiveWorkbook.Worksheets("Таблица").Cells(15, i + 2).Select 'ПОМЕНЯТЬ
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Workbooks.Open Filename:=v1
    Workbooks(v2).Worksheets("Specification").Range("B4").Copy
    Workbooks("КП разработать.xlsm").Activate
    ActiveWorkbook.Worksheets("Таблица").Cells(16, i + 2).Select 'ПОМЕНЯТЬ
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Workbooks(v2).Close
    Next
End Sub


Попробовал через Сells выдает ошибку на 10 строчке, не может найти файл
 
Перейти    
Организовать цикл по списку файлов, Помогите выстроить правильно Цикл FOR. В дальнейшем думаю это многим поможет.
 
#
03.10.2023 17:13:52
Код
Private Sub CommandButton1_Click()
 Dim v1 As String, v2 As String
 Dim n As Integer
    n = Range("O1").Value
    
    'for 1 to n
    '1
    v1 = Range("R3").Value 'ПОМЕНЯТЬ
    v2 = Range("S3").Value 'ПОМЕНЯТЬ
    Workbooks.Open Filename:=v1
    Workbooks(v2).Worksheets("Specification").Range("B3").Copy
    Workbooks("КП разработать.xlsm").Activate
    ActiveWorkbook.Worksheets("Таблица").Range("O3").Select 'ПОМЕНЯТЬ
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Workbooks.Open Filename:=v1
    Workbooks(v2).Worksheets("Specification").Range("B4").Copy
    Workbooks("КП разработать.xlsm").Activate
    ActiveWorkbook.Worksheets("Таблица").Range("P3").Select 'ПОМЕНЯТЬ
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Workbooks(v2).Close
End Sub
цикл для того что бы независимо от количества строчек он продолжил перенос данных
v1 - это путь к файлу (находится в столбце R начиная с 3 строчки)
v2 - это название файла (находится в столбце S начиная с 3 строчки)
13 строчка - вставляет 1-ое значение в столбце O начиная с 3 строчки
19 строчка - вставляет 2-ое значение в столбце P начиная с 3 строчки
вооот. Помогите если поняли, если не поняли то спросите)
Изменено: Юрий М - 04.10.2023 10:35:21
 
Перейти    
Макрос по сбору данных, Адаптировать код макроса для сбора данных из других книг
 
#
03.10.2023 17:00:59
тема закрыта, спасибо
 
Перейти    
Макрос по сбору данных, Адаптировать код макроса для сбора данных из других книг
 
#
03.10.2023 16:04:49
Немного обновил КП
 
Перейти    
Макрос по сбору данных, Адаптировать код макроса для сбора данных из других книг
 
#
03.10.2023 15:48:09
Искать файлы с расширением *.xlsm*и вывести их пути
Далее на листе Таблица должна заполняться таблица. В примере есть 3 книги, должно появится 3 строчки в этой таблице. Данные которые копируется,  хранятся в этих книгах в определенных ячейках  
Изменено: SYSADMINDEG - 03.10.2023 15:59:43
 
Перейти    
Макрос по сбору данных, Адаптировать код макроса для сбора данных из других книг
 
#
03.10.2023 15:44:05
Как возможно сделать так что бы при копировании другой ячейки копировалась не формула в ней а значения

Решение
Код
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Изменено: SYSADMINDEG - 03.10.2023 16:38:34 (разобрался)
 
Перейти    
Макрос по сбору данных, Адаптировать код макроса для сбора данных из других книг
 
#
03.10.2023 14:29:15
Вся концепция:
Файл КП независимо от его местоположения сканирует в текущей папке наличие файлов .xlsm (не могу придумать как это сделать в одну кнопку (Если подскажете буду рад)) (лист Рабочка)
На листе Таблица по кнопке должны вставляться значения из книг расположение которых находится на листе. Алгоритм работает, но количество этих фалов может быть от 1 до 20-30 и прописывать код для 30 это не вариант тем более если написать для 30 то когда будет 29 и менее он сразу выдаст ошибку. Помогите решить эту проблему. Буду рад как прямому решению так и ссылкам на материалы.
В архиве сам файл и 3 файла для примера

Надеюсь теперь все норм....
 
Перейти    
Получение списка файлов *. xlsm из каталога в котором находится книга "Thisworkbook", Помощь с макросами для сбора данных
 
#
02.10.2023 17:26:02
Вся концепция:
Файл КП независимо от его местоположения сканирует в текущей папке наличие файлов .xlsm (не могу придумать как это сделать в одну кнопку (Если подскажете буду рад)) (лист Рабочка)
На листе Таблица по кнопке должны вставляться значения из книг расположение которых находится на листе. Алгоритм работает, но количество этих фалов может быть от 1 до 20-30 и прописывать код для 30 это не вариант тем более если написать для 30 то когда будет 29 и менее он сразу выдаст ошибку. Помогите решить эту проблему. Буду рад как прямому решению так и ссылкам на материалы.
В архиве сам файл и 3 файла для примера
 
Перейти    
Модернизация макроса который копирует данные из другой книги
 
#
29.09.2023 17:04:56
Код
Private Sub CommandButton1_Click()
    Dim v As String
    v = Range("R1").Value
'Открываем файл с которого нужно скопировать данные
    Workbooks.Open Filename:=v
'Скопировать нужный диапазон в открывшейся книге на листе 1
    Workbooks(v).Worksheets("Specification").Range("A1").Copy
'Активируем нужную нам книгу
    Workbooks("КП разработать.xlsm").Activate
'Выделяем и вставляем скопированные данные в ячейку А1
    ActiveWorkbook.Worksheets("Таблица").Range("A3").Select ActiveSheet.Paste
'Закрываем книгу откуда мы скопировали данные
    Workbooks(v).Close

End Sub
Изменено: SYSADMINDEG - 03.10.2023 16:58:19
 
Перейти    
Модернизация макроса который копирует данные из другой книги
 
#
29.09.2023 16:42:00
Код
'Открываем файл с которого нужно скопировать данные
    Workbooks.Open Filename:="C:\Данные.xlsx"
'Скопировать нужный диапазон в открывшейся книге на листе 1
    Workbooks("Данные.xlsx").Worksheets("Лист1").Range("A16:E16").Copy
'Активируем нужную нам книгу
    Workbooks("Книга1.xlsm").Activate
'Выделяем и вставляем скопированные данные в ячейку А1
    ActiveWorkbook.Worksheets("Лист1").Range("A1").Select ActiveSheet.Paste
'Закрываем книгу откуда мы скопировали данные
    Workbooks("Данные.xlsx").Close


путь к файлу находится в ячейкe R1, копироваться будет 2 ячейки A1 и A2, А1 будет вставляться на лист "Таблица" ячейка А3, а А2 вставляется на тот же лист в ячейку  I3
Изменено: SYSADMINDEG - 03.10.2023 16:58:05
 
Перейти    
Помогите материалами или советами
 
#
20.09.2023 14:38:30
Цитата
написал:
совет. Начать с того, что изучить правила форума  тут . создать тему с одним конкретным вопросом, прикрепить к нему небольшой пример.
Если прочитать без цифр это один вопрос
 
Перейти    
Помогите материалами или советами
 
#
20.09.2023 14:22:58
Допустим для примера, в табличке где кп вставляется лист из второго файла (спецификейшн) только с названием файла откуда оно взято
 
Перейти    
Сбор информации с другого файла по заданному названию листа и определенному условию
 
#
20.09.2023 14:18:14
опишите конкретно задачу
 
Перейти    
Помогите материалами или советами
 
#
20.09.2023 10:24:45
1. Макрос где автоматически определяется путь к файлу и записывается в переменную. ( нужно для макроса поиска других файлов экселя в текущей папке и переноса листов в текущий файл) При переносе создавались листы с уникальным именем (если возможно имя нового листа в основной книге формировалось из определённой ячейки)
Я прошу помочь советами или ссылками на материал для изучения. СПАСИБО.
Изменено: SYSADMINDEG - 20.09.2023 14:37:39
 
Перейти    
помогите разобраться с макросами
 
#
18.09.2023 17:03:58
расскажите как работают макросы на добавление строчек и вообще что бы появлялись кнопки при нажатии куда либо. Задача в том что бы мне понять как это все работает и по аналогии реализовать в другой книге добавление строчек и поиск по определенным ячейкам с последующим перенос данных из других книг.
Изменено: SYSADMINDEG - 18.09.2023 17:05:18
 
Перейти    
Как обновить макрос, чтобы работал на 64-bit
 
#
07.09.2023 12:20:13
Приветствую. Помогите перевести файл из 32б в 64 б систему

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
 
Перейти    
Страницы: 1
Наверх