Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

Подсобите с макросом

Автор Valior, 10.05.2011, 15:03

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

Valior

Есть 2-а документа Exel, один заполнен данными, второй пустой, необходимо из 1 файла(который заполнен) перенести инф-ию во 2-й файлa но во 2-м файле изменен порядок  названия столбцов.
К примеру
1 файл
Столбцы  id, номер телефон, имя, адрес
А во 2-м файле так:
Столбцы  адрес, имя, номер телефон, id

Информация должна попасть в верный столбец.
Названия столбцов идентичны в 1 и 2-м файле

Serge 007

Формулами не надо?
Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Ю-money: 41001419691823 | WMR:126292472390

Valior

Файлов этих много, нужно от варианта 1 перейти к варианту 2 с наименьшими затратами

Valior


   Windows("real-estate.apartments-sale.new1.xls").Activate
    Rows("1:1").Select
    Selection.Find(What:="Цена", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.EntireColumn.Select
    Selection.Copy
    Windows("real-estate.apartments-sale.new.xls").Activate
    Rows("1:1").Select
    Selection.Find(What:="Цена", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.Columns.Select
    Selection.PasteSpecial


А как бы автоматизировать процесс?