Доброй ночи,прошу помощи.Нашел здесь макрос по переносу данных,вроде разобрался. Но возникла проблема,нужно чтобы при переносе, в столбце А на "лист2" проставлялась дата из "лист1" ячейка L1.Помогите пожалуйста.

Добрый вечер.Слепил макрос на базе формулы,переносит данные из книги "База" в книгу"Прием" по наименованиям(условие 1) и выбранным датам(условие 2).Вроде как и работает,но на большой таблице уж больно мееедлено    Может можно, как то его переделать или ускорить?!помогите пожалуйста.

Добрый вечер. Нашел здесь макрос Hugo,но никак не могу добавить еще один столбец для суммирования.Сейчас суммируется и переносится 3 столбец,как мне сделать чтобы суммировались и переносились 3 и 4 столбец.

Помогите пожалуйста

Добрый вечер,столкнулся с небольшой проблемой.Есть текущая дата 24.06.2013 (В2),есть критерий "Пятница"(D2),нужно получить ближайшую Пятницу в формате даты 28.06.2013 (Н2). Не могу ничего придумать..    Помогите пожалуйста.

Добрый вечер!Накопал на форуме макрос,который переносить данные из листа "База" на Лист"Анализ" по условию(Продажи).Дело в том, что на исходном листе (База) кол-во столбцов будет динамическим.Возник вопрос, как прописать в макросе,чтобы он переносил столбцы до первого пустого на листе "База"?  
Private Sub CommandButton1_Click()  
R = 19  
l = 7  
While R < 1000  
If Sheets("База").Cells(R, 2).Value = "Продажи" Then    
Sheets("Анализ").Cells(l, 1).Value = Sheets("База").Cells(R, 1).Value  
Sheets("Анализ").Cells(l, 2).Value = Sheets("База").Cells(R, 3).Value  
Sheets("Анализ").Cells(l, 3).Value = Sheets("База").Cells(R, 4).Value  
'и т.д  
 
l = l + 1  
End If  
R = R + 1  
Wend  
End Sub  
Помогите пожалуйста..

Добрый вечер,возник вопрос. Макрокодером записал такую формулу:  
=IFERROR(CEILING(RC[-1],VLOOKUP(RC[-3],'E:\Запасы\[База.xlsm]База
товаров'!R3C2:R1003C7,6,0)),0)  
она же:  
=ОКРВВЕРХ(E6,ВПР(C6,'E:\Запасы\[База.xlsm]База товаров'!$B$3:$G$1003,6,0)).
 
Формула округляет кол-во штук  в столбце E до кол-ва кратного целым упаковкам(кол-во в упаковке находится в книге "База". В принципе  все работает,если результат выводим в другой столбец. Возникла мысля,возможно ли макросом заменить изначальное кол-во в столбце E на результат формулы? Понятно что получается циклическая ссылка,но вдруг?! :)Помогите пожалуйста.

Добрый вечер,столкнулся с проблемой,мне нужно заполнить Комбобокс значениями по условию в ячейке F1(50),т.е в Комбобокс должно получится: 1,2,3,4,5…..50.Можно ли это решить не создавая список на отдельном листе?Помогите пожалуйста.

Добрый вечер!Столкнулся с проблемой.Макрос создает фигуры согласно списку на лист1 (столбец2),и согласно этому списку проставляется текст надписи на фигурах. Сейчас цвет фигуры и шрифта указывается на Лист2 в ячейках F2 и G2. Теперь о проблеме,добавил столбец (на Лист1 столбец3), из которого присваивается имя фигуре. Пытаюсь сделать чтобы по заданому имени ( лист1 столбец С ) фигура окрашивалась в нужный цвет (условия по которым должна окрашиваться фигура указаны на Лист2 ячейки I2 - Q2). Вот здесь и пришел в тупик... Если возможно решение,помогите пожалуйста.

Столкнулся с такой проблемой:                                                                                                                                                                                                                                                               Есть N блоков с данными (может быть больше ,меньше),кол-во столбцов и строк в блоке динамическое (может быть больше,меньше). Нужно вывести данные (серые ячейки) со всех блоков в соседний лист(в столбец А). Пока получилось вывести все что есть на листе(столбец В):( Но не могу вывести "чистые" данные. Помогите пожалуйста с макросом…

Добрый день,очень нужна ваша помощь.:)Не знаю возможно ли такое,но возникла такая проблема:  
есть 1 строка ряд данных,ниже в строке идет обычное суммирование каждых 3 ячеек со сдвигом на 1 ячейку.И вот возник вопрос:можно так сделать чтобы диапазон суммирования я задавал в ячейке,т.е ввел в ячейку цифру 3 и суммировало по 3 ячейки,ввел 5 суммировало по 5 ячеек?!  
Если такое возможно,помогите пожалуйста..

Добрый день,опять к вам за помощью..:)Возникла такая проблема: посчитать на дату среднее отклонение за последние 3 поставки без учета минусовых отклонений.Если такое реально, помогите пожалуйста.

Добрый день.Когда-то написали мне здесь хороший макрос,но сейчас понадобилось его прикрутить в другую таблицу и возникло 2 проблемы.  
1)При изменении года в файле, макрос перестает переносить данные.Я так понимаю в коде задан 2010 год,как изменить код,чтобы макрос работал при любом выбранном году.    
2)Данные теперь ежедневно приходится заносить в несколько этапов ( сначала одни наименования позже другие),после внесения одной части данных,при перенесении второй части первые данные удаляются.Как сделать чтобы данные добавлялись в колонку.:<(  
Помогите пожалуйста.

Добрый вечер!Попытался слепить маленький макрос,но зашел в тупик..  
 
Private Sub CommandButton2_Click()  
x = 0  
Me.ListBox2.AddItem  
Me.ListBox2.List(x, 0) = Label1  
Me.ListBox2.List(x, 1) = Label2  
Me.ListBox2.List(x, 2) = Label3  
x = x + 1  
End Sub  
Нужно чтобы при нажатии кнопки данные из Лейбел каждый раз переносились в  Листбокс, и заполнялись ниже предыдущей записи.Сейчас макрос переносит первую запись,но следующая запись при переносе затирает предыдущую.Что нужно подправить? помогите пожалуйста.

Добрый день! Возникла задачка,и без вашей помощи никак..:( На форме расположены 1 textbox и 20 label,хотелось бы: при вводе в textbox числа (от 1 до 20) закрасить по порядку  соответствующее кол-во label. Если такое возможно - помогите пожалуйста! Спасибо.

Добрый день!Возникла проблема,помогите пожалуйста. Пытаюсь сделать запуск двухсторонней печати при множественном выборе в Листбоксе. Макрос нашел,а вот переделать никак не получается.Нужно чтобы при множественном выборе в Листбокс1 печатались выбранные листы.:(

Добрый день,помогите пожалуйста найти ошибку. Вставил этот код в форму,все работает,но при сохранении файла пишет "Обнаружены ошибки при сохранении. Если отключаю код - все нормально.:(  
Что с ним не так?  
Private Sub UserForm_Initialize()  
Dim iMassiv  
iMassiv = Sheets("Лист2").Range("A1:E51").Value  
ListBox1.List = iMassiv  
End Sub

Добрый день,помогите пожалуйста с макросом. Нужно из Лист1 разнести данные по фамилиям в Лист2 с накоплением.

Добрый день,помогите пожалуйста.Проблема такая.Есть 3 textbox,в первый вводим время начала действия,во второй время окончания, а в третьем нужно автоматом получить время затраченное на действие (разницу между 1 и 2 textbox).Спасибо

Добрый день,помогите пожалуйста с решением проблемы. При множественом выборе в Листбоксе (например: Акварин П. П.,Табарова Л. А.,Миронова И. Н.) число в Текстбоксе(например- 300) нужно разделить на количество выбраных людей и перенести полученные данные на лист. Спасибо.

Добрый день!Помогите пожалуйста разобраться. Такая проблема - есть лист "Настройки",в котором находятся Checkbox-ы,нужно при выборе в Checkbox-е чтобы блокировался выбранный frame с находящимся в нем textbox-ом,и  всегда при открытии формы он был заблокирован,пока не будет снята галочка.Возможно ли такое?!

Добрый вечер,помогите пожалуйста с формулой...Есть данные(фамилии) которые подставляются формулой в столбец B по критерию в столбце С. Но если вакансия свободна то формула дает 0. Нужно посчитать сколько реально  людей по каждой вакансии.

Добрый день! Помогите пожалуйста переделать макрос.  
 
Private Sub CommandButton1_Click()  
Dim n As Integer  
On Error Resume Next  
Worksheets("Б1").ShowAllData  
n = Worksheets("Б1").Cells(Rows.Count, 2).End(xlUp).Row  
With Worksheets("Б1")  
.Cells(n + 1, 1).Value = ListBox1.Text  
.Cells(n + 1, 1).Value = ListBox3.Text  
.Cells(n + 1, 2).Value = ComboBox1.Text  
.Cells(n + 1, 2).Value = ComboBox2.Text  
.Cells(n + 1, 3).Value = ListBox2.Text  
.Cells(n + 1, 4).Value = TextBox6.Text  
.Cells(n + 1, 5).Value = TextBox2.Text  
.Cells(n + 1, 6).Value = TextBox3.Text  
.Cells(n + 1, 7).Value = TextBox4.Text  
.Cells(n + 1, 8).Value = TextBox5.Text  
End With  
 
TextBox2.Value = ""  
TextBox3.Value = ""  
TextBox4.Value = ""  
TextBox5.Value = ""  
MsgBox "Данные внесены в базу"  
 
End Sub  
Хотелось чтоб в колонку 1 заносились данные как из ListBox1 так и из   ListBox3,и тоже самое с колонкой 2 ( из ComboBox1 и  ComboBox2). Сейчас заносит только с ListBox3 и ComboBox2,а  из ListBox1 и ComboBox1 ну никак не хочет..:(  
Если это реально,помогите пожалуйста.

Добрый вечер. Возникла такая проблема. Нашел здесь код, переделал для своего файла. Код отображает в listbox список листов файла,при 2 клике по выбранной строке в listbox включается предварительный просмотр выбранного листа. Теперь появилась задумка - при закрытии режима просмотра чтобы я мог вернутся обратно в userform(сейчас возврат идет на лист).Если такое возможно,помогите пожалуйста.

Добрый день,помогите пожалуйста написать макрос(ы). Проблема такая,нужно:    
1) Просуммировать данные по 2 условиям: по наименованию и по номеру(строка 5),и перенести на лист2.    
2) То-же самое, только посчитать средние значения чисел которые больше 0,и перенести на лист3.  Спасибо.

Добрый Вечер! Подскажите пожалуйста, реально ли сделать чтобы формат времени отображался со знаком "-".Спасибо.

Добрый день,Помогите пожалуйста! Нашел здесь на форуме код, который переносит в TextBox1 значение первого столбца выбранной строки ListBox1.Что в нем изменить чтобы бралось значение 3 столбца?  
   
Private Sub ListBox1_Click()  
Me.TextBox1 = Split(ListBox1.Value, vbTab)(0)  
End Sub

Добрый день! Подскажите, как на основании данных в Label1,подтянуть данные(Лист2) в Label 2,Label 3,Label 4.

Добрый день! Помогите пожалуйста решить... Вопрос в файле.

Добрый вечер! Помогите решить.. Нужно объединить списки в один общий,чтобы фамилии шли по порядку.

Добрый вечер!Помогите пожалуйста решить проблему.Пример и условие в файле.