Добрый день! Помогите пожалуйста, не знаю как вообще приступить к задаче, макросами никогда не занимался... Есть Книга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
vole1977, Во вложении кусок файла отчета, который нужно заполнить и отправить (сам отчет 3Мб). Есть аналогичный, взломанный, уже заполненный с помощью формул. Можно копировать с заполненного и с помощью спец вставки кусками вставлять, но это будет долго + файл отчета постоянно меняется и с ним меняются диапазоны копируемых ячеек. Хочется сделать универсальный макрос изложенный в начальном письме
vole1977, Во вложении кусок файла отчета, который нужно заполнить и отправить (сам отчет 3Мб). Есть аналогичный, взломанный, уже заполненный с помощью формул. Можно копировать с заполненного и с помощью спец вставки кусками вставлять, но это будет долго + файл отчета постоянно меняется и с ним меняются диапазоны копируемых ячеек. Хочется сделать универсальный макрос изложенный в начальном письмеvole1977
Переносим значения ячеек выделенного диапазона, если они не пустые и не закрашенные в ячейки с теми же адресами листа 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]
Переносим значения ячеек выделенного диапазона, если они не пустые и не закрашенные в ячейки с теми же адресами листа 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