Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

Как сделать макрос чтобы он копировал значения в любую ячейку которая выделена?

Автор santila, 13.06.2012, 19:24

« назад - далее »

santila

Помогите исправить макрос чтобы я мог скопировать данные из диапазона Q2,R2,S2,  в любую строку которую выберу в столбце D.
Sub ммм()
'
' ммм Макрос
'
' Сочетание клавиш: Ctrl+ъ
'
    Range("D2").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    Range("Q2:S2").Select
    Selection.Copy
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("D2").Select
    ActiveSheet.Paste
    Range("H2").Select
End Sub

Шпец Докапыч

Возможно я слишком буквально понял задачу, но следует удалить дважды встречающуюся строку:
Range("D2").Select
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли

_Boroda_

Может, так:
Sub tt()
If Intersect(Selection, Range("D:D")) Is Nothing Or Selection.Rows.Count > 1 Then Exit Sub
r = Selection.Row
Range("D" & r).Resize(, 3) = Range("Q2:S2").Value
End Sub
Скажи мне, кудесник, любимец ба'гов...



Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995