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

Вход

Регистрация

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

 

= Мир MS Excel/Добавить, перенести записи в список c очищением ячеек - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавить, перенести записи в список c очищением ячеек (Макросы/Sub)
Добавить, перенести записи в список c очищением ячеек
povsten Дата: Пятница, 12.10.2018, 15:43 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Подскажите, пожалуйста, как в список из нескольких ячеек добавить запись, если заполнены нужные для этого поля.
Например заполнено поле id, ФИО, компания в ячейках В1:В3, и по кнопке нужно перенести значения из ячеек В1:В3 в ячейки D, Е, F, G, в первую свободную строку, и плюс в ячейку G добавить заданный текст.
И вторая задачка, если id из ячеек B1:B3 есть в списке D, то для строки с этим id в колонку G добавить текст.

после добавления записей очистить ячейки B1:B3

Спасибо
К сообщению приложен файл: ___.xlsx(9.1 Kb)
 
Ответить
СообщениеПодскажите, пожалуйста, как в список из нескольких ячеек добавить запись, если заполнены нужные для этого поля.
Например заполнено поле id, ФИО, компания в ячейках В1:В3, и по кнопке нужно перенести значения из ячеек В1:В3 в ячейки D, Е, F, G, в первую свободную строку, и плюс в ячейку G добавить заданный текст.
И вторая задачка, если id из ячеек B1:B3 есть в списке D, то для строки с этим id в колонку G добавить текст.

после добавления записей очистить ячейки B1:B3

Спасибо

Автор - povsten
Дата добавления - 12.10.2018 в 15:43
_Boroda_ Дата: Пятница, 12.10.2018, 15:48 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13189
Репутация: 5424 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А если ID нашлось, а ФИО и/или название не совпадает?
Текст для всех одинаковый или его должен вводить пользователь? Если пользователь, то длинный ли текст?
Расположение в реальном листе совпадает с примером?


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА если ID нашлось, а ФИО и/или название не совпадает?
Текст для всех одинаковый или его должен вводить пользователь? Если пользователь, то длинный ли текст?
Расположение в реальном листе совпадает с примером?

Автор - _Boroda_
Дата добавления - 12.10.2018 в 15:48
povsten Дата: Пятница, 12.10.2018, 15:56 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
если id нашлось, то ФИО точно должно совпадать, если не совпадает - это ошибка какая-то
текст в первом случае должен быть "добавлен"
текст во втором случае должен быть "напечатан"

Расположение списка должно быть на втором листе по факту, т.е. на первом листе на самом деле должно быть так, сканером штрих-кодов должен добавляться id в поле с id и в ячейки с ФИО и компанией должна попадать запись как раз из списка, расположенного на втором листе. И по кнопке в список на втором листе должен добавляться текст.
 
Ответить
Сообщениеесли id нашлось, то ФИО точно должно совпадать, если не совпадает - это ошибка какая-то
текст в первом случае должен быть "добавлен"
текст во втором случае должен быть "напечатан"

Расположение списка должно быть на втором листе по факту, т.е. на первом листе на самом деле должно быть так, сканером штрих-кодов должен добавляться id в поле с id и в ячейки с ФИО и компанией должна попадать запись как раз из списка, расположенного на втором листе. И по кнопке в список на втором листе должен добавляться текст.

Автор - povsten
Дата добавления - 12.10.2018 в 15:56
_Boroda_ Дата: Пятница, 12.10.2018, 16:37 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13189
Репутация: 5424 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Поскольку я не знаю, добавление сканером значения вызывает ли событие листа (посмотрите у себя и напишите здесь - от этого зависит метод решения), то заполнение ФИО и компании не стал делать (это касательно вопроса в последующем посте)

Остальное как-то вот так примерно
[vba]
Код
Sub per()
    With Лист2
        r0_ = 2
        r1_ = .Cells(.Rows.Count, 1).End(3).Row
        n_ = r1_ - r0_ + 1
        On Error Resume Next
        ооо = Cells(1, 2)
        r_ = .Columns("A:A").Find(What:=Cells(1, 2), LookIn:=xlValues, LookAt:= _
            xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
            , SearchFormat:=False).Row
        If Err Then
            .Cells(r1_ + 1, 1) = Cells(1, 2)
            .Cells(r1_ + 1, 2) = Cells(3, 2)
            .Cells(r1_ + 1, 3) = Cells(4, 2)
            .Cells(r1_ + 1, 4) = "Напечатан"
        Else
            .Cells(r_, 4) = "Добавлен"
        End If
    End With
End Sub
[/vba]
К сообщению приложен файл: -22-2.xlsm(21.0 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПоскольку я не знаю, добавление сканером значения вызывает ли событие листа (посмотрите у себя и напишите здесь - от этого зависит метод решения), то заполнение ФИО и компании не стал делать (это касательно вопроса в последующем посте)

Остальное как-то вот так примерно
[vba]
Код
Sub per()
    With Лист2
        r0_ = 2
        r1_ = .Cells(.Rows.Count, 1).End(3).Row
        n_ = r1_ - r0_ + 1
        On Error Resume Next
        ооо = Cells(1, 2)
        r_ = .Columns("A:A").Find(What:=Cells(1, 2), LookIn:=xlValues, LookAt:= _
            xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
            , SearchFormat:=False).Row
        If Err Then
            .Cells(r1_ + 1, 1) = Cells(1, 2)
            .Cells(r1_ + 1, 2) = Cells(3, 2)
            .Cells(r1_ + 1, 3) = Cells(4, 2)
            .Cells(r1_ + 1, 4) = "Напечатан"
        Else
            .Cells(r_, 4) = "Добавлен"
        End If
    End With
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 12.10.2018 в 16:37
povsten Дата: Пятница, 12.10.2018, 16:46 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Это то что нужно, а подскажите пожалуйста, как на первом листе при вводе в поле id номера сделать, чтобы в ячейках с ФИО и компанией сразу появлялись ФИО и компания из списка на листе 2?
Т.е. сканером мы id на первом листе просканировали, и он нам вернул ФИО и компанию со второго листа.
Очень благодарна!!!


Сообщение отредактировал povsten - Пятница, 12.10.2018, 17:51
 
Ответить
СообщениеЭто то что нужно, а подскажите пожалуйста, как на первом листе при вводе в поле id номера сделать, чтобы в ячейках с ФИО и компанией сразу появлялись ФИО и компания из списка на листе 2?
Т.е. сканером мы id на первом листе просканировали, и он нам вернул ФИО и компанию со второго листа.
Очень благодарна!!!

Автор - povsten
Дата добавления - 12.10.2018 в 16:46
povsten Дата: Понедельник, 15.10.2018, 13:35 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Попыталась это добавить в файл для печати бейджей, не получилось, помогите пожал. Добавляется только текст, а ФИО и компания не вставляются.
К сообщению приложен файл: 7706276.xlsm(82.2 Kb)
 
Ответить
СообщениеПопыталась это добавить в файл для печати бейджей, не получилось, помогите пожал. Добавляется только текст, а ФИО и компания не вставляются.

Автор - povsten
Дата добавления - 15.10.2018 в 13:35
_Boroda_ Дата: Понедельник, 15.10.2018, 13:43 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13189
Репутация: 5424 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
У Вас в файле 26 макросов. Поиграем в угадайку?

Напишите конкретно - "При нажатии на кнопку ааа запускается макрос ххх, после отработки которого нужно, чтобы в ячейках ййй и ццц записывались значения шшш и щщщ"

Мы, конечно и сами при желании найдем, мы ж профессионалы, нам 5 перпендикулярных бесцветных зеленых линий в форме котеночка нарисовать запросто, но тем мне менее...


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеУ Вас в файле 26 макросов. Поиграем в угадайку?

Напишите конкретно - "При нажатии на кнопку ааа запускается макрос ххх, после отработки которого нужно, чтобы в ячейках ййй и ццц записывались значения шшш и щщщ"

Мы, конечно и сами при желании найдем, мы ж профессионалы, нам 5 перпендикулярных бесцветных зеленых линий в форме котеночка нарисовать запросто, но тем мне менее...

Автор - _Boroda_
Дата добавления - 15.10.2018 в 13:43
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавить, перенести записи в список c очищением ячеек (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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