Копирование по условию, условиям.

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Копирование по условию, условиям. - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Копирование по условию, условиям. (Макросы/Sub)

Копирование по условию, условиям.

zolinstanislav

Дата: Вторник, 29.06.2021, 11:26 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Есть код
[vba]

Код

Option Explicit
Sub CopyIf()
    With ActiveWorkbook.Sheets("Касса Аксон")
        Dim lrow, i, j As Long
        lrow = .Cells(Rows.Count, 5).End(xlUp).Row
        j = ActiveWorkbook.Sheets("Касса").Cells(Rows.Count, 1).End(xlUp).Row + 1
        For i = 2 To lrow
            If .Range("E" & i) = "Инкассация" Or .Range("E" & i) = "Инкассация" Then
                .Range("E" & i).EntireRow.Copy ActiveWorkbook.Sheets("Касса").Range("A" & j)
                j = j + 1

           End If

        Next i
    End With
End Sub

[/vba] но он копирует каждый раз заново. То есть каждый раз создает дубликаты уже перенесенной информации. Прописать удаление строчек нельзя так как в эту таблицу заноситься информация еще и с форм. Как сделать что бы он анализировал что уже было скопировано а что новое ??? ((

Ответить

Копирование по условию, условиям. (Макросы/Sub)

Страница 1 из 1
1