Макрос поиска и сохранения

[Kot070]

Добрый день, помогите макрос написать для поиска строк.
На первой странице вставляется рекордсет из аксеса, получается некая таблица с данными, нужно на втором листе найти все совпадения с таблицей из первого листа сохранить а остальное удалить. Как такое сделать? И второй вопрос по другой теме, можно ли как то складывать адреса ячеек? Например если Range("A" & i)=5, то 5 вставится в ячейку столбца А на которую указывает i, а мне нужно чтобы к ячейке А5 например добавилось i=3 и тогда эта же "5" вставилась уже не в i ячейку столбца А, а получается в А5+i

[IgorGO]

Однако...
прочитайте еще раз это сами и попытайтесь понять что здесь написано:

если Range("A" & i)=5, то 5 вставится в ячейку столбца А на которую указывает i, а мне нужно чтобы к ячейке А5 например добавилось i=3 и тогда эта же "5" вставилась уже не в i ячейку столбца А, а получается в А5+i

а тут

На первой странице вставляется рекордсет из аксеса, получается некая таблица с данными, нужно на втором листе найти все совпадения с таблицей из первого листа сохранить а остальное удалить

простой алгоритм проверяете построчно если данных второго листа нет на первом - удаляете строку. по окончании проверки сохраняете файл. всё - лишние удалены, нужные сохранены.

[AleksandrH]

оффтоп, но о наболевшим

Сообщение от Kot070

На первой странице вставляется рекордсет из аксеса,

вызов вставки рекордсета из екселя или аксеса?

[Kot070]

Сообщение от IgorGO

Однако...
прочитайте еще раз это сами и попытайтесь понять что здесь написано:

а тут простой алгоритм проверяете построчно если данных второго листа нет на первом - удаляете строку. по окончании проверки сохраняете файл. всё - лишние удалены, нужные сохранены.

Есть некоторое число i, к примеру i=3.

Dim i As Integer
Range("A" & i)=5

в ячейку по адресу А3 вставится 5, а мне нужно чтобы к определенному адресу ячейки (например А3) прибавилось значение i (к примеру i=3), и уже "5" записалась в А6.
Как построчно проверить данные?

[Kot070]

Сообщение от AleksandrH

оффтоп, но о наболевшим

вызов вставки рекордсета из екселя или аксеса?

Из Аксеса, вставляю CopyFromRecordset)

[AleksandrH]

Сообщение от Kot070

Как построчно проверить данные?

For i = 1 to LastRowSheet1
for j = 1 to LastRowSheet2
 If Cells(i,1) = Cells(j,1) then ......
next i,j

[Kot070]

После then получается делать find("ячейка с нужным содержимым") потом else удалить строку?

[AleksandrH]

разные варианты. Мы ж не видели данные которые сравниваются. Я бы сделал логическую переменную, и если сравнение в цикле прошло успешно, то TRUE. После прохода ForJ посмотрел если переменная FALSE, то удалил строку i с Sheet1

[Kot070]

Сообщение от AleksandrH

разные варианты. Мы ж не видели данные которые сравниваются. Я бы сделал логическую переменную, и если сравнение в цикле прошло успешно, то TRUE. После прохода ForJ посмотрел если переменная FALSE, то удалил строку i с Sheet1

В каждой строке свой шифр товара

[AleksandrH]

Sub t()
    Set Sh1 = Sheets(1)
    Set sh2 = Sheets(2)
    lrow1 = Sh1.Cells(Sh1.Rows.Count, "A").End(xlUp).Row
    lrow2 = sh2.Cells(sh2.Rows.Count, "A").End(xlUp).Row
    j = 1
        Do While j <= lrow2
            sh2.Cells(j, 2).FormulaR1C1 = "=COUNTIF(Лист1!C1,Лист2!RC[-1])"
            If sh2.Cells(j, 2) = 0 Then
                sh2.Rows(j).Delete
                row2 = sh2.Cells(sh2.Rows.Count, "A").End(xlUp).Row
            Else:
                sh2.Cells(j, 2).Clear
                j = j + 1
            End If
        Loop
End Sub