Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Автоматическое заполнения таблицы и формирования базы данных - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Автоматическое заполнения таблицы и формирования базы данных
DenchikZ Дата: Четверг, 10.10.2024, 13:44 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 0% ±

2020
Необходимо из таблицы "Склад" перенести данные в таблицу "Закуп" по значению ячейки в столбце "H".
В случае, если эта ячейка будет иметь определенное число и с красной заливкой (УФ), данные соответствующей строки для столбцов 1-4, и 7 переносятся на лист "Закуп".
И следовательно таблица закуп формировалось в виде базы данных.
К сообщению приложен файл: 2986962.xlsx (24.8 Kb)


Сообщение отредактировал 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
Дата добавления - 11.10.2024 в 07:17
DenchikZ Дата: Пятница, 11.10.2024, 07:29 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 0% ±

2020
MikeVol, прошу прошении за расплывчатую информацию в теме отредактировал более понятно.
 
Ответить
Сообщение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. Удачи.


Ученик.
Одесса - Украина


Сообщение отредактировал 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
Дата добавления - 11.10.2024 в 08:09
DenchikZ Дата: Пятница, 11.10.2024, 08:20 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 0% ±

2020
MikeVol, разобрался все работает спасибо огромное!
 
Ответить
Сообщение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 не закрашивается от УФ то код (копирование) не срабатывает. Смотрите файл.
К сообщению приложен файл: 11_10_2024_exw_avtomaticheskoe.xlsm (34.5 Kb)


Ученик.
Одесса - Украина


Сообщение отредактировал 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
Дата добавления - 11.10.2024 в 09:17
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!