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

Вход

Регистрация

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

 

= Мир MS Excel/Как отметить скопированные строки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как отметить скопированные строки (Макросы/Sub)
Как отметить скопированные строки
Isa Дата: Понедельник, 07.04.2014, 10:43 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Всем Доброго Дня!

Подскажите, пожалуйста, как в исходном файле отметить строки, которые скопированы во внешний файл с помощью макроса
Copy_ROWs_to_EXT_FILE()? (http://www.excelworld.ru/forum/3-176-1)

Спасибо.

P.S.
По ошибке создал такую же тему в "Готовых решениях".
[moder] Удалил.[/moder]
К сообщению приложен файл: 0264229.xls (34.5 Kb)
 
Ответить
СообщениеВсем Доброго Дня!

Подскажите, пожалуйста, как в исходном файле отметить строки, которые скопированы во внешний файл с помощью макроса
Copy_ROWs_to_EXT_FILE()? (http://www.excelworld.ru/forum/3-176-1)

Спасибо.

P.S.
По ошибке создал такую же тему в "Готовых решениях".
[moder] Удалил.[/moder]
Автор - Isa
Дата добавления - 07.04.2014 в 10:43
ikki Дата: Понедельник, 07.04.2014, 10:50 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
после [vba]
Код
Selection.EntireRow.Copy wb.Sheets(1).Cells(lr + 1, 1) ' копирование
[/vba]добавить [vba]
Код
For Each r In Selection.EntireRow.Rows
     r.Columns("e") = "ok"
Next
[/vba]

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщениепосле [vba]
Код
Selection.EntireRow.Copy wb.Sheets(1).Cells(lr + 1, 1) ' копирование
[/vba]добавить [vba]
Код
For Each r In Selection.EntireRow.Rows
     r.Columns("e") = "ok"
Next
[/vba]
Автор - ikki
Дата добавления - 07.04.2014 в 10:50
RAN Дата: Понедельник, 07.04.2014, 10:54 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Саш, проще
[vba]
Код
Selection.EntireRow.Cells(5) = "OK"
Selection.EntireRow.Copy wb.Sheets(1).Cells(lr + 1, 1) ' копирование
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеСаш, проще
[vba]
Код
Selection.EntireRow.Cells(5) = "OK"
Selection.EntireRow.Copy wb.Sheets(1).Cells(lr + 1, 1) ' копирование
[/vba]
Автор - RAN
Дата добавления - 07.04.2014 в 10:54
Isa Дата: Понедельник, 07.04.2014, 10:56 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 30
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
ikki, RAN, спасибо большое!
 
Ответить
Сообщениеikki, RAN, спасибо большое!
Автор - Isa
Дата добавления - 07.04.2014 в 10:56
ikki Дата: Понедельник, 07.04.2014, 11:09 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
проще - не значит правильнее.
так не работает. :(

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщениепроще - не значит правильнее.
так не работает. :(
Автор - ikki
Дата добавления - 07.04.2014 в 11:09
RAN Дата: Понедельник, 07.04.2014, 11:17 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Странно
У меня работает
Более того, точно такая строка у меня используется в моем файле для формирования адреса вызова процедуры, и глюков замечено не было.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеСтранно
У меня работает
Более того, точно такая строка у меня используется в моем файле для формирования адреса вызова процедуры, и глюков замечено не было.
Автор - RAN
Дата добавления - 07.04.2014 в 11:17
ikki Дата: Понедельник, 07.04.2014, 11:19 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
Андрей, протестируй, плиз?
выделяю несвязные C5:C6 и D8
вызываю макрос
"ок" только в E5
К сообщению приложен файл: test3.xls (46.5 Kb)

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Сообщение отредактировал ikki - Понедельник, 07.04.2014, 11:36
 
Ответить
СообщениеАндрей, протестируй, плиз?
выделяю несвязные C5:C6 и D8
вызываю макрос
"ок" только в E5
Автор - ikki
Дата добавления - 07.04.2014 в 11:19
RAN Дата: Понедельник, 07.04.2014, 11:53 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Сдаюсь. Был не прав.
Я почему-то решил, что там цикл.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеСдаюсь. Был не прав.
Я почему-то решил, что там цикл.
Автор - RAN
Дата добавления - 07.04.2014 в 11:53
ikki Дата: Понедельник, 07.04.2014, 12:15 | Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
ладно.
но я тоже засомневался - не усложнил ли чего :)

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщениеладно.
но я тоже засомневался - не усложнил ли чего :)
Автор - ikki
Дата добавления - 07.04.2014 в 12:15
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как отметить скопированные строки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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