Добрый день уважаемые форумчане. Прошу помочь в корректировке макроса. Мне необходимо чтоб при его запуске, задав одно условие он находил в столбце D:D не одно значение допустим даты, а все какие подобные (равные, с той же датой) есть. Затем по найденным значениям отображался в текстбоксе 2 текст, соответствующий найденным значениям. В моем макросе отображается только одно верхнее значение, то что ниже не отображается. СПАСИБО. [vba]
Код
Private Sub CommandButton4_Click() Worksheets("Содержание").Activate Dim q As String q = TextBox1.Value If q = "" Then MsgBox ("Внесите данные для поиска задачи") On Error GoTo ErrorHandler Columns("D:D").Find(What:=q, LookIn:=xlValues, LookAt:=xlWhole).Activate RW = ActiveCell.Row With UserForm2 .TextBox2.Value = Cells(RW, 6).Value End With Me.Caption = "СОДЕРЖАНИЕ ЗАДАЧИ СМОТРИ В ОКНЕ" Worksheets("КОНТРОЛЬ").Activate Exit Sub ErrorHandler: MsgBox ("Нету такого!") Resume Next End Sub
[/vba]
Добрый день уважаемые форумчане. Прошу помочь в корректировке макроса. Мне необходимо чтоб при его запуске, задав одно условие он находил в столбце D:D не одно значение допустим даты, а все какие подобные (равные, с той же датой) есть. Затем по найденным значениям отображался в текстбоксе 2 текст, соответствующий найденным значениям. В моем макросе отображается только одно верхнее значение, то что ниже не отображается. СПАСИБО. [vba]
Код
Private Sub CommandButton4_Click() Worksheets("Содержание").Activate Dim q As String q = TextBox1.Value If q = "" Then MsgBox ("Внесите данные для поиска задачи") On Error GoTo ErrorHandler Columns("D:D").Find(What:=q, LookIn:=xlValues, LookAt:=xlWhole).Activate RW = ActiveCell.Row With UserForm2 .TextBox2.Value = Cells(RW, 6).Value End With Me.Caption = "СОДЕРЖАНИЕ ЗАДАЧИ СМОТРИ В ОКНЕ" Worksheets("КОНТРОЛЬ").Activate Exit Sub ErrorHandler: MsgBox ("Нету такого!") Resume Next End Sub
И еще, нужно чтоб по всем одинаковым значениям в столбце D, в одном текстбоксе 2 отображались все cоответствующие значения ячеек из столбца 6 ( .TextBox2.Value = Cells(RW, 6).Value)
И еще, нужно чтоб по всем одинаковым значениям в столбце D, в одном текстбоксе 2 отображались все cоответствующие значения ячеек из столбца 6 ( .TextBox2.Value = Cells(RW, 6).Value)Egider
Вот привожу классический пример. Но нужно чтоб макрос нашел цифру 2 в столбце А, но не менял ее на 99, а просто выделял ячейку цветом. И дополнительно еще чтоб выделял цветом ячейку в столбце В, в строках, содержащих цифру 2. СПАСИБО [vba]
Код
Sub Button1_Click() With Worksheets(1).Range("a1:a50") Set c = .Find(2, LookIn:=xlValues) If Not c Is Nothing Then Do c.Value = 99 Set c = .FindNext(c) Loop While Not c Is Nothing End If End With End Sub
[/vba]
Вот привожу классический пример. Но нужно чтоб макрос нашел цифру 2 в столбце А, но не менял ее на 99, а просто выделял ячейку цветом. И дополнительно еще чтоб выделял цветом ячейку в столбце В, в строках, содержащих цифру 2. СПАСИБО [vba]
Код
Sub Button1_Click() With Worksheets(1).Range("a1:a50") Set c = .Find(2, LookIn:=xlValues) If Not c Is Nothing Then Do c.Value = 99 Set c = .FindNext(c) Loop While Not c Is Nothing End If End With End Sub
нужно чтоб макрос нашел цифру 2 в столбце А а просто выделял ячейку цветом.
[vba]
Код
Sub Button1_Click() Dim FAdr As String Dim c As Range With Worksheets(1).Range("a1:a50") Range("a1:b50").Interior.ColorIndex = xlNone Set c = .Find(2, , xlValues, xlWhole) If Not c Is Nothing Then FAdr = c.Address Do c.Resize(, 2).Interior.ColorIndex = 6 Set c = .FindNext(c) Loop While c.Address <> FAdr End If End With End Sub
[/vba]
Цитата
нужно чтоб макрос нашел цифру 2 в столбце А а просто выделял ячейку цветом.
[vba]
Код
Sub Button1_Click() Dim FAdr As String Dim c As Range With Worksheets(1).Range("a1:a50") Range("a1:b50").Interior.ColorIndex = xlNone Set c = .Find(2, , xlValues, xlWhole) If Not c Is Nothing Then FAdr = c.Address Do c.Resize(, 2).Interior.ColorIndex = 6 Set c = .FindNext(c) Loop While c.Address <> FAdr End If End With End Sub
Прошу помощи в решении задачи по выводу в форму текстбокса задач по условию из столбца "А:А". Не понимаю почему выводится только одна строка, остальные никак. Задаю в юзерформе условие поиска, нажимаю поиск. Но при одинаковом условии в текстбоксе только одна задача??? Помогите если не трудно. Спасибо. Файл прилагаю
Прошу помощи в решении задачи по выводу в форму текстбокса задач по условию из столбца "А:А". Не понимаю почему выводится только одна строка, остальные никак. Задаю в юзерформе условие поиска, нажимаю поиск. Но при одинаковом условии в текстбоксе только одна задача??? Помогите если не трудно. Спасибо. Файл прилагаюEgider
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
