Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Формирование нескольких отчетов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Формирование нескольких отчетов (Макросы/Sub)
Формирование нескольких отчетов
Kamikadze_N Дата: Среда, 27.04.2016, 15:11 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 75
Репутация: 6 ±
Замечаний: 0% ±

Excel 2010
Добрый день. В зависимости от того сколько строк отмечено в столбце необходимо создать такое же количество отчетов по шаблону на новых листах. У меня создается только 1 лист и далее цикл прерывается, подскажите пожалуйста в чем может быть проблема? файл во вложении, сам код макроса ниже:

[vba]
Код
Sub Macro1()
Dim счетчик As Integer, sData As String, sNom As String, sFIO As String, sMT As String, sGOSNomt As String, sPric As String, sMesto As String, sVidRab As String, sNach As Date, sKon As Date, NewSheet
For счетчик = 3 To 33 Step 1
If Cells(счетчик, 1) = "x" Then
Data = Cells(счетчик, 2)
sNom = Cells(счетчик, 3)
sFIO = Cells(счетчик, 4)
sMT = Cells(счетчик, 5)
sGOSNomt = Cells(счетчик, 6)
sPric = Cells(счетчик, 7)
sMesto = Cells(счетчик, 8)
sVidRab = Cells(счетчик, 9)
sNach = Cells(счетчик, 10)
sKon = Cells(счетчик, 11)
On Error Resume Next
Set NewSheet = Sheets(sFIO)
If NewSheet Is Nothing Then
Sheets("412-АПК").Copy Before:=Sheets(Sheets.Count)
Sheets("412-АПК (2)").Name = sNom
Cells(8, 3) = sData
Cells(3, 8) = sNom
Cells(5, 7) = sFIO
Cells(6, 12) = sMT
Cells(7, 12) = sGOSNomt
Cells(8, 12) = sPric
Cells(12, 3) = sMesto
Cells(12, 4) = sVidRab
Cells(25, 11) = sNach
Cells(27, 11) = sKon
Else
MsgBox "Лист с таким именем уже существует!", 48, "Ошибка!"
End If
End If
Next счетчик

End Sub
[/vba]
[moder]Код следует оформлять тегами (кнопка #). Исправила на первый раз[/moder]
К сообщению приложен файл: ___.xlsm(61Kb)


Сообщение отредактировал Pelena - Среда, 27.04.2016, 15:27
 
Ответить
СообщениеДобрый день. В зависимости от того сколько строк отмечено в столбце необходимо создать такое же количество отчетов по шаблону на новых листах. У меня создается только 1 лист и далее цикл прерывается, подскажите пожалуйста в чем может быть проблема? файл во вложении, сам код макроса ниже:

[vba]
Код
Sub Macro1()
Dim счетчик As Integer, sData As String, sNom As String, sFIO As String, sMT As String, sGOSNomt As String, sPric As String, sMesto As String, sVidRab As String, sNach As Date, sKon As Date, NewSheet
For счетчик = 3 To 33 Step 1
If Cells(счетчик, 1) = "x" Then
Data = Cells(счетчик, 2)
sNom = Cells(счетчик, 3)
sFIO = Cells(счетчик, 4)
sMT = Cells(счетчик, 5)
sGOSNomt = Cells(счетчик, 6)
sPric = Cells(счетчик, 7)
sMesto = Cells(счетчик, 8)
sVidRab = Cells(счетчик, 9)
sNach = Cells(счетчик, 10)
sKon = Cells(счетчик, 11)
On Error Resume Next
Set NewSheet = Sheets(sFIO)
If NewSheet Is Nothing Then
Sheets("412-АПК").Copy Before:=Sheets(Sheets.Count)
Sheets("412-АПК (2)").Name = sNom
Cells(8, 3) = sData
Cells(3, 8) = sNom
Cells(5, 7) = sFIO
Cells(6, 12) = sMT
Cells(7, 12) = sGOSNomt
Cells(8, 12) = sPric
Cells(12, 3) = sMesto
Cells(12, 4) = sVidRab
Cells(25, 11) = sNach
Cells(27, 11) = sKon
Else
MsgBox "Лист с таким именем уже существует!", 48, "Ошибка!"
End If
End If
Next счетчик

End Sub
[/vba]
[moder]Код следует оформлять тегами (кнопка #). Исправила на первый раз[/moder]

Автор - Kamikadze_N
Дата добавления - 27.04.2016 в 15:11
китин Дата: Среда, 27.04.2016, 15:26 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4351
Репутация: 689 ±
Замечаний: 0% ±

Excel 2007;Excel 2010


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538


Сообщение отредактировал китин - Среда, 27.04.2016, 15:31
 
Ответить
Сообщениепомогают

Автор - китин
Дата добавления - 27.04.2016 в 15:26
Kamikadze_N Дата: Среда, 27.04.2016, 15:44 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 75
Репутация: 6 ±
Замечаний: 0% ±

Excel 2010
Решение найдено спасибо большое!
 
Ответить
СообщениеРешение найдено спасибо большое!

Автор - Kamikadze_N
Дата добавления - 27.04.2016 в 15:44
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Формирование нескольких отчетов (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!