Перенос информации в правильном порядке

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос информации в правильном порядке (Макросы/Sub)

buskopan

Дата: Пятница, 22.08.2014, 12:10 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 29

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Доброго времени суток.

Записал небольшой макрос. Но как сделать чтобы он переносил все правильно, пока разобраться не могу.

Нужно чтобы переносилось в правильном порядке и не нарушалась нумерация карточек.
Сейчас макрос выглядит так.

[vba]

Код

Sub CopyToDL()
     Application.ScreenUpdating = False

' CopyToFile Макрос

' выбираем то что нужно скопировать

     Range("B6:o6").Select
     Selection.Copy

'Переходим на страницу куда надо вставлять данные

     Sheets("DL").Select
     row_number = 1
     Do
     DoEvents
     row_number = row_number + 1

'находим куда вставлять скпированное

     inr = Range("B" & row_number)
     Loop Until inr = ""
     Range("B" & row_number).Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False

    Sheets("P Form").Activate
     ActiveWorkbook.Save

End Sub

[/vba]