автом. перенос прикрепл. файла форм PDF в Excel из л 1 в л 2

Старая форма входа

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

автом. перенос прикрепл. файла форм PDF в Excel из л 1 в л 2 (необходимо настроить автомат. перенос прикрепл. файла)

автом. перенос прикрепл. файла форм PDF в Excel из л 1 в л 2

Ирина

Дата: Вторник, 23.10.2012, 22:44 | Сообщение № 1

Группа: Гости

Доброго времени суток! Необходима Ваша помощь. Имеется файл формата Excel, где с помощью макроса настроен автоматический перенос данных из одного листа в другой после проставления галочки (двойной щелчок ЛК в ячейке j)и далее нажатием кнопки. Но, есть проблема при переносе заявления Клиента в формате PDF, данное заявление хоть и переносится во 2-ой лист, но из первого не очищается. Буду очень признательна, если поможете настроить автоматический перенос PDF файла из листа 1 в лист 2 с последующим очищением в листе 1. Спасибо!!!!
Ссылка http://zalil.ru/33880588

Ответить

Serge_007

Дата: Вторник, 23.10.2012, 22:56 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (Ирина)

с последующим очищением в листе 1

Без примера могу только посоветовать добавить в конце кода:
[vba]

Code

Sheets("Лист1").Select
Cells.ClearContents

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Ирина

Дата: Вторник, 23.10.2012, 23:03 | Сообщение № 3

Группа: Гости

Попробовала, все данные из 1-ого листа у меня очищаются, но вложенный файл в формате Pdf по-прежнему хоть и переносится в лист 2, но из 1-ого не очищается...

Ответить

KuklP

Дата: Среда, 24.10.2012, 00:30 | Сообщение № 4

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

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

Сообщений: 2369

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

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

2003-2010

Во первых там 2 объекта один под одним.
[vba]

Code

Public Sub www()
      Dim i&, l&
      l = [c1048576].End(xlUp).Row
      For i = 3 To l
          If Cells(i, 10) = "a" Then Cells(i, 3).Resize(, 7).Copy _
             Sheets(2).[c1048576].End(xlUp)(2): Cells(i, 10) = "": _
             Cells(i, 3).Resize(, 7).ClearContents
          For Each d In Me.DrawingObjects
              If d.TopLeftCell.Address = Cells(i, 8).Address Then d.Delete
          Next
      Next
End Sub

[/vba]
Обратите внимание на размер вложения.

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

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

Сообщение отредактировал KuklP - Среда, 24.10.2012, 00:42

Ответить

Ирина

Дата: Среда, 24.10.2012, 07:44 | Сообщение № 5

Группа: Гости

Спасибо!!!!!!!!!!!!!! ВЫ мне очень помогли!!!!!!!!!!!!

Ответить

автом. перенос прикрепл. файла форм PDF в Excel из л 1 в л 2 (необходимо настроить автомат. перенос прикрепл. файла)

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