Рад приветствовать всех!
Прошу помочь в написании макроса для такой процедуры:
Программой VB в файл "MyFile.xls" на первый лист загружена информация:
A1- ФИО B1 - специальность (Возможно D1, E1, ... и т.д.)
Иванов И. И. Судомеханик
Возможно различное количество записей
Специальность - Судомеханик, Электромеханик, Судоводитель и т.д.
Список отсортирован по специальности.
На втором листе создана заготовка документа:
Список .......
по специальностям:
08870 Судомеханики
Свободная строка...
08880 Эл.механики
Свободная строка...
08890 Судоводители
Св. строка...
И т.д. Вопрос такой: из первого листа копировать список по одной специальности и
вставлять в свободную строку второго листа, а следующие строки перемещались вниз на столько строк, сколько было вставлено записей.
Количество записей по специальностам разное.
Сейчас выполняется так: подсчитывается кол-во записей, потом на листе 2 вставляется
такое же количество пустых строк, производится копирование и после того вставка данных
и т. д. весь документ
Можно ли как-нибудь автоматизировать данные действия?
С уважением

Это сообщение отредактировал(а) Flotskiy - 10.3.2005, 07:24

Flotskiy
Я могу за 50$
А вообще, чем собственный вариант не устраивает?
Ну неравиться сразу 23 стрички вставлять, вставляй по одной.

Fox, привет!
Наверное, не все я объяснил.
Например, загружено всего 400 записей,
Судомехаников -100;
Эл.механиков - 150;
Судоводителей -80;
и т.д. и все надо скопировать в один документ под своим подзаголовком
И не один такой документ, целая куча обрабатывается - с оценками, медалями, льготами и т.п.
Это трудоемкое занятие. Вот и спрашиваю, может что можно усовершенствовать?
Всего доброго.

Цитата

Сейчас выполняется так: подсчитывается кол-во записей, потом на листе 2 вставляется такое же количество пустых строк, производится копирование и после того вставка данных и т. д. весь документ

- можно и не сложно.Но лучше файл приложи.

Старуха. рад приветствовать, с прошедшим 8 Марта! Наилучшие пожелания!
Я не знаю, как xls-файл приложить, подскажи, псе.
Всего доброго.
PS. Разобрался и приложил файл.

Это сообщение отредактировал(а) Flotskiy - 10.3.2005, 12:48

Присоединённый файл ( Кол-во скачиваний: 2 )
 Protokol.zip

Код

Private Sub CommandButton1_Click() Dim c As String Dim e As String Dim d As Integer Dim t As Integer t = Лист1.UsedRange.Rows.Count For r = 2 To t c = Лист1.Range("B" & r).Value Select Case c       Case "Гидротехник"   e = "290400"       Case c = "Организация перевозок"   e = "240100"       Case "Судоводитель"   e = "240200"       Case "Судомеханик"   e = "240500"       Case "Экономист"   e = "060800"      Case "Электромеханик"   e = "240600" End Select     d = UsedRange.Rows.Count For r1 = 8 To d If e = Left(Range("A" & r1).Value, 6) Then  Rows(r1 + 1).EntireRow.Insert Range("B" & r1 + 1).Value = Лист1.Range("A" & r).Value Range("C" & r1 + 1).Value = Лист1.Range("B" & r).Value End If Next r1 Next r End Sub

Это сообщение отредактировал(а) Старуха - 10.3.2005, 23:38

Присоединённый файл ( Кол-во скачиваний: 18 )
 Protokol.xls

Вечер добрый всем!
Старуха, скопировал файл и при нажатии на кнопку выдает:

Цитата

Ошибка выполнения '1004'. Метод Insert из класса Range завершен неверно

и остановился отладчик на строке

Цитата

Rows(r1 + 1).EntireRow.Insert

У меня Офис-97, может из-за этого не хочет работать?
Помогай, pse.
С уважением

Это сообщение отредактировал(а) Flotskiy - 11.3.2005, 13:55

Открой новую книгу.Зайди в Макросы -Начать запись.Выдели ячейку и зайди вставка-строки.Остановить запись.Затем зайди в макрос и почитай что там написано.А может кто еще поможет.У меня все работает2003

Код

Range("A" & r1 + 1).Select  Rows(r1 + 1).EntireRow.Insert

попробуй так
только надо r1,а не r

Это сообщение отредактировал(а) Старуха - 11.3.2005, 16:43

Старуха, благодарю тебя, добавил первую строку и все заработало.
Спасибо, всего доброго.