Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование по условию, условиям. (Макросы/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] но он копирует каждый раз заново. То есть каждый раз создает дубликаты уже перенесенной информации. Прописать удаление строчек нельзя так как в эту таблицу заноситься информация еще и с форм. Как сделать что бы он анализировал что уже было скопировано а что новое ??? ((
 
Ответить
СообщениеЕсть код
[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] но он копирует каждый раз заново. То есть каждый раз создает дубликаты уже перенесенной информации. Прописать удаление строчек нельзя так как в эту таблицу заноситься информация еще и с форм. Как сделать что бы он анализировал что уже было скопировано а что новое ??? ((

Автор - zolinstanislav
Дата добавления - 29.06.2021 в 11:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование по условию, условиям. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!