Страницы: 1
RSS
VBA Скопировать диапазон из текущей строки на другой лист
 
Добрый день.

Подскажите пожалуйста как скопировать диапазон ячеек расположенных не подряд в текущей строке и перенести их на следующий лист в последнюю пустую строку в те же места.
Честно искал по инету, но всю голову сломал.
В прикрепленном файле на листе1 в строке надо выделить яччейки с С по F, I и L
и скопировать на второй лист в теже места на последнюю свободную строку.
 
....
 
k61, Спасибо вам огромное!!!
 
k61, еще маленький вопрос, а как сделать чтобы переносились только значения, без оформления?
 
k61, Прощу прощения, все так и работает как надо! Спасибо еще раз большое.
 
Массивом и Циклом:
Код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Base 1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = Columns.Count Then
Dim sss
sss = Array(3, 4, 5, 6, 9, 12) 'номера столбов
With Sheets(2)
r = .Cells(Rows.Count, 3).End(xlUp).Row + 1
For i = 1 To UBound(sss)
.Cells(r, sss(i)) = Cells(Target.Row, sss(i))
Next i
.Select
End With
Beep
End If
End Sub
 
k61, то что надо! Спасибо!
 
Спасибами сыт не будешь. С вас за два макроса два анекдота сюда:
http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=5&TID=45650&PAGEN_1=4
:)
 
k61, Ок! :)
Страницы: 1
Читают тему
Loading...