Копирование с 1-го листа строк отвечающих условиям - Microsoft Office Excel - Страница 2

IgorGO · 27.11.2010, 11:23

Любое цитирование - это приятно.
Виктор, надеюсь, ты не обиделся бы, если бы я начал править твой код, но я не стал этого делать - постановка задачи размыта. 80% приведенных тут решений основано на догадках. авторы тем - стандартно недоговоривают, отвечающие домысливают, основываясь на собственном опыте и здравом смысле. к сожалению, "опыт и здравый смысл" не всегда совпадают с уникальными требованиями к решению конкретной задачи

VictorM · 27.11.2010, 11:34

Цитата:

Виктор, надеюсь, ты не обиделся бы, если бы я начал править твой код,

Ни в коем случае!!!
Всегда рад интересному решению, я только учусь)))

Yura123 · 29.11.2010, 21:12

Спасибо большое за помощь! Разобрался, кажется, в коде. Добавил возможность переносить данные из другого файла. Добавил проверку на дату, а не текст. Но не могу организовать нормальную проверку, если даты в исходной таблице в разных форматах! Упорно проверяет только тот формат, который задаю в VBA (short date, например).

Как организовать проверку с использованием метода Find, чтобы искать даты в любом формате? Даже если это формат с указанием времени, а не только числа, месяца, года?

Yura123 · 29.11.2010, 21:18

Цитата:

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

Спасибо большое за помощь! Разобрался, кажется, в коде. Добавил возможность переносить данные из другого файла. Добавил проверку на дату, а не текст. Но не могу организовать нормальную проверку, если даты в исходной таблице в разных форматах! Упорно проверяет только тот формат, который задаю в VBA (short date, например).

Как организовать проверку с использованием метода Find, чтобы искать даты в любом формате? Даже если это формат с указанием времени, а не только числа, месяца, года?

Сорри за беспокойство, уже тоже разобрался.

Slavka79 · 06.05.2011, 11:08

Цитата:

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

Можно так. См.вложение.

подскажите плиз как нужно видоизменить строку кода
iCell.EntireRow.Copy Destination:=.Rows(iRow& + 2)

что бы при копировании строк копировалось значение строки, а не формула

EducatedFool · 06.05.2011, 11:41

Цитата:

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

подскажите плиз как нужно видоизменить строку кода
iCell.EntireRow.Copy Destination:=.Rows(iRow& + 2)
что бы при копировании строк копировалось значение строки, а не формула

Код:

.Rows(iRow& + 2).value = iCell.EntireRow.value

Slavka79 · 06.05.2011, 12:14

Цитата:

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

Код:

.Rows(iRow& + 2).value = iCell.EntireRow.value

не помогло

Run-time error '13':
Type mismatch

VictorM · 06.05.2011, 12:29

Замените строку
iCell.EntireRow.Copy Destination:=.Rows(iRow& + 2)
на две

Код:

iCell.EntireRow.Copy
.Rows(iRow&+2).PasteSpecial Paste:=xlValues

Slavka79 · 06.05.2011, 12:30

Цитата:

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

не помогло

Run-time error '13':
Type mismatch

решил проблему следующим способом

Код:

Set destrows = .Rows(iRow& + 2)
iCell.EntireRow.Copy 
destrows.PasteSpecial Paste:=xlPasteValues

хотя может я где то допустил ошибку относительно предложенного раннее кода

pavlovk · 24.08.2012, 10:40

Добрый день!
У меня схожая проблема. Необходимо, чтобы на отдельный лист скопировались все строки, у которых проставленно не нулевое значение "Заказ количество".
Как это можно сделать?

Спасибо!

27.11.2010, 11:23	#11
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Любое цитирование - это приятно. Виктор, надеюсь, ты не обиделся бы, если бы я начал править твой код, но я не стал этого делать - постановка задачи размыта. 80% приведенных тут решений основано на догадках. авторы тем - стандартно недоговоривают, отвечающие домысливают, основываясь на собственном опыте и здравом смысле. к сожалению, "опыт и здравый смысл" не всегда совпадают с уникальными требованиями к решению конкретной задачи Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

06.05.2011, 12:29	#18
VictorM Старожил Регистрация: 15.05.2008 Сообщений: 2,058	Замените строку iCell.EntireRow.Copy Destination:=.Rows(iRow& + 2) на две Код: `iCell.EntireRow.Copy .Rows(iRow&+2).PasteSpecial Paste:=xlValues` "Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь" "Большое спасибо" - Z261597841314, R208907249777, U447361470499 Последний раз редактировалось VictorM; 06.05.2011 в 12:39.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Запрос на часть листа по условию в определенной ячейке	Stilet	Microsoft Office Excel	3	27.05.2010 11:42
Сумма ячеек которые удовлетворяяет условию	asas2010	Microsoft Office Excel	21	19.04.2010 16:38
Копирование данных по условию.	sirius24	Microsoft Office Excel	6	06.04.2010 09:17
заполнение ячеек по условию	Arcto	Microsoft Office Excel	1	17.02.2010 11:21
добавление листа в книгу по условию	Sasha K	Microsoft Office Excel	4	30.01.2007 15:44

29.11.2010, 21:12	#13
Yura123 Новичок Джуниор Регистрация: 27.11.2010 Сообщений: 3	Спасибо большое за помощь! Разобрался, кажется, в коде. Добавил возможность переносить данные из другого файла. Добавил проверку на дату, а не текст. Но не могу организовать нормальную проверку, если даты в исходной таблице в разных форматах! Упорно проверяет только тот формат, который задаю в VBA (short date, например). Как организовать проверку с использованием метода Find, чтобы искать даты в любом формате? Даже если это формат с указанием времени, а не только числа, месяца, года?