Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Копирование данных с одного листа на другой .copy Destination
 
#1
23.07.2015 16:44:21
Добрый день.
Может кто сталкивался с копированием данных и вставке их через гиперссылку.

есть такой вариант
Код
Dim LastActiveSheet As Worksheet, lastrow As Integer

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Set LastActiveSheet = ActiveSheet
lastrow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
With ActiveSheet
For i = 2 To lastrow
    .Cells(i, 12).Copy
    .Cells(i, 13).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
LastActiveSheet.Activate
Next i
End With
End Sub
хотелось бы сделать это через .copy Destination, в качестве выхода брать адрес гиперссылки

Такой вариант не работает.
Код
    .Cells(i, 12).Copy Destination:=Hyperlinks(1).address
Буду рад предложениям.
 
 
 
#2
23.07.2015 17:23:08
более 90% подобных "проблем" исчезают при использовании справки.
Цитата
cokos92 написал: Такой вариант не работает
вот Вы из чистого любопытства - почитайте встроенную справку по объектам и методам.
и посмотрите - какого типа требуется параметр для параметра destination, и какого типа результат свойства address.
Изменено: ikki - 23.07.2015 17:24:43
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#3
23.07.2015 17:48:11
Цитата
К сожалению, ничего не удалось найти по запросу: addressПопробуйте сформулировать запрос иначе.
По запросу в справке =)

Самый главный вопрос , как мне получить адрес ячейки,а потом я его пропишу как range. на сколько я знаю, гиперссылка имеет вид - Лист!&адрес_ячейки. но окончание может быть разной длинны "ААА13" или "A5471", отделить =правсимвол() после "!" ?! или есть более простой и оптимальный способ?
 
 
 
#4
23.07.2015 17:54:41
Цитата
cokos92 написал: как мне получить адрес ячейки
откуда вы его хотите достать?
? извлечь из ячейки, в которой записана гиперссылка, адрес этой гиперссылки
p.s. кстати справка - F1 (и в окне xl и в окне VBEditor)
Изменено: JeyCi - 23.07.2015 17:57:11
чтобы не гадать на кофейной гуще, кто вам отвечает и после этого не совершать кучу ошибок - обратитесь к собеседнику на ВЫ - ответ на ваш вопрос получите - а остальное вас не касается (п.п.п. на форумах)
 
 
 
#5
23.07.2015 18:07:11
JeyCi,именно!

Пробовал функцию. результат - пустая ячейка.

PS
Справка вызвана нажатием F1.
Изменено: cokos92 - 23.07.2015 18:08:26
 
 
 
#6
23.07.2015 18:12:20
там по линку есть файл-пример использования той функции... - там работает...
файла-примера того, как вы пробовали, - нет... (в том контексте, который нужен вам)
Изменено: JeyCi - 23.07.2015 18:18:23
чтобы не гадать на кофейной гуще, кто вам отвечает и после этого не совершать кучу ошибок - обратитесь к собеседнику на ВЫ - ответ на ваш вопрос получите - а остальное вас не касается (п.п.п. на форумах)
 
 
 
#7
23.07.2015 18:21:29
Ikki дал четко понять , что там такого примера и не должно быть.
Альтернатив нет?
 
 
 
#8
23.07.2015 18:40:43
Что-то типа такого?
Код
With Sheets("Лист1")
      .Range("B2").Copy Destination:=Range(.Range("A1").Hyperlinks(1).SubAddress)
End With
НО!
SubAddress должен быть строкой, которую Range правильно воспримет
Согласие есть продукт при полном непротивлении сторон
 
 
 
#9
23.07.2015 18:53:57
Sanja, именно! отлично все работает. Буду учить синтаксис.

Всем спасибо.
 
 
 
Страницы: 1
Читают тему
Наверх