Поиск значения в столбце

@JulyMar · Регистрация: 01.08.2013

Студворк — интернет-сервис помощи студентам

Добрый день! Помогите пожалуйста в решении моей проблемы!
Имею 2 таблицы, на первой зарегистрированный пробы продукта. Необходимо из активной строки первой таблицы перенести данные в строку другой таблицы в определенные ячейки, но перед этим выполнить проверку на наличие этой пробы во второй таблице, если проба присутствует, то просто дополнить данными незаполненные ячейки, если пробы с таким номером нет, то внести данные в первую пустую строку.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Заполнение()
Dim x As Integer, r As Integer
Dim NextRow As Long
n = ActiveCell.Row 
x = Sheets("ЖР проб").Cells(n, 4) 
r = Sheets("ЖР испытаний нефти").Columns(3).Find(What:=x).Row
Sheets("ЖР испытаний нефти").Activate
 
 
 NextRow = ActiveSheet.Range("C65536").End(xlUp).Row + 1
 ActiveSheet.Cells(NextRow, 3) = Sheets("ЖР проб").Cells(n, 4)
 ActiveSheet.Cells(NextRow, 4) = Sheets("ЖР проб").Cells(n, 8)
 ActiveSheet.Cells(NextRow, 10) = Sheets("ЖР проб").Cells(n, 5)
 ActiveSheet.Cells(NextRow, 11) = Sheets("ЖР проб").Cells(n, 6)
 ActiveSheet.Cells(NextRow, 16) = Sheets("ЖР проб").Cells(n, 9)
End Sub

@JulyMar · 22.08.2013, 12:29 **[ТС]**

Подскажите пожалуйста! Почему не работает Find.

@Hugo121 · 22.08.2013, 12:44

Работает. И не находит.

Добавлено через 10 минут
Попробуйте так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Заполнение()
    Dim x As Long, rr As Range, r As Long
    Dim NextRow As Long
    n = ActiveCell.Row    'Присвоение переменой номера активной строки
    x = Sheets("ЖР проб").Cells(n, 4)    'присваиваем переменной искомый номер пробы
    Set rr = Sheets("ЖР испытаний нефти").Columns(3).Find(What:=x, LookIn:=xlValues, LookAt:=xlWhole)
    With Sheets("ЖР испытаний нефти")
        .Activate
        If Not rr Is Nothing Then
            NextRow = rr.Row
        Else
            NextRow = .Range("C65536").End(xlUp).Row + 1
        End If
        'Заполнение первой пустой строки данными из журнала проб
        .Cells(NextRow, 3) = Sheets("ЖР проб").Cells(n, 4)
        .Cells(NextRow, 4) = Sheets("ЖР проб").Cells(n, 8)
        .Cells(NextRow, 10) = Sheets("ЖР проб").Cells(n, 5)
        .Cells(NextRow, 11) = Sheets("ЖР проб").Cells(n, 6)
        .Cells(NextRow, 16) = Sheets("ЖР проб").Cells(n, 9)
    End With
End Sub

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@JulyMar 3 / 3 / 0 Регистрация: 01.08.2013 Сообщений: 37
	22.08.2013, 12:29 [ТС]
	Подскажите пожалуйста! Почему не работает Find. 0