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

Вход

Регистрация

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

 

= Мир MS Excel/Выпадающий список с выбором и автозаполнением строки - Страница 2 - Мир MS Excel

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выпадающий список с выбором и автозаполнением строки (Макросы/Sub)
Выпадающий список с выбором и автозаполнением строки
flywithme1299 Дата: Пятница, 21.04.2023, 14:54 | Сообщение № 21
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 20% ±

EXCEL 2013
Nic70y, Не помогло, теперь первый столбец также, нумерацию, заменяет на № п/п
 
Ответить
СообщениеNic70y, Не помогло, теперь первый столбец также, нумерацию, заменяет на № п/п

Автор - flywithme1299
Дата добавления - 21.04.2023 в 14:54
Nic70y Дата: Пятница, 21.04.2023, 14:58 | Сообщение № 22
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация: 2260 ±
Замечаний: 0% ±

Excel 2010
см. файл
К сообщению приложен файл: 56.xlsm (23.0 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщениесм. файл

Автор - Nic70y
Дата добавления - 21.04.2023 в 14:58
flywithme1299 Дата: Пятница, 21.04.2023, 15:03 | Сообщение № 23
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 20% ±

EXCEL 2013
Nic70y, Класс. спасибо но с листами есть проблема, то что они удаляются, у меня еще есть лист. для справки, при сформировать, то удаляется этот лист:( pray
 
Ответить
СообщениеNic70y, Класс. спасибо но с листами есть проблема, то что они удаляются, у меня еще есть лист. для справки, при сформировать, то удаляется этот лист:( pray

Автор - flywithme1299
Дата добавления - 21.04.2023 в 15:03
Nic70y Дата: Пятница, 21.04.2023, 15:12 | Сообщение № 24
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация: 2260 ±
Замечаний: 0% ±

Excel 2010
flywithme1299, вот здесь If u.Index > 1 Then u.Delete удаляются листы которые правее первого, если ваш лист для справки второй, то поставьте > 2,
если нет нужно смотреть имена листов.


ЮMoney 41001841029809
 
Ответить
Сообщениеflywithme1299, вот здесь If u.Index > 1 Then u.Delete удаляются листы которые правее первого, если ваш лист для справки второй, то поставьте > 2,
если нет нужно смотреть имена листов.

Автор - Nic70y
Дата добавления - 21.04.2023 в 15:12
flywithme1299 Дата: Пятница, 21.04.2023, 15:20 | Сообщение № 25
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 20% ±

EXCEL 2013
Nic70y, Самый последний лист
 
Ответить
СообщениеNic70y, Самый последний лист

Автор - flywithme1299
Дата добавления - 21.04.2023 в 15:20
Nic70y Дата: Пятница, 21.04.2023, 15:27 | Сообщение № 26
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация: 2260 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub A_1()
    Application.ScreenUpdating = False
    'удаляем листы
    Application.DisplayAlerts = False
    For Each u In ThisWorkbook.Sheets
        x = Sheets.Count
        If u.Index > 1 And u.Index < x Then u.Delete
    Next
    Application.DisplayAlerts = True
    'проходимся по фио
    a = Cells(Rows.Count, "j").End(xlUp).Row
    For b = 2 To a
        c = Sheets(1).Range("j" & b).Value 'фио
        d = Application.Match(c, Sheets(1).Range("j1:j" & b), 0) 'ищем первую строку с фио
        If b = d Then 'если фио встречается вперые
            Sheets.Add After:=Sheets(Sheets.Count - 1)  'создаем лист
            Sheets(Sheets.Count - 1).Name = c           'назовем его = фио
            'копируем шапку....................................
            Sheets(1).Range("a1:b1").Copy Sheets(c).Range("a1")
            Sheets(1).Range("d1:i1").Copy Sheets(c).Range("c1")
        End If
        'копируем данные
        e = Sheets(c).Cells(Rows.Count, "a").End(xlUp).Row + 1 'строка вставки
        Sheets(c).Range("a" & e) = Sheets(1).Cells(b + 1, "a").End(xlUp).Value
        Sheets(c).Range("b" & e) = Sheets(1).Cells(b + 1, "b").End(xlUp).Value
        Sheets(c).Range("c" & e & ":h" & e) = Sheets(1).Range("d" & b & ":i" & b).Value
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Sub A_1()
    Application.ScreenUpdating = False
    'удаляем листы
    Application.DisplayAlerts = False
    For Each u In ThisWorkbook.Sheets
        x = Sheets.Count
        If u.Index > 1 And u.Index < x Then u.Delete
    Next
    Application.DisplayAlerts = True
    'проходимся по фио
    a = Cells(Rows.Count, "j").End(xlUp).Row
    For b = 2 To a
        c = Sheets(1).Range("j" & b).Value 'фио
        d = Application.Match(c, Sheets(1).Range("j1:j" & b), 0) 'ищем первую строку с фио
        If b = d Then 'если фио встречается вперые
            Sheets.Add After:=Sheets(Sheets.Count - 1)  'создаем лист
            Sheets(Sheets.Count - 1).Name = c           'назовем его = фио
            'копируем шапку....................................
            Sheets(1).Range("a1:b1").Copy Sheets(c).Range("a1")
            Sheets(1).Range("d1:i1").Copy Sheets(c).Range("c1")
        End If
        'копируем данные
        e = Sheets(c).Cells(Rows.Count, "a").End(xlUp).Row + 1 'строка вставки
        Sheets(c).Range("a" & e) = Sheets(1).Cells(b + 1, "a").End(xlUp).Value
        Sheets(c).Range("b" & e) = Sheets(1).Cells(b + 1, "b").End(xlUp).Value
        Sheets(c).Range("c" & e & ":h" & e) = Sheets(1).Range("d" & b & ":i" & b).Value
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 21.04.2023 в 15:27
flywithme1299 Дата: Четверг, 27.04.2023, 08:44 | Сообщение № 27
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 20% ±

EXCEL 2013
Nic70y, Все же этот код не подошел, работал над старым кодом, его вроде приспособил. еще есть вопрос. как сделать так чтобы краткая информация подтягивались на первую страницу с других листов? То есть, есть столбец "Краткая информация" люди ответственные за свой лист заполняют по уже ранее заполненной строке краткую информацию, и она подтягивается на первый лист, то есть задачу на оборот, но только одна ячейка
К сообщению приложен файл: 3433022.xlsm (48.2 Kb)
 
Ответить
СообщениеNic70y, Все же этот код не подошел, работал над старым кодом, его вроде приспособил. еще есть вопрос. как сделать так чтобы краткая информация подтягивались на первую страницу с других листов? То есть, есть столбец "Краткая информация" люди ответственные за свой лист заполняют по уже ранее заполненной строке краткую информацию, и она подтягивается на первый лист, то есть задачу на оборот, но только одна ячейка

Автор - flywithme1299
Дата добавления - 27.04.2023 в 08:44
Nic70y Дата: Четверг, 27.04.2023, 09:09 | Сообщение № 28
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация: 2260 ±
Замечаний: 0% ±

Excel 2010
flywithme1299, можно формулой
Код
=ДВССЫЛ("'"&J2&"'!I"&СТРОКА()-ПОИСКПОЗ(J2;J$2:J2;)+1)&""
записать ее рекордером, получим[vba]
Код
    Range("k2:k" & u).FormulaR1C1 = "=INDIRECT(""'""&RC[-1]&""'!I""&ROW()-MATCH(RC[-1],R2C[-1]:RC[-1],)+1)&"""""
[/vba]
К сообщению приложен файл: 176.xlsm (47.4 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщениеflywithme1299, можно формулой
Код
=ДВССЫЛ("'"&J2&"'!I"&СТРОКА()-ПОИСКПОЗ(J2;J$2:J2;)+1)&""
записать ее рекордером, получим[vba]
Код
    Range("k2:k" & u).FormulaR1C1 = "=INDIRECT(""'""&RC[-1]&""'!I""&ROW()-MATCH(RC[-1],R2C[-1]:RC[-1],)+1)&"""""
[/vba]

Автор - Nic70y
Дата добавления - 27.04.2023 в 09:09
flywithme1299 Дата: Четверг, 27.04.2023, 11:19 | Сообщение № 29
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 20% ±

EXCEL 2013
Nic70y, Как еще можно сделать. чтобы если поменять Ответственного, допустим Волкова поменяли на Петрова, чтобы если у Волкова одна строка была заполнена, то у Волкова удалилось, а у Петрова добавилось?


Сообщение отредактировал flywithme1299 - Четверг, 27.04.2023, 11:20
 
Ответить
СообщениеNic70y, Как еще можно сделать. чтобы если поменять Ответственного, допустим Волкова поменяли на Петрова, чтобы если у Волкова одна строка была заполнена, то у Волкова удалилось, а у Петрова добавилось?

Автор - flywithme1299
Дата добавления - 27.04.2023 в 11:19
Nic70y Дата: Четверг, 27.04.2023, 11:45 | Сообщение № 30
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация: 2260 ±
Замечаний: 0% ±

Excel 2010
Все же этот код не подошел
а зря. см. файл
подождите надо немного доработать


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Четверг, 27.04.2023, 11:51
 
Ответить
Сообщение
Все же этот код не подошел
а зря. см. файл
подождите надо немного доработать

Автор - Nic70y
Дата добавления - 27.04.2023 в 11:45
flywithme1299 Дата: Четверг, 27.04.2023, 11:51 | Сообщение № 31
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 20% ±

EXCEL 2013
Nic70y, да, там просто дополнительно разные колонки и много еще дополнительной информации, которая не нужно удалять, вот и пришлось работать с первым кодом, просто изначально дезинформировал Вас, а тут после каждого нажатия кнопки. то происходит удаление данных. которые просто ручками прописали
 
Ответить
СообщениеNic70y, да, там просто дополнительно разные колонки и много еще дополнительной информации, которая не нужно удалять, вот и пришлось работать с первым кодом, просто изначально дезинформировал Вас, а тут после каждого нажатия кнопки. то происходит удаление данных. которые просто ручками прописали

Автор - flywithme1299
Дата добавления - 27.04.2023 в 11:51
Nic70y Дата: Четверг, 27.04.2023, 12:04 | Сообщение № 32
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация: 2260 ±
Замечаний: 0% ±

Excel 2010
чтобы если поменять Ответственного
проще
дополнительно разные колонки
продублировать на первом листе
или какой-то другой подход искать.
с одним доп.столбцом в файле
К сообщению приложен файл: 178_1.xlsm (27.7 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Четверг, 27.04.2023, 13:24
 
Ответить
Сообщение
чтобы если поменять Ответственного
проще
дополнительно разные колонки
продублировать на первом листе
или какой-то другой подход искать.
с одним доп.столбцом в файле

Автор - Nic70y
Дата добавления - 27.04.2023 в 12:04
flywithme1299 Дата: Четверг, 27.04.2023, 13:17 | Сообщение № 33
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 20% ±

EXCEL 2013
Nic70y, Понял, кстати работает с ошибкой, один раз отработает и все:(
 
Ответить
СообщениеNic70y, Понял, кстати работает с ошибкой, один раз отработает и все:(

Автор - flywithme1299
Дата добавления - 27.04.2023 в 13:17
Nic70y Дата: Четверг, 27.04.2023, 13:25 | Сообщение № 34
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация: 2260 ±
Замечаний: 0% ±

Excel 2010
работает с ошибкой
перезалил файл


ЮMoney 41001841029809
 
Ответить
Сообщение
работает с ошибкой
перезалил файл

Автор - Nic70y
Дата добавления - 27.04.2023 в 13:25
flywithme1299 Дата: Четверг, 27.04.2023, 13:51 | Сообщение № 35
Группа: Пользователи
Ранг: Новичок
Сообщений: 47
Репутация: 0 ±
Замечаний: 20% ±

EXCEL 2013
Nic70y, Спасибо. работает. буду разбираться:)
 
Ответить
СообщениеNic70y, Спасибо. работает. буду разбираться:)

Автор - flywithme1299
Дата добавления - 27.04.2023 в 13:51
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выпадающий список с выбором и автозаполнением строки (Макросы/Sub)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

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