В файле пример1 при клике в столбец "Наименование товаров" листа "Акт списания" появляется Textbox который находит данные (по первым буквам) с листа "БАЗА" и заполняет соответственно "Наименование товаров" (Важно: заполнить "наименование товаров" можно только данными с листа "База"). Задача: реализовать возможность заполнять столбец "Наименование товаров" как данными из "База", так и сторонними записями (сейчас сторонние записи просто стираются). Сам не знаю и найти не могу как такое реализовать, что добавлять в код? Буду благодарен любой подсказке. [moder]У Вfс файл xlsx, там макросы не живут. Положите нормальный файл с уже сделанной реализацией "появляется Textbox..."
В файле пример1 при клике в столбец "Наименование товаров" листа "Акт списания" появляется Textbox который находит данные (по первым буквам) с листа "БАЗА" и заполняет соответственно "Наименование товаров" (Важно: заполнить "наименование товаров" можно только данными с листа "База"). Задача: реализовать возможность заполнять столбец "Наименование товаров" как данными из "База", так и сторонними записями (сейчас сторонние записи просто стираются). Сам не знаю и найти не могу как такое реализовать, что добавлять в код? Буду благодарен любой подсказке. [moder]У Вfс файл xlsx, там макросы не живут. Положите нормальный файл с уже сделанной реализацией "появляется Textbox..."Nikolay86
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then 'Если пользователь нажал "Enter", то ActiveCell.Value = Me.TextBox1.Text 'значение из техтбокса в ячейку Cells(ActiveCell.Row + 1, ActiveCell.Column).Select 'фокус в ячейку ниже End If End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then 'Если пользователь нажал "Enter", то ActiveCell.Value = Me.TextBox1.Text 'значение из техтбокса в ячейку Cells(ActiveCell.Row + 1, ActiveCell.Column).Select 'фокус в ячейку ниже End If End Sub