Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Сбор заявок на продукты с выпадающим списком
 
#1
08.04.2026 16:36:07
Добрый день! Помогите чайнику, пожалуйста. Хочу упростить себе жизнь хоть немного)
Что требуется:
На листе "Заявка" имеется выпадающий список с фамилиями, ниже идет общий список из имеющихся продуктов, столбцы "наименование, цена, ед. измерения" остаются неизменными, вписываю только количество.
Можно ли сделать так, чтобы при введении количества продукта - данные переносились в лист с той же фамилией что и в выпадающем списке. Например в листе Александров - появились "Сигареты- цена 300 - блок -  тот количество которое укажу на листе заявка - к примеру "5"
А далее при выборе на листе другой фамилии - работало так же, в его одноименно листе  - по схеме указанной выше.
За раннее безмерно благодарен!
Изменено: Михаил Петухов - 08.04.2026 16:36:17
 
 
 
#2
08.04.2026 16:55:39
Код
Option Explicit

Sub Перенести()
    Dim shSource As Worksheet, shTarget As Worksheet
    Set shSource = ActiveWorkbook.Sheets("Заяка")
    Set shTarget = GetTargetSheet(shSource.Parent, shSource.Range("E3").Value)
    If shTarget Is Nothing Then Exit Sub
    
    shSource.Range("F5:I18").Copy shTarget.Range("G8")
    Application.Goto shTarget.Range("G8")
End Sub

Private Function GetTargetSheet(wb As Workbook, fio As String) As Worksheet
    If fio = "" Then Exit Function
    Dim sh As Worksheet
    For Each sh In wb.Worksheets
        If sh.Range("F6").Value = fio Then
            Set GetTargetSheet = sh
            Exit Function
        End If
    Next
End Function
 
 
 
#3
08.04.2026 17:05:32
МатросНаЗебре, Огромное спасибо, можно дополнительную правку, сделать так чтобы переносились только строки в которых есть заполненный столбец количество. Т.е  например - Сигареты и станки поставлено количество, они перенеслись и встали по порядку, без пустой строки :oops:  
 
 
 
#4
09.04.2026 17:14:50
Михаил Петухов, см варианты в файле
 
 
 
Страницы: 1
Читают тему
Наверх