Хорошо. Понял. Постараюсь сделать. думаю разберусь

Ясно! Спасибо Вам. Я вам очень благодарен!   Очень очень упростили мне труд. Если можно у Вас еще спросить кое что. А пока пользуясь случаем, хочется спросить. Можно ли будет как то сделать еще такие кнопки, что бы автоматически проставлялись в пустых ячейках даты убытия, дата последнего дня текущего месяца НАПРИМЕР (31.07.2013). Что бы не самому это делать, а само все где пусто ставилась такая дата. И кнопку автоматического очищения листа где установлена дата не последняя дата текущего месяца?

Просто в конце месяца сдача отчета. Мне нужно сдавать отчет о прожитих дней человека и ели он живет еще дальше в этом месяце, то мне приходится поставить в "дату убытия" последнюю дату месяца рассчитывается количество дней, сдается отчет и после уже очищается список у кого не стоит дата на 31.07.2013 г. Т.е. переносится люди на следующий месяц, где по новой ведется с первого числа количество прожитых дней человека. Просто хотелось бы как то быстро это делать не замудряясь копированием и вставкой. Возможно такое?

О боже вы всемогущий. Благодарю Вас. Дайте свой номер телефона я вам хоть баланс брошу.  Какая ни какая все таки благодарность за столь чудесный код

Спасибо Вам большое. Подскажите а куда добавить данную строку в коде, что бы это заработало
-------------------------------------------------------------------------------------------------------------------
Dim li As Long, lLastRow As Long, wsSh As Worksheet

With Sheets("Общий")
lLastRow = .Cells(Rows.Count, 3).End(xlUp).Row 'находим последнюю строку
   On Error Resume Next
   For li = 3 To lLastRow 'перебираем весь столбец по условию до последней строки
   Set wsSh = Sheets(Trim(.Cells(li, 7).Value))
       If Not wsSh Is Nothing Then
           wsSh.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 4).Value = .Cells(li, 3).Resize(, 4).Value
       End If
       Set wsSh = Nothing
   Next li
End With
-------------------------------------------------------------------------------------------------------------------

Здравствуйте! Уважаемые формучане. Помогите с моей проблемой. Введется учет по проживанию в Excel. Гуглю уже 2 дня и почти ничего по своей проблеме найти не могу, а что нахожу мне не подходит. На данный момент нашел код написанный на VBA, который по определенным условиям разбрасывает данные по листам в книге. Он работает но не совсем правильно, как хотелось бы.
Сейчас у меня есть шахматка по местам в комнатах на листе под названием "Общий".  У меня для каждой комнаты выделено определенное количество строк с данными, которые мне нужны. Где указывается с какой организации сотрудник. В конце месяца я сдаю отчётность по организациям кто и сколько дней проживал у нас. Сейчас я это делаю в конце месяца выставляю фильтр по организациям и раскидываю по листам. Организаций может порой быть такое количество что просто такой трудоемкий труд бывает. Помогите упростить работу мне немного. На данный момент я добавил кнопку и вставил макрос найденный в интернете. Объясню как работает сейчас.

Как работает сейчас:
Сейчас когда я нажимаю на кнопку раскинуть по листам, по условию организации у меня разбрасывается по листам данные и все бы хорошо. Только когда я нажму повторно на кнопку то мне копируются опять те же данные, что с копировались ранее и дополняя список. А это уже не правильно.

Как бы хотелось
Хотелось бы, что бы когда нажимаешь на кнопку раскинуть по листам. То тогда была какая то проверка по Ф.И.О. человека, если данный человек есть в списке на листе куда копируются данные то тогда, если были изменения добавить эти изменения в уже существующий строку, а если не находит то добавляет новый.

Я сам в VBA не селён. Помогите с данной проблемой. Файл пример прикладываю.