Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.07.2009, 23:30   #1
london735
Пользователь
 
Регистрация: 20.06.2008
Сообщений: 45
По умолчанию Combining Two Tables

Hello!
I wander if there is a way to combine two tables which have numbered records so that the resultant table has these records in the proper order? I have attached the worksheet with two tables.
Thank you very much for your time!)
Dima
Вложения
Тип файла: zip COMBINER.zip (5.6 Кб, 11 просмотров)
london735 вне форума Ответить с цитированием
Старый 06.07.2009, 08:08   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

See embedding. Start macro "Main". Is it correctly?
Вложения
Тип файла: rar COMBINER_2.rar (8.3 Кб, 24 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 06.07.2009, 21:33   #3
london735
Пользователь
 
Регистрация: 20.06.2008
Сообщений: 45
По умолчанию

thanks!!! works great!))))
london735 вне форума Ответить с цитированием
Старый 07.07.2009, 04:58   #4
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

I want to add. After line
Код:
Application.ScreenUpdating = False: Sheets("COMBINER").Activate
better insert line
Код:
Range([A2], Cells(Rows.Count, "M")).ClearContents
This excludes error under repeated starts of macro.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 10.07.2009, 13:58   #5
london735
Пользователь
 
Регистрация: 20.06.2008
Сообщений: 45
По умолчанию

thanks!)))
london735 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Footers(wdHeaderFooterPrimary).Range.Tables.Add АлёнаP Microsoft Office Word 11 30.03.2009 10:54