макрос копирования из Лист1!A1 в Лист2!В5

[ICEM@n]

Всем привет
По возможности помогите с вопросом. Как написать макрос для Excel'я? Чтобы по нажатию кнопки, данные из строки =Лист1!Ax:Dx копировались в строку Лист2!A1:D1, где x- задаётся номером выделенной на данный момент строки либо прописывается в ячейке 

[Falsehood]

Вид >> Панели инструментов >> Элементы управления
с этой панели встявить на лист кнопку.

потом записать перечисленные тобой действия в макрос, в редакторе VBA этот макрос подкорректировать, если потребуется, и вставить получившийся код в функцию CommandButton1_Click()

[ICEM@n]

Примерно разобрался ....

Sub X()
    Range("D9").Select
    Selection.copy
    Range("D10").Select
    ActiveSheet.Paste
End Sub

только вот надо чтобы номер строки которая будет копироваться ... задавался в ячейке ... или был постоянно из активной ячейки
*сижу в думках ... как тут константа задаёцца* 

[ICEM@n]

Falsehood,
спасибо ... именно так и разбирался, но незнаю как вместо Range("D9").Select, а именно вместо D9 задать число в ячейке, который буду вбивать ручками в ячейку

[ICEM@n]

тоесть вмето D9 должно быть D(x), где х - число из ячейки допустим A1    

[Sla]

Код:

Sub AAAA()
    Sheets("Лист1").Select
    Range("A1").Select
    Selection.Copy
    dest = Worksheets("Лист1").Range("B1").Value
    Sheets("Лист2").Select
    Range(dest).Select
    ActiveSheet.Paste
End Sub

дальше думай сам

[ICEM@n]

Sla, ок спасибо ... буду думать 

[RomCom]

Код:

Sub X()
    Range("D" & Range("A1").Text).Select
    Selection.copy
    Range("D10").Select
    ActiveSheet.Paste
End Sub

[ICEM@n]

RomCom,
спасибо ... помогло. 

_{а форум то ... живой}  

[ICEM@n]

а вот еще грабельки возникли ....
при копировании ... вставляются не только данные ... но и рамки от таблицы в которой были данные ... это не есть хорошо
Можно ли этого как-то избежать ? (полюбому ж можно  )

[Falsehood]

то ли у copy, то ли у paste есть опция, переносить форматирование, или нет...

[ICEM@n]

Falsehood, понимаю что должны быть ... только вот пока не нарыл нигде 

[Sla]

сделай следующее
запись макрос
копируешь ячейку
специальная вставка (значения)
останавливаешь запись
смотришь что получилось

а нам расскажешь
должно полчиться типа

Код:

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

[ICEM@n]

Sla, Falsehood, всем респект и уважуха 
всё получилось ....

если кому понадобится вот часть кода макроса (такая весч может понадобиться для формирования личной карточки струдника из базы) :

Код:

Sub copy()

Range("A" & Range("A1").Text).Select
Selection.copy
Range("B17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

[_serj_]

Неужели все так должно быть сложно. Почему я могу скопировать ячейку Cells(1, 1).Value = Cells(1, 2).Value, а к другому листу обратиться не могу.
Примерно так: WorkSheets(1).Cells(1, 1).Value = WorkSheets(2).Cells(1, 1).Value

[Sla]

Неужели все так должно быть сложно. Почему я могу скопировать ячейку Cells(1, 1).Value = Cells(1, 2).Value, а к другому листу обратиться не могу.
Примерно так: WorkSheets(1).Cells(1, 1).Value = WorkSheets(2).Cells(1, 1).Value

а ты уверен? а ты проверил?
специально сел и проверил - работает