Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

Здравствуйте не получается перенести часть (дипазон) строки по условию.
есть таблица с шапкой, нужно чтобы с листа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, 14:12   #2
IgorGO
МегаМодератор
СуперМодератор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Адрес: УКРАЇНА, Київ
Сообщений: 9,059
Репутация: 1731

icq: 7934250
skype: i2x0,5
По умолчанию

Используйте такой макрос:
Код:

Sub OopyWithL()
  Intersect([c:cx], [l:l].SpecialCells(2).EntireRow).Copy Worksheets(2).[b2]
End Sub

__________________
41001804815208 - Яндекс-деньги благодарности за удачные советы и решения можно отправлять прямо сюда)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума   Ответить с цитированием
Старый 21.01.2019, 01:27   #3
xsanderex
Новичок
 
Регистрация: 18.03.2018
Сообщений: 2
Репутация: 10
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перенос диапазона данных по условию на новый лист с сохранением заголовков 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


01:42.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru