Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 25.09.2013, 11:30   #21
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

а где тут метод pastespecial, который вызвал ошибку, в этом коде
Сцепка.Range(Cells(y + Zy, x + Zx).Address, Cells(y1 + Zy, x1 + Zx).Address).Copy
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума
Старый 25.09.2013, 11:56   #22
SaLoKiN
Форумчанин
 
Аватар для SaLoKiN
 
Регистрация: 19.09.2013
Сообщений: 597
По умолчанию

сори, затупил
Код:
 Сцепка.Range(Cells(y + Zy, x + Zx).Address, Cells(y1 + Zy, x1 + Zx).Address).Copy
    НТК.Range(Cells(y, x1).Address).PasteSpecial Paste:=xlPasteValues
вот
Сделал сам, помоги другому!
Что-то работает не так? Дебаггер в помощь!!!

Последний раз редактировалось SaLoKiN; 25.09.2013 в 11:59.
SaLoKiN вне форума
Старый 25.09.2013, 12:03   #23
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Нужно явно указывать чьи cells - у Вас не указано.
Т.е.
Код:
    With Сцепка
        .Range(.Cells(y + Zy, x + Zx).Address, .Cells(y1 + Zy, x1 + Zx).Address).Copy
    End With
    With НТК
        .Range(.Cells(y, x1).Address).PasteSpecial Paste:=xlPasteValues
    End With
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума
Старый 25.09.2013, 12:12   #24
DiemonStar
Старожил
 
Регистрация: 08.02.2012
Сообщений: 2,173
По умолчанию

Я вот одного не пойму - зачем такие заморочки с диапазоном. Не проще сделать что-то типа:

Код:
Сцепка.Range(Selection.Offset(Zy,Zx).AddressLocal).Copy
Цитата:
Нужно явно указывать чьи cells - у Вас не указано.
Там если поправить Address на AddressLocal, то должно помочь.
Правильно поставленная задача - три четверти решения.

Последний раз редактировалось DiemonStar; 25.09.2013 в 12:16.
DiemonStar вне форума
Старый 25.09.2013, 12:15   #25
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Если Selection на листе например "Расцепка", то в этом случае
Код:
Сцепка.Range(Selection.Offset(Zy,Zx).AddressLocal).Copy
ошибки не даст, а результат будет ли тот что хотелось?
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума
Старый 25.09.2013, 12:23   #26
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Да, в общем если использовать адрес, то он на всех листах одной книги одинаков.
Но если эта сцепка в другой книге - то там в теории может такого адреса и не быть...
Короче, нужно по месту отслеживать что делается, что не нравится.
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума
Старый 25.09.2013, 12:32   #27
SaLoKiN
Форумчанин
 
Аватар для SaLoKiN
 
Регистрация: 19.09.2013
Сообщений: 597
По умолчанию

Все вышеперечисленные методы только что попробовал, но дебагер не возмутим! =) тыц на ячейку где есть значение, удаляешь его, жмешь макрос- привет дебагер! тут же смотришь жмешь end, опять макрос и привет значение!


для вложения: Лист НТК 1, макрос "Очередь"

Нужно отказываться от pastespecial... каким образом можно скопировать значения(зная адреса ячеек), причем чтобы можно было скопировать одно значение или диапазон.
Код:
   With НТК
.Range(.Cells(y, x1).Address).Value = Сцепка.Range(Selection.Offset(Zy, Zx).AddressLocal).Value
  End With
работает для одной ячейки, но не для диапазона.( жесть наверно написал)
Вложения
Тип файла: zip Играем реестр.zip (65.5 Кб, 7 просмотров)
Сделал сам, помоги другому!
Что-то работает не так? Дебаггер в помощь!!!

Последний раз редактировалось SaLoKiN; 25.09.2013 в 12:39.
SaLoKiN вне форума
Старый 25.09.2013, 12:36   #28
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

На 2003 работает. Только сортировку отключил - нет тут таких сортировок...
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума
Старый 25.09.2013, 12:46   #29
SaLoKiN
Форумчанин
 
Аватар для SaLoKiN
 
Регистрация: 19.09.2013
Сообщений: 597
По умолчанию

Цитата:
Сообщение от Hugo121 Посмотреть сообщение
На 2003 работает. Только сортировку отключил - нет тут таких сортировок...
Отключил у себя сортировку, вылеты пропали. странно.
получается что в момент копирования значений сортировка еще не выполнилась?
Сделал сам, помоги другому!
Что-то работает не так? Дебаггер в помощь!!!
SaLoKiN вне форума
Старый 25.09.2013, 12:59   #30
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Попробуйте тут поставить точку, как в примере:
Код:
.SetRange .Range("A2:C85")
Да и вообще выше по всей сортировке аналогично нужно указать лист.
Без проверки:
Код:
    With ActiveWorkbook.Worksheets("Сцепка")
        .sort.SortFields.Clear
        .sort.SortFields.Add Key:=.Range("B2:B85") _
                                  , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .sort.SortFields.Add Key:=.Range("C2:C85") _
                                  , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        With .sort
            .SetRange ActiveWorkbook.Worksheets("Сцепка").Range("A2:C85")
            .Header = xlNo
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
webmoney: E265281470651 Z422237915069 R418926282008

Последний раз редактировалось Hugo121; 25.09.2013 в 13:02.
Hugo121 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Qt] Вылет при изменении параметров QTableWidgetItem WarAngel-alk Qt и кроссплатформенное программирование С/С++ 4 31.01.2013 17:58
вылет программы при выводе простого числа (cout) Ciberal Общие вопросы C/C++ 7 27.09.2011 01:51
Вылет программы после завершение kloffelin Общие вопросы C/C++ 3 17.04.2010 20:18
Ошибка при использовании copyfile The Best Общие вопросы Delphi 20 22.07.2009 13:26
Проблемка при использовании регрессии 500_pinguins Microsoft Office Excel 0 16.06.2009 08:17