Вопрос : Сортировать для того чтобы первенствовать workbook к по-разному листам

Я имею книгу работы первенствовать, первый лист вызван Оригиналом, другие 12 листа буду январем - декабрь.  Первое colum 'a " на оригинале вызвано именем места, и вызвана вторая колонка «b» устанавливает дату.  Мне нужны имена и устанавливаю даты для того чтобы показать вверх на месяцах sheets.

Ex, котор respecetd я имею 100 мест зарегистрированных с различной датой на январь как я получаю все места и устанавливаю даты сделанные в январь для того чтобы заселить на sheet -го январь class=

Ответ : Сортировать для того чтобы первенствовать workbook к по-разному листам

Альтернативное решение smogло быть иметь макрос что-нибудь подобное одно для уточнения ежемесячных листов по мере того как данные вписаны в мастерский лист.

Если вы уже имеете много данные, котор нужно перевезти, то вы можете использовать петлю (прокомментирована вне) для возвращения всех существующий данных. Замените ActiveCell.Row - 1 с I и извлекайте 'раньше для и затем.

Это Кодий находится в архиве образца.

Отношения,
Кратко
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Приватное Sub Worksheet_Change (цель ByVal как ряд)

    Затемните I как длиной, LastRow как длиной, lRow как длиной
    Затемните Ws1 как рабочий лист, Ws2 как рабочий лист
    Затемните iMonth как шнур
    Если не пересечь, то (ряд («b: B»), цель) ничего после этого
        Установите Ws1 = рабочий лист («оригинал»)
        LastRow = Ws1.Range («A65536»). Конец (xlUp). Рядок
        'Для I = 2 к LastRow
            iMonth = форма (рабочий лист («оригинал»). Клетки (ActiveCell.Row - 1, 2), «mmm»)
            На ошибке переход ErrorHandler
            Установите Ws2 = рабочий лист (iMonth)
            'находите первый пустой рядок в листе месяца
            lRow = Ws2.Cells (Rows.Count, 1).End (xlUp). Смещение (1, 0). Рядок
            Ws2.Cells (lRow, 1) = Ws1.Cells (ActiveCell.Row - 1, 1)
            Ws2.Cells (lRow, 2) = Ws1.Cells (ActiveCell.Row - 1, 2)
        'Затем I
    Закончитесь если
    Подводная лодка выхода 'избегает укротителя ошибки
ErrorHandler:
   'Лист месяца не существует!
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us