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

Вход

Регистрация

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

 

= Мир MS Excel/Копирование значений ячеек без заливки из одной кн. в другую - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование значений ячеек без заливки из одной кн. в другую (Макросы/Sub)
Копирование значений ячеек без заливки из одной кн. в другую
vole1977 Дата: Суббота, 23.07.2016, 15:18 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день!
Помогите пожалуйста, не знаю как вообще приступить к задаче, макросами никогда не занимался...
Есть Книга1.Лист1 с формулами. На листе есть закрашенные ячейки с формулами (подитоги, итоги...) и незакрашенные, тоже с формулами.
Есть Книга2.Лист1 она полностью аналогична Книга1.Лист1 только с защитой и незакрашенные ячейки без формул(пустые).
Нужен макрос, который будет делать следующее:
1)Указывается диапазон ячеек, Например C7:IN681
2)Макрос становится на ячейку C7 Книга1.Лист1
3)Если эта ячейка не закрашена, то значение(не формула) этой ячейки копируется в ячейку C7 Книга2.Лист1 и переход к следующей ячейке D7, а если закрашена, то сразу переход к следующей ячейке D7... и так до конца диапазона
Подскажите пожалуйста хоть с чего начать... Буду премногоблагодарен готовому решению...


с Уважением, Владимир
 
Ответить
СообщениеДобрый день!
Помогите пожалуйста, не знаю как вообще приступить к задаче, макросами никогда не занимался...
Есть Книга1.Лист1 с формулами. На листе есть закрашенные ячейки с формулами (подитоги, итоги...) и незакрашенные, тоже с формулами.
Есть Книга2.Лист1 она полностью аналогична Книга1.Лист1 только с защитой и незакрашенные ячейки без формул(пустые).
Нужен макрос, который будет делать следующее:
1)Указывается диапазон ячеек, Например C7:IN681
2)Макрос становится на ячейку C7 Книга1.Лист1
3)Если эта ячейка не закрашена, то значение(не формула) этой ячейки копируется в ячейку C7 Книга2.Лист1 и переход к следующей ячейке D7, а если закрашена, то сразу переход к следующей ячейке D7... и так до конца диапазона
Подскажите пожалуйста хоть с чего начать... Буду премногоблагодарен готовому решению...

Автор - vole1977
Дата добавления - 23.07.2016 в 15:18
wild_pig Дата: Суббота, 23.07.2016, 19:41 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 471
Репутация: 88 ±
Замечаний: 0% ±

2003, 2013
Покажите файл. Кто разукрасил ячейки?
 
Ответить
СообщениеПокажите файл. Кто разукрасил ячейки?

Автор - wild_pig
Дата добавления - 23.07.2016 в 19:41
vole1977 Дата: Суббота, 23.07.2016, 23:08 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
vole1977,
Во вложении кусок файла отчета, который нужно заполнить и отправить (сам отчет 3Мб). Есть аналогичный, взломанный, уже заполненный с помощью формул. Можно копировать с заполненного и с помощью спец вставки кусками вставлять, но это будет долго + файл отчета постоянно меняется и с ним меняются диапазоны копируемых ячеек. Хочется сделать универсальный макрос изложенный в начальном письме
К сообщению приложен файл: 2560907.xls(48Kb)


с Уважением, Владимир
 
Ответить
Сообщениеvole1977,
Во вложении кусок файла отчета, который нужно заполнить и отправить (сам отчет 3Мб). Есть аналогичный, взломанный, уже заполненный с помощью формул. Можно копировать с заполненного и с помощью спец вставки кусками вставлять, но это будет долго + файл отчета постоянно меняется и с ним меняются диапазоны копируемых ячеек. Хочется сделать универсальный макрос изложенный в начальном письме

Автор - vole1977
Дата добавления - 23.07.2016 в 23:08
wild_pig Дата: Суббота, 23.07.2016, 23:57 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 471
Репутация: 88 ±
Замечаний: 0% ±

2003, 2013
Переносим значения ячеек выделенного диапазона, если они не пустые и не закрашенные в ячейки с теми же адресами листа 2
[vba]
Код
Sub uuu()
    Dim c As Range
'------------------
    For Each c In Selection.Cells
        If c <> "" And c.Interior.Color = 16777215 Then
            Sheets("Лист2").Range(c.Address) = c.Value
        End If
    Next
    Beep
End Sub
[/vba]


Сообщение отредактировал wild_pig - Суббота, 23.07.2016, 23:58
 
Ответить
СообщениеПереносим значения ячеек выделенного диапазона, если они не пустые и не закрашенные в ячейки с теми же адресами листа 2
[vba]
Код
Sub uuu()
    Dim c As Range
'------------------
    For Each c In Selection.Cells
        If c <> "" And c.Interior.Color = 16777215 Then
            Sheets("Лист2").Range(c.Address) = c.Value
        End If
    Next
    Beep
End Sub
[/vba]

Автор - wild_pig
Дата добавления - 23.07.2016 в 23:57
vole1977 Дата: Воскресенье, 24.07.2016, 02:25 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
wild_pig,
Спасибо Огромное! Работает!


с Уважением, Владимир
 
Ответить
Сообщениеwild_pig,
Спасибо Огромное! Работает!

Автор - vole1977
Дата добавления - 24.07.2016 в 02:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование значений ячеек без заливки из одной кн. в другую (Макросы/Sub)
Страница 1 из 11
Поиск:

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