Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.01.2019, 16:20   #1
xsanderex
Новичок
Джуниор
 
Регистрация: 18.03.2018
Сообщений: 2
По умолчанию перенос диапазона стоки на другой лист по условию

Здравствуйте не получается перенести часть (дипазон) строки по условию.
есть таблица с шапкой, нужно чтобы с листа1 копировалась строка начиная с третьего столбца(C) если в столбце L стоит единичка "1" на другой лист начиная со второго столбца (B), первый столбец это нумерация по порядку поэтому со второго.
Пробовал условия и брать диапазон но переносит все со страницы не обращая на условие.
Код:

Dim cc As Range
Dim i&

Sheet5.Range("A1:Z300").Clear

For Each cc In Sheet1.UsedRange.Columns(12).Cells
If cc.Value Like "1*" Then
i = i + 1
cc.EntireRow.Copy Sheet5.Range("b11").Cells(i, 1)

End If
Next
нашел примерно похожую задачу но прикрутить к моей задаче не получается
либо не работает либо выдает ошибку на строке Sheets("Sheet1").Range("A3").Curren tRegion.Offset(2,0).ClearContents
вот аналог примерно того же что мне нужно:
Код:
У меня есть список членов, который я придерживаюсь для главы в клубе.
Вместо того, чтобы удалять участников, которые больше не входят в 
главу, я решил попробовать создать макрос, который просматривает 
листок главного реестра руководителя в столбце A (все еще в главе?)
Для значения "да", а затем передает все строки с значением yes на 
другой лист, называемый "Реестр глав Actual".

Макрос работает, но я хотел бы только передать столбцы B через O и не 
включать столбец A.
Код:
Sub ActualRoster()
    Dim myRow, LastRow
    myworksheet = "Chapter Roster Master"
    Sheets("Chapter Roster Actual").Range("A3").CurrentRegion.Offset(2,0).ClearContents
    Sheets(myworksheet).Activate
    LastRow = Sheets(myworksheet).Range("A" & Rows.Count).End(xlUp).Row

    For myRow = 3 To LastRow
        If Sheets(myworksheet).Cells(myRow, "A").Value = "Yes" Then

            Sheets(myworksheet).Range(Cells(myRow,"B"),Cells(myRow,"O")).Copy Destination:=Sheets("Chapter Roster Actual").Range("A" & Rows.Count).End(xlUp).Offset(1)

        End If
    Next myRow
End Sub
xsanderex вне форума Ответить с цитированием
Старый 20.01.2019, 13:12   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

Используйте такой макрос:
Код:
Sub OopyWithL()
  Intersect([c:cx], [l:l].SpecialCells(2).EntireRow).Copy Worksheets(2).[b2]
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 21.01.2019, 00:27   #3
xsanderex
Новичок
Джуниор
 
Регистрация: 18.03.2018
Сообщений: 2
По умолчанию

Точно, видел чтото похожее с использованием Intersect, хорошо попробую.
xsanderex вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перенос диапазона данных по условию на новый лист с сохранением заголовков luex Microsoft Office Excel 1 07.08.2014 21:53
Занести значения в другой лист по условию umka777_89 Microsoft Office Excel 5 09.06.2013 20:36
перенос строки на другой лист по условию TimoXEi Microsoft Office Excel 12 24.01.2013 16:21
перенос строк в другой лист по условию dzaymko Microsoft Office Excel 4 23.04.2012 12:16
Перенос данных из диапазона в другой лист Alex-sib Microsoft Office Excel 1 07.03.2012 18:27