Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

Вставка с транспонированием

Автор rusttemm, 29.07.2012, 18:21

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

rusttemm

Добрый день! Пожалуйста помогите "зациклить" последовательную вставку новых данных в таблицу. Макрорекордером записал код (Module3) вставки данных из листа "Label" на лист "Database". Не могу добиться вставки на следующую строку таблицы, происходит замена имеющейся строки. Код в Module1 работает, но выскакивает из таблицы.

kuklp

Sub Макрос2()
    Range("B3:B13").Copy
    Sheets("Database").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
End Sub

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

rusttemm

Спасибо за отклик KukIp!
Данные вставляются, но не в таблицу, а под нее!?

Можно посмотреть...

kuklp

Вы как и где сохраняете файлы? У меня не открываются, выдают ошибку см. скрин.
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

rusttemm

У меня Excel2010. Изначально файл был с расширением .xlsm. Чтобы вложить его к теме пришлось сохранить как .xls.  Я думаю проблема из-за этого.

Попробуйте скачать файл на webfile.ru, номер файла 6056487 (в webfile.ru номер вставить в поле "Файл номер", далее скачать его). Там он с расширением .xlsm.

kuklp

И кто не давал его в рар или зип закатать? Вместо этого я должен гасать по хостингам, чтоб Вам помочь. Душевно.
Sub Макрос2()
    With Worksheets("Database").ListObjects("Таблица2").ListRows.Add
    .Range = Application.Transpose(Sheets("Label").Range("B3:B13"))
    End With
End Sub

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

rusttemm

Спасибо, все работает!
Про .rar и .zip, извените, был не вкурсе!