Здравствуйте! Подскажите пожалуйста с макросом, я только начинаю учиться vba, пытался сам написать, но это для меня пока сложно, ни чего не вышло. К сообщению прилагаю пример.  
A2:C41 - это массив, хоть в примере это не так. В F2:F41 номера строк второго листа, а в G2:F41 номера столбцов. Кол-во заполненных не постоянно (от 1 до 40), все значения формируются формулами и массивом.  
Нужно макрос вычитал значение ячейки первого листа из необходимой ячейки второго листа. Например: Из листа "Склад" 25 строки, 6 столбца вычел значение столбца "C" этой строки (т.е C2). За тем 17 строки 3 столбца значение C3, т .д. по каждой строке с данными.

Здравствуйте! Пытаюсь разобраться с языком VBA, но не выходит (обидно даже). Помогите пожалуйста с двумя макросами.  
  Ситуация такова, в прикрепленном файле есть 2 листа "Расход" и "Склад". На 2 листе заносятся данные, которые формулами выводят в ячейке "K4" адрес ячейки к значению которой нужно прибавить значение ячейки "L4". И, если это возможно, то что бы в случает если одно из полей не заполнено либо заполнено не правильно (это даст ошибку в ячейке K4), то выскакивала бы ошибка и данные не заносились. А, что бы уберечься от ошибки, в случае если одинаковые данные вводятся второй раз подряд (напр. случайное нажатие кнопки с макросом дважды), появлялось бы окошко с предупреждением и вопросом продолжить ли да/нет.  
  А второй макрос на вычитание, данные на листе "Расход", в ячейках F2:F41 адреса ячеек второго листа, из которых нужно вычесть значения ячеек C2:C41 соответственно. И что бы так же уберечься от ошибки, если выполнять макрос и переноситься будут одни и те же данные, то выдавал бы предупреждение с вариантами да/нет.  
 Заранее благодарю.

RAN, большое спасибо все работает. Спасибо всем за помощь!

Работает но только после закрытия книги PERSONAL.XLSB. Можно ли что-то с этим сделать, или только поменяв строку "Windows(3).Activate" на "Windows(4).Activate"?

Спасибо, работает, даже комбобоксы переносит. А можно как-то сделать что бы не переносились форматы ячеек, или менялись на "обычный" в основном файле? И если открыто больше или меньше 2 книг, наверное будет глючить, на такой случай можно как-то не дать макросу выполняться и скажем выдавать сообщение что перенос не возможен?

Здравствуйте! С макросами к сожалению не очень дружу, помогите пожалуйста.  
Мне необходим макрос на перенос данный со второй открытой книги, название у нее может быть любым (обычно это дата), в основной файл с формулами для обработки. По сути нужно скопировать ячейки A1:F24 в B1:G24, но в обоих файлах есть условное форматирование (оно одно и то же), данные нужно переносить не перенося условное форматирование, либо удалять его из основного файла (лист1) и переносить из второго вместе с данными, если это конечно возможно. Кроме того и там и там есть комбобоксы, и мне трудно представить как перенести значение комбобокса не копируя его самого (если скопировать то их на листе станет уже не 2 а 4).  
Архив с файлами прилагаю.

Спасибо все работает.  
Вопросик немного не по теме, но чем отличаются свойства Value и Text ?

А можно сделать так что бы снимая галочку комбобокс не только скрывался, но и очищался?

Всем спасибо за помощь! Все работает.

Поправил, скопировал в исходный текст листа, но не работает. Прикрепил файл. Что я делаю не так?

Sub Check_Box1()  
If CheckBox.Value = True Then  
ComboBox5.Visible = True  
Else  
ComboBox5.Visible = False  
End If  
End Sub  
 
Присвоил чекбоксу этот макрос. Ругается на первую строку.

Здравствуйте. Помогите пожалуйста написать макрос который бы делал ComboBox видимым, если стоит флажок в CheckBox. И скрывал бы если флажок не стоит.

Воспользовавшись макросом из темы http://www.planetaexcel.ru/forum.php/?thread_id=29159 создал функцию ВПРП. Хотелось узнать возможно ли с ее помощью подставить данные в одну ячейку на основе данных нескольких ячеек с другой книги.  
Т.е. есть 4 столбца, данные во 2 столбце могут совпадать, так же в 3 и 4. нужно чтоб в зависимости от данных одновременно во 2, 3 и 4 ячейках, появлялись данные из ячейки первого столбца этой же строки.

Возможно ли вообще макросом выделять границы не другом листе, т.е. не том на котором макрос был запущен?

Здравствуйте. С макросом мне помогли на этом форуме, но появилась необходимость дополнить его. Макрос копирует несколько строк с одного листа и вставляет в последнюю пустую строку на втором листе. Вот собственно сам макрос:  
 
Sub copy_r()  
   Dim lr As Long  
   With Application  
       .ScreenUpdating = 0  
       lr = Sheets("Лист2").Cells(Rows.Count, 12).End(xlUp).Row + 1  
       If lr > 31 Then  
           MsgBox "Область печати закончилась, данные не перенесены", vbCritical  
           Exit Sub  
       End If  
       Sheets("Лист2").Range("A" & lr & ":L" & lr + 1).Value = [A20:L21].Value
       .ScreenUpdating = 0  
   End With  
End Sub  
 
Количество копируемых строк может меняться, для этого просто расширю интервал до большого количества строк, скопировав пустые строки они так пустыми и перенесутся. Но надо как-то заставить его выделять скопированные заполненные ячейки на втором листе границами, между почти всеми ячейками, несколько вертикальных границ толстой границей, а внизу каждой скопированной группы строк двойной линией.  
Выделить границы макросом смог, но ставить границы на другом листе не вышло. А как определить в каким интервале находятся те строки что копировались при последнем нажатии макроса, и найти в каком из столбцов в нужных строках выделить границей нужной толщины даже не представляю.

Большое спасибо, очень помогло.

Здравствуйте. С экселем дружу, а вот с макросами в нем не приходилось иметь дел, поэтому необходима помощь.  
На Листе1 через раскрывающиеся списки выбираются данные из другого файла, какие-то данные подсчитываются формулами. Затем все эти данные собираются на этом же листе ниже, в 2 строки, в нужном виде и последовательности (положение этих строк меняться не будет).  
Нужно, что бы при нажатии кнопки макрос копировал эти 2 строки в табличку на Лист2 в две последние пустые строки. Сначала во 2-3 строки (т.е. после шапки), затем на Листе1 выбираются другие данные, соответственно в двух строках ниже меняются, и при повторном нажатии на кнопку новые данные копировались в следующие строки (4-5) на Листе2. И так до заполнения 30-31 строк, на которых альбомная область печати заканчивается, и при последующих запусках макроса не копировал данные, а выдавал сообщение.