Добрый день, Друзья
Пытаюсь реализовать следующую задачу:
Есть управляющий файл "Tool - ОБМЕН" в котором размещён макрос для управления данными в файлах "База Вы", "База За" и "База Сн" по заданному условию.
Условие переноса данных при нажатии кнопки в файле "Tool - ОБМЕН" следующие:
1) При нажатии кнопки "Обмен: База За --> База Сн" из файла "База За" находим и вырезаем все строки у которых в столбце 29 содержится текст (2.Договор есть в 1С, 4.Выполнено) и вставляем в файл "База Сн" в конец таблицы.
Аналогично но с другим условием:
2) При нажатии кнопки "Обмен: База За <-- База Сн" из файла "База Сн" находим и вырезаем все строки у которых в столбце 29 содержится текст (1.Заключение договора) и вставляем в файл "База За" в конец таблицы.
Аналогично но с другим условием:
3)При нажатии кнопки "Обмен: База Сн --> База Вы" из файла "База Сн" находим и вырезаем все строки у которых в столбце 29 содержится текст (4.Выполнено) и в столбце 22 не пустая ячейка и вставляем в файл "База Вы" в конец таблицы.
Так же приложил файл который реализовывает подобную задачу только между листами внутри книги.
Пытаюсь реализовать следующую задачу:
Есть управляющий файл "Tool - ОБМЕН" в котором размещён макрос для управления данными в файлах "База Вы", "База За" и "База Сн" по заданному условию.
Условие переноса данных при нажатии кнопки в файле "Tool - ОБМЕН" следующие:
1) При нажатии кнопки "Обмен: База За --> База Сн" из файла "База За" находим и вырезаем все строки у которых в столбце 29 содержится текст (2.Договор есть в 1С, 4.Выполнено) и вставляем в файл "База Сн" в конец таблицы.
Аналогично но с другим условием:
2) При нажатии кнопки "Обмен: База За <-- База Сн" из файла "База Сн" находим и вырезаем все строки у которых в столбце 29 содержится текст (1.Заключение договора) и вставляем в файл "База За" в конец таблицы.
Аналогично но с другим условием:
3)При нажатии кнопки "Обмен: База Сн --> База Вы" из файла "База Сн" находим и вырезаем все строки у которых в столбце 29 содержится текст (4.Выполнено) и в столбце 22 не пустая ячейка и вставляем в файл "База Вы" в конец таблицы.
Скрытый текст |
---|
Sub perenosZS() Dim last_row As Integer Dim last_row_other As Integer Dim name_sheet As String Dim first_row As Integer Dim ShtF As Worksheet Dim ShtV As Worksheet Application.ScreenUpdating = False Set ShtF = Workbooks("Áàçà Çà.xlsx").Worksheets("ÁàçàÇà") ShtF.Select last_row = Cells(Rows.Count, 1).End(xlUp).Row For first_row = 1 To last_row If (Cells(first_row, 29).Value = "4.Âûïîëíåíî") Then Rows(first_row).Select Rows(first_row).Copy Set ShtV = Workbooks("Áàçà Ñí.xlsx").Worksheets("ÁàçàÑí") ShtV.Cells.Select last_row_other = Cells(Rows.Count, 1).End(xlUp).Row Rows(last_row_other + 1).Select ActiveSheet.Paste ShtF.Select Selection.Delete Shift:=xlUp End If Next Application.ScreenUpdating = True End Sub |
Так же приложил файл который реализовывает подобную задачу только между листами внутри книги.