DenchikZ
Дата: Четверг, 10.10.2024, 13:44 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация:
0
±
Замечаний:
0% ±
2020
Необходимо из таблицы "Склад" перенести данные в таблицу "Закуп" по значению ячейки в столбце "H". В случае, если эта ячейка будет иметь определенное число и с красной заливкой (УФ), данные соответствующей строки для столбцов 1-4, и 7 переносятся на лист "Закуп". И следовательно таблица закуп формировалось в виде базы данных.
Необходимо из таблицы "Склад" перенести данные в таблицу "Закуп" по значению ячейки в столбце "H". В случае, если эта ячейка будет иметь определенное число и с красной заливкой (УФ), данные соответствующей строки для столбцов 1-4, и 7 переносятся на лист "Закуп". И следовательно таблица закуп формировалось в виде базы данных. DenchikZ
Сообщение отредактировал DenchikZ - Пятница, 11.10.2024, 07:29
Ответить
Сообщение Необходимо из таблицы "Склад" перенести данные в таблицу "Закуп" по значению ячейки в столбце "H". В случае, если эта ячейка будет иметь определенное число и с красной заливкой (УФ), данные соответствующей строки для столбцов 1-4, и 7 переносятся на лист "Закуп". И следовательно таблица закуп формировалось в виде базы данных. Автор - DenchikZ Дата добавления - 10.10.2024 в 13:44
MikeVol
Дата: Пятница, 11.10.2024, 07:17 |
Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 373
Репутация:
79
±
Замечаний:
0% ±
MSO LTSC 2021 EN
DenchikZ , А где у вас Таблица 1 и где Таблица 2 , на каких листах, уточните?
DenchikZ , А где у вас Таблица 1 и где Таблица 2 , на каких листах, уточните?MikeVol
Ученик. Одесса - Украина
Ответить
Сообщение DenchikZ , А где у вас Таблица 1 и где Таблица 2 , на каких листах, уточните?Автор - MikeVol Дата добавления - 11.10.2024 в 07:17
DenchikZ
Дата: Пятница, 11.10.2024, 07:29 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация:
0
±
Замечаний:
0% ±
2020
MikeVol, прошу прошении за расплывчатую информацию в теме отредактировал более понятно.
MikeVol, прошу прошении за расплывчатую информацию в теме отредактировал более понятно. DenchikZ
Ответить
Сообщение MikeVol, прошу прошении за расплывчатую информацию в теме отредактировал более понятно. Автор - DenchikZ Дата добавления - 11.10.2024 в 07:29
MikeVol
Дата: Пятница, 11.10.2024, 07:54 |
Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 373
Репутация:
79
±
Замечаний:
0% ±
MSO LTSC 2021 EN
DenchikZ , Внести код в модуль листа : [vba]Код
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub Dim iLast As Long iLast = Me.Columns("A").Find(what:="*", _ LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False).Row ' Debug.Print iLast If Not Intersect(Target, Range("G3:G" & iLast)) Is Nothing Then If Target.Offset(0, 1).DisplayFormat.Interior.Color = RGB(255, 0, 0) Then With ThisWorkbook.Worksheets("Закуп") Dim lr As Long lr = .Columns("F").Find(what:="*", _ LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False).Row ' Debug.Print lr .Cells(lr + 1, 1) = Cells(Target.Row, 1) ' A .Cells(lr + 1, 2) = Cells(Target.Row, 2) ' B .Cells(lr + 1, 3) = Cells(Target.Row, 3) ' C .Cells(lr + 1, 4) = Cells(Target.Row, 4) ' D .Cells(lr + 1, 5) = Cells(Target.Row, 5) ' E .Cells(lr + 1, 6) = Cells(Target.Row, 8) ' H .Cells.Columns.AutoFit End With End If End If End Sub
[/vba] Тригером будет ячейки колонки G . Удачи.
DenchikZ , Внести код в модуль листа : [vba]Код
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub Dim iLast As Long iLast = Me.Columns("A").Find(what:="*", _ LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False).Row ' Debug.Print iLast If Not Intersect(Target, Range("G3:G" & iLast)) Is Nothing Then If Target.Offset(0, 1).DisplayFormat.Interior.Color = RGB(255, 0, 0) Then With ThisWorkbook.Worksheets("Закуп") Dim lr As Long lr = .Columns("F").Find(what:="*", _ LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False).Row ' Debug.Print lr .Cells(lr + 1, 1) = Cells(Target.Row, 1) ' A .Cells(lr + 1, 2) = Cells(Target.Row, 2) ' B .Cells(lr + 1, 3) = Cells(Target.Row, 3) ' C .Cells(lr + 1, 4) = Cells(Target.Row, 4) ' D .Cells(lr + 1, 5) = Cells(Target.Row, 5) ' E .Cells(lr + 1, 6) = Cells(Target.Row, 8) ' H .Cells.Columns.AutoFit End With End If End If End Sub
[/vba] Тригером будет ячейки колонки G . Удачи.MikeVol
Ученик. Одесса - Украина
Сообщение отредактировал MikeVol - Пятница, 11.10.2024, 07:59
Ответить
Сообщение DenchikZ , Внести код в модуль листа : [vba]Код
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub Dim iLast As Long iLast = Me.Columns("A").Find(what:="*", _ LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False).Row ' Debug.Print iLast If Not Intersect(Target, Range("G3:G" & iLast)) Is Nothing Then If Target.Offset(0, 1).DisplayFormat.Interior.Color = RGB(255, 0, 0) Then With ThisWorkbook.Worksheets("Закуп") Dim lr As Long lr = .Columns("F").Find(what:="*", _ LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False).Row ' Debug.Print lr .Cells(lr + 1, 1) = Cells(Target.Row, 1) ' A .Cells(lr + 1, 2) = Cells(Target.Row, 2) ' B .Cells(lr + 1, 3) = Cells(Target.Row, 3) ' C .Cells(lr + 1, 4) = Cells(Target.Row, 4) ' D .Cells(lr + 1, 5) = Cells(Target.Row, 5) ' E .Cells(lr + 1, 6) = Cells(Target.Row, 8) ' H .Cells.Columns.AutoFit End With End If End If End Sub
[/vba] Тригером будет ячейки колонки G . Удачи.Автор - MikeVol Дата добавления - 11.10.2024 в 07:54
DenchikZ
Дата: Пятница, 11.10.2024, 08:09 |
Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация:
0
±
Замечаний:
0% ±
2020
MikeVol, спасибо, я добавил но к сожалению что то не работает.
MikeVol, спасибо, я добавил но к сожалению что то не работает. DenchikZ
Ответить
Сообщение MikeVol, спасибо, я добавил но к сожалению что то не работает. Автор - DenchikZ Дата добавления - 11.10.2024 в 08:09
DenchikZ
Дата: Пятница, 11.10.2024, 08:20 |
Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация:
0
±
Замечаний:
0% ±
2020
MikeVol, разобрался все работает спасибо огромное!
MikeVol, разобрался все работает спасибо огромное! DenchikZ
Ответить
Сообщение MikeVol, разобрался все работает спасибо огромное! Автор - DenchikZ Дата добавления - 11.10.2024 в 08:20
MikeVol
Дата: Пятница, 11.10.2024, 08:23 |
Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 373
Репутация:
79
±
Замечаний:
0% ±
MSO LTSC 2021 EN
DenchikZ , Как не работает? Заполняете строку данными и как только вы заполните ячейку в колонке G срабатывает код с условием что соседняя ячейка в колонке H закрашивается в красный цвет от УФ . Если вы заполнили строку и ячейка в колонке H не закрашивается от УФ то код (копирование) не срабатывает. Смотрите файл.
DenchikZ , Как не работает? Заполняете строку данными и как только вы заполните ячейку в колонке G срабатывает код с условием что соседняя ячейка в колонке H закрашивается в красный цвет от УФ . Если вы заполнили строку и ячейка в колонке H не закрашивается от УФ то код (копирование) не срабатывает. Смотрите файл.MikeVol
Ученик. Одесса - Украина
Сообщение отредактировал MikeVol - Пятница, 11.10.2024, 08:23
Ответить
Сообщение DenchikZ , Как не работает? Заполняете строку данными и как только вы заполните ячейку в колонке G срабатывает код с условием что соседняя ячейка в колонке H закрашивается в красный цвет от УФ . Если вы заполнили строку и ячейка в колонке H не закрашивается от УФ то код (копирование) не срабатывает. Смотрите файл.Автор - MikeVol Дата добавления - 11.10.2024 в 08:23
DenchikZ
Дата: Пятница, 11.10.2024, 09:17 |
Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация:
0
±
Замечаний:
0% ±
2020
MikeVol, разобрался все работает спасибо огромное! Просто Excel заблокировал макросы не увидел.
MikeVol, разобрался все работает спасибо огромное! Просто Excel заблокировал макросы не увидел. DenchikZ
Ответить
Сообщение MikeVol, разобрался все работает спасибо огромное! Просто Excel заблокировал макросы не увидел. Автор - DenchikZ Дата добавления - 11.10.2024 в 09:17