Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Вставка таблицы в ворд, При попытке вставить таблицу из эксель в ворд VBA выдает ошибку 5941
 
Спасибо, сам разобрался, метод паузы работает)))
Вставка таблицы в ворд, При попытке вставить таблицу из эксель в ворд VBA выдает ошибку 5941
 
Добрый день! Есть 2 файла ворд и эксель, эксель - является формой в которой заполняются исходные данные, ворд является шаблоном куда эти данные экспортируются.  при вставке таблицы в ворд, VBA выдает ошибку "Ошибка при выполнении '5941': Запрашиваемый номер семейства не существует". Подскажите пожалуйста в связи с чем это связано? файлы с примером прикладываю

Это код в котором происходит ошибка (в строке   wd.Bookmarks("Табл" & i).Range.Paste)
Код
Private Sub CommandButton5_Click()
  Dim i As Integer
  i = 1
    Sheets("Табл" & i).Select
  Dim lLastRow As Long
Dim lLastCol As Long
iLastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
iLastClm = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
    Dim iRow As Integer
    iRow = 1
    Range(Cells(1, 1), Cells(iLastRow, iLastClm)).Copy
  'Range(Cells(1, 1), Cells(l, m)).Copy
   Set wa = GetObject(, "Word.Application") 'Ищем уже открытый Word
   If Err.Number <> 0 Then 'Если не нашли - создаём новый экземпляр
      Err.Clear
      Set wa = CreateObject("Word.Application")
   End If
   'Set wd = wa.Documents.Open(UserForm1.TextBox1.Text) для работы с формой
   Set wd = wa.Documents.Open("G:\СибНИИНП\Шабаш\07+\03 Форма Сосуды\151024\ШАБЛОН_011.docx")
    wd.Tables(1 + i).Delete 
  wd.Bookmarks("Табл" & i).Range.Paste
  Application.ScreenUpdating = True
End Sub
Изменено: syt89 - 15.11.2015 16:42:36
копирование (или удаление) данных исключая защищенные ячейки
 
Добрый день! Так как вопрос остался без ответа, обращаюсь еще раз за помощью разобраться с проблемой. Если вопрос сформулирован не конкретно  или не хватает исходных данных прошу написать.
С уважением, syt89
копирование (или удаление) данных исключая защищенные ячейки
 
День добрый! Разобравшись в вышеуказанном макросе я понял, что с помощью него можно скопировать диапазон с одного листа и вставить в точно такой же диапазон другого листа, подскажите пожалуйста, как сделать возможным чтобы скопированные ячейки диапазона rCopyRanger вставлялись непосредственно в диапазон для вставки PasteRange. на примере это выглядило бы так запустив макрос копируемый диапазон указать $B$12:$BR$13 на листе "форма" и а диапазон для вставки  $B$14:$BR$15 на этом же листе
копирование (или удаление) данных исключая защищенные ячейки
 
Уважаемые специалисты подскажите пожалуйста возможно ли с каким либо способом (вероятно макросом) в приложенном примере сделать следующее:
1) выделить диапазон который содержит защищенные и незащищенные ячейки и удалить значения только из не защищенных
2) выделить диапазон который содержит защищенные и незащищенные ячейки скопировать его и вставить на 10 строк ниже
копирование (или удаление) данных исключая защищенные ячейки
 
Добрый день! Да действительно в спешке забыл поставить защиту листа выкладываю пример с установленной защитой листа. Посмотрите пожалуйста
копирование (или удаление) данных исключая защищенные ячейки
 
Никто не может помочь или вопрос поставлен  не верно?
копирование (или удаление) данных исключая защищенные ячейки
 
Добрый день! тема уже обсуждалась на форуме в ней был предложен следующий макрос для ее решения:

Sub Copy_Only_FreeCells()
Dim rCopyRange As Range, rPasteRange As Range, rCell As Range
On Error Resume Next: Application.DisplayAlerts = False
Set rCopyRange = Application.InputBox("Выберите диапзаон для копирования", "Выбор данных", Type:= 8)
If rCopyRange Is Nothing Then MsgBox "Не выбран диапазон", vbCritical, "Ошибка": Exit Sub
Set rPasteRange = Application.InputBox("Выберите диапзаон для вставки", "Выбор данных", Type:= 8)
If rPasteRange Is Nothing Then MsgBox "Не выбран диапазон", vbCritical, "Ошибка": Exit Sub
On Error GoTo 0: Application.DisplayAlerts = True

rCopyRange.Parent.Activate
For Each rCell In rCopyRange
If rCell.Locked = False Then rCell.Copy rPasteRange.Parent.Range(rCell.Address)
Next rCell

End Sub

Применив на своем примере результата не получил. Подскажите пожалуйста в чем ошибка или как его можно модернизовать для моего примера. Версия Excel - 2010
ссылка на тему ранее обсуждавшуюся http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=13499
Изменено: syt89 - 11.04.2013 07:12:04
Таблица уникальных значений
 
Благодарю за ответы, вот состряпал своими силами
Таблица уникальных значений
 
Доброго времени суток! Помогите пожалуйста сделать таблицу в которой будут собираться уникальные значения из нескольких столбцов а потом по этим значениям суммироваться кол-во. Пример прикладываю. Версия программы Excel 2010
Страницы: 1
Наверх