|
|
| Тема |
 Re: копиране на данни [re: novakut] |
|
| Автор |
f(x) () |
|
| Публикувано | 02.09.08 11:20 |
|
|
|
Ето едно малко макросче
Sub w()
Dim lastrow As Integer
lastrow = Sheets("данни").Range("A65536").End(xlUp).Row ' Благодарение на Буран от предишната тема няма да има цикъл до 65К , както бих направил без много да му мисля
Sheets("данни").Cells(lastrow + 1, 1) = Sheets("имена").Cells(12, 2)
Sheets("данни").Cells(lastrow + 1, 2) = Sheets("имена").Cells(14, 2)
Sheets("данни").Cells(lastrow + 1, 3) = Sheets("имена").Cells(16, 2)
Sheets("имена").Cells(12, 2) = Null
Sheets("имена").Cells(14, 2) = Null
Sheets("имена").Cells(16, 2) = Null
End Sub
Има малко за настроиване и създаване на бутонче. Можеш ли да се оправиш от тук на татък?
Редактирано от f(x) на 02.09.08 11:21.
| |
| |
| 
|
|
