Добрый день Нужна ВАША помощь в написании кода, в таблице присутствует дата, имя пользователя (они формируются автоматически при открытии файла) и числа (это и есть результат выпадающего списка) . Цель работы в том чтобы как толькоЯрославоткроет EXCEL документ при определенной дате на ПК например 08.07.2021, в ComboBox3 был сформирован список из соответствующих чисел 808, 355, 604. если откроет EXCEL Максим в 08.07.2021 то в ComboBox3 был сформирован список из 642, 340, 480, 696, 480. Ниже наведен код который формирует данные с одного поискового значения и ComboBox. Подскажите как переделать код. благодарю за поддержку
Код
Private Sub UserForm_Initialize()
'(отбор уникальных значений)
Dim AllCells As Range, rCell As Range
Dim NoDupes As New Collection
Dim Item
With Worksheets("справка")
'Элементы находятся в столбце A
Set AllCells = .Range("AA2:AA" & .Cells(Rows.Count, 27).End(xlUp).Row)
End With
'заполняем коллекцию элементами без повторений
On Error Resume Next
For Each rCell In AllCells
NoDupes.Add rCell.Value, CStr(rCell.Value)
Next rCell
On Error GoTo 0
'Добавление уникальных значений в ComboBox
For Each Item In NoDupes
Me.ComboBox1.AddItem Item
Next Item
End Sub
Private Sub ComboBox1_Change()
Dim i As Long, LastRow As Long, kategorija As String
kategorija = Me.ComboBox1
With Sheets("справка")
LastRow = .Cells(Rows.Count, 27).End(xlUp).Row
For i = 2 To LastRow
If .Cells(i, 27) = kategorija Then
End If
Next
End With
End Sub
evgeniygeo При нажатии на кнопку далее они вводится в определенную таблицу. В образце всей таблицы нету и данных кнопок, в соответствии с правилами форму В таблице очень много проверок при нажатии на кнопку ок, и TextBox - сов тоже много если таким методом то немного долго обрабатывается инфа.
Извините но почему то вводиться только одна буква двухзначные числа не вводятся. А мне нужно чтобы вводились только двухзначные числа в указном диапазоне. Подскажите пожалуйста
Здравствуйте. Нужна помощь в доработке кода. Ниже приведен код который позволяетввести двухзначные значенияот 26,1 до 75,9, другие двухзначные числа не вводятся в TextBox, но если ввести однозначныечисла от 0 до 9они вводятся Как заблокировать ввод однозначных чисел от 0 до 9 .
Код
Private Sub TextBox1_Change()
If TextBox1 = "" Then Exit Sub
T = TextBox1
If Len(TextBox1) > 1 Then: If T > 75.9 Or T < 25.9 Then TextBox1 = "": MsgBox "неверный ввод" & vbNewLine & "Значения от 26,1 до 75,9, " & vbNewLine & "" & vbNewLine & "Пример 42,1", vbOKOnly + vbExclamation, ""
End Sub
Всем привет. Ниже приведен код который сдвигает вправо данные при условии записи в E3:E26.
как переделать код чтобы он сдвигает данные вниз при вводе данных в строку E30:AF30.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E3:E26")) Is Nothing Then
x = Target.Row
Range(Cells(x, 10), Cells(x, 31)).Copy Destination:=Cells(x, 11)
Cells(x, 10) = Target
End If
End Sub
Подскажите возможно ли ввести данные с ComboBox1,ComboBox2,TextBox1. в одну ячейку на Лист2 G2. или все таки ввести по отдельности а потом формулой сцепить.
Вот часть кода до которого сумел дойти, он ищет только первый поиск (Манго...итд) как мне дописать код для поиска еще и место нахождения (Приход/Отгрузку/Склад)
Код
Private Sub CommandButton6_Click()
x_text = ComboBox1
Dim cell As Range
Set cell = Columns(2).Find(What:=x_text, LookIn:=xlValues, LookAt:=xlWhole)
If cell Is Nothing Then
MsgBox "Ничего не найдено", vbCritical
Else
cell.Activate ' выделяем найденную ячейку
End If
End Sub
При выборепродукта (Манго...итд) в UserForm, ввожу килограммы в TextBox1/2/3 (Приход/Отгрузку/Склад), как реализовать запись данных, в последнюю пустую ячейку выбранного продукта (Манго...итд)на Листе1 Склад, Листе2 Приход/Отгрузку.
Планирую реализовать сбор данных в UserForm с Листа1 колонки (продукт А2 по А20) которые достигли 100%колонки (% В2 по В20), после вводить данные отгрузки в % соотношении в ComboBox напротив каждого продукта (название в Label) в UserForm и оно будет вводиться в колонку (% отгруз.. С2 по С20).
Нужна Ваша помощь в реализации.
То есть чтобы при вызове UserForm формировался отчет с 1-го или более продуктов который достиг 100%в самом UserForm, а который не достиг чтоб от там не фигурировал. Исходный файл слишком большой это лишь часть. Поиски не дали адекватного результату сам не знаю насколько это возможно.
Пожалуйста подскажи макрос который... При вводе данных в ячейку с А1 по А100 подсчитывает символы в водимой ячейке и если данная ячейка имеет до 50 символов то выводить мс бокс до 50 если больше 50-ти то мс бокс боле 50-ти.
Когда в диапазоне только Москва работает Когда в диапазоне и Москва и Санкт-Петербург работает Когда в диапазоне только Санкт-Петербург не работает. Благодарю,куда смотреть понял, сейчас допишу
1) Если в диапазоне А1:А16 отсутствуют слова "Москва" и "Санкт-Петербург" тогда ничего 2) Если в диапазоне А1:А16 присутствует "Москва" и "Санкт-Петербург" запуск макроса 1 MsgBox. Только 1- раз 3) Если в диапазоне А1:А16 присутствует минимум 1 раз слово "Санкт-Петербург" запуск макроса 1 MsgBox. Только 1- раз 4) Если в диапазоне А1:А16 присутствует минимум 1 раз слово "Москва" запуск макроса 2 MsgBox. Только 1- раз Ниже на веден код который решает 1-3-4 условия как прописать на решениэ 2-рого условия. Причем макрос 2-го и 3-го условия будт однаковый.
Код
Sub Macros5()
Sheets("Лист1").Select
Set fcell = Columns("A:A").Find("Санкт-Петербург")
If Not fcell Is Nothing Then
MsgBox "Санкт-Петербург Нашел в строке: " + CStr(fcell.Row)
Set fcell = Columns("A:A").Find("Москва")
If Not fcell Is Nothing Then
MsgBox "Москва Нашел в строке: " + CStr(fcell.Row)
End If
End If
End Sub
Именно так. Отобразить планирую GIF файл на UserForm1. Из за ограничения по размеру не могу сбросить файл который буде запускать UserForm1 на длительное время вовремя фильтрации. В подлиннике сам файл большой, и процесс фильтрации с отображением UserForm 1 занимает длительное время. По єтому поводу планировал во время фильтрации на UserForm 1 запустить GIF файл, и было бы это вместо ProgressBar.
Нужно чтобы вовремя фильтрации данных появлялся UserForm1 с активным (работающим) GIF файлом, и закрывался UserForm1 сразу после окончания фильтрации. Такой себе ProgressBar выполняет GIF файл PB-#1.gif.Запуск и закрытие UserForm1 работает вовремя фильтрации данных но сам GIF файл PB-#1.gif в UserForm1 не запускается.
Тоже самое что и было запускаться UserForm1 но не сам GIF файл в UserForm_е при работе фильтра, или запускается но фильтр не работает. Или это не реально?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:J2")) Is Nothing Then
UserForm1.Show 0
UserForm1.Repaint
On Error Resume Next
ActiveSheet.ShowAllData
Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A1:J2")
End If
Unload UserForm1
End Sub
При вводе данных в диапазон В2;J2 срабатываетавто фильтр и запускается UserForm1 но запустить GIF файл не могу, при одновременной работе макроса фильтра. Подскажите где я ошибся. Огромную благодарность приношу всем трудящимся.) Из за ограничения по размеру не могу сбросить файл который буде запускать UserForm на длительное время.