Проблема копирования из таб. в шаблон

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Проблема копирования из таб. в шаблон (Макросы Sub)

Дата: Среда, 18.12.2013, 23:30 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Вечер добрый товарищи. Суть проблемы такова: есть таблица с данными, данные отмеченные "+", копируются в шаблон для дальнейшей печати. Если шаблон заполнен, то он копируется с данными и вставляется ниже, а первый очищается. Но когда шаблон дублируется и вставляется в низ, то не копируется информация из таблицы(в количестве 2х строк). Помогите избавиться от этого недуга, да и если можно (вдруг решите написать все правильно) то пояснения оставьте пожалуйста.

К сообщению приложен файл: testForVBA.xlsm (50.4 Kb)

Сообщение отредактировал Gp - Среда, 18.12.2013, 23:31

Ответить

Wasilich

Дата: Четверг, 19.12.2013, 13:14 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Цитата Gp, 18.12.2013 в 23:30, в сообщении № 1

Если шаблон заполнен, то он копируется с данными и вставляется ниже, а первый очищается.

Не понятен смысл таких действий. Опишите что конкретно надо. А разбираться в Ваших кодах, чтобы понять смысл задачи, никто не будет.

Сообщение отредактировал Wasilic - Четверг, 19.12.2013, 13:15

Ответить

Дата: Понедельник, 23.12.2013, 22:26 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Если в таблице данных строки отмечены "+", тогда они копируются в шаблон. но так как шаблон состоит из двух листов, то если он заполняется нужно автоматом добавлять следующий (на том же листе, только ниже). Как-то так должно работать в теории.

К сообщению приложен файл: 6277552.xlsx (19.2 Kb)

Сообщение отредактировал Gp - Понедельник, 23.12.2013, 22:35

Ответить

KuklP

Дата: Понедельник, 23.12.2013, 22:31 | Сообщение № 4

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Не прошло и недели... hands

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

Wasilich

Дата: Среда, 25.12.2013, 23:25 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Так пойдет?
[vba]

Код

Sub В_ТН()
   Dim r, i
   r = 18
   Sheets("Шаблон").Range("C18:H30").ClearContents
   Sheets("Шаблон").Range("C35:H53").ClearContents
   For i = 2 To Range("F" & Rows.Count).End(xlUp).Row
      If Cells(i, 6) = "+" Then
         With Sheets("Шаблон")
            .Cells(r, 3) = Cells(i, 1)
            .Cells(r, 4) = Cells(i, 2)
            .Cells(r, 6) = Cells(i, 3)
            .Cells(r, 7) = Cells(i, 4)
            .Cells(r, 8) = Cells(i, 5)
         End With
         r = r + 1
         If r = 31 Then r = 35
         If r = 54 Then MsgBox "Больше не влазит!": Exit Sub
      End If
   Next
End Sub

[/vba]

Ответить

Проблема копирования из таб. в шаблон (Макросы Sub)

Страница 1 из 1
1