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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 04.01.2008, 16:31   #1
Romuald
Форумчанин
 
Регистрация: 12.11.2007
Сообщений: 209
По умолчанию Сравнить колонки

Всем привет!
С Новым Годом!
У меня в Sheet2 в колонке A - код товара , а в колонке В -его название т.е. как "база данных"
В Sheet1 в колонку А пишу коды и макрос1 , в колонку В, из "базы"присуждает название
Пользуюсь макросом с формулой
Но не очень удобно все убирать лишнее после формул
Подскажите макрос без формулы.
Иногда надо наоборот- названию присудить код, тогда в Sheet1 в колонку А пишем название , а "макрос2" в Колонке В -присуждает код
Как сделать два макроса без формул?
Пользуюсь во каким (макрос1)

Sub Perenos()

Sheets("Sheet1").Activate
Cells(1, 2).Select
Application.ScreenUpdating = False


ActiveCell.FormulaR1C1 = "=VLOOKUP(TRIM(RC[-1])*1,Sheet2!C[-1]:C,2,0)"
Selection.AutoFill Destination:=Range("B1:B20000"), Type:=xlFillDefault
Range("B1:B20000").Select

Columns("B:B").Select
Selection.Copy
Range("E1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("B:B").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Columns("D:D").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Columns("D:D").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("G7").Select
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
End Sub
Romuald вне форума
Старый 04.01.2008, 19:06   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Посмотрите вложенный файл.
Макрос "Persons1" запускать, если есть код товара в столбце "A" листа "Sheet1".
Макрос "Persons2" запускать, если есть название в столбце "B" листа "Sheet1".
Лист "Sheet2", как я понял, содержит исходные данные (и код (столбец "A") и название (столбец "B")).
Вложения
Тип файла: rar Persons.rar (7.6 Кб, 43 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 07.01.2008, 12:39   #3
Romuald
Форумчанин
 
Регистрация: 12.11.2007
Сообщений: 209
По умолчанию

SAS888 !
Все классно!
Спасибо!
Romuald вне форума
Старый 16.01.2008, 10:42   #4
Romuald
Форумчанин
 
Регистрация: 12.11.2007
Сообщений: 209
По умолчанию

Добрый день !
Подскажите, пожалуйста, почему машина при отборе тормозит и примерно на 170-ой строке останавливается ?
Вложения
Тип файла: zip Perenos dannih SAS.zip (105.2 Кб, 16 просмотров)
Romuald вне форума
Старый 16.01.2008, 10:57   #5
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Не могу открыть вложенный файл.
Чем шире угол зрения, тем он тупее.

Последний раз редактировалось SAS888; 16.01.2008 в 11:02.
SAS888 вне форума
Старый 16.01.2008, 12:40   #6
Romuald
Форумчанин
 
Регистрация: 12.11.2007
Сообщений: 209
По умолчанию

Во посылаю еще раз
Вложения
Тип файла: zip Perenos dannih SAS.zip (105.2 Кб, 21 просмотров)
Romuald вне форума
Старый 16.01.2008, 12:45   #7
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Та же беда. При открытии файла выскакивает ошибка Excel. Затем восстанавливается файл, но без макросов.
Может лучше Вам вложить файл только с данными, а коды макросов отдельно текстом, так как причина возникновения ошибки не известна.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 16.01.2008, 12:46   #8
Pavel55
Форумчанин
 
Регистрация: 21.08.2007
Сообщений: 292
По умолчанию

Последний файл вообще Excel завалил и открывается уже с удалёнными макросами
Pavel55 вне форума
Старый 16.01.2008, 16:12   #9
Romuald
Форумчанин
 
Регистрация: 12.11.2007
Сообщений: 209
По умолчанию

Во данные
В Sheet-e 2 -это база данных
В Sheet-e 1 надо к SAP коду пришить кол-во
Вложения
Тип файла: zip Dannie dlja perenosa SAS888.zip (101.0 Кб, 26 просмотров)
Romuald вне форума
Старый 16.01.2008, 16:21   #10
Romuald
Форумчанин
 
Регистрация: 12.11.2007
Сообщений: 209
По умолчанию

А макрос написан чуть выше (отSAS888)
Romuald вне форума
Закрытая тема


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
DBGrid ширина колонки Pinya БД в Delphi 7 07.08.2008 09:22
Вывод звука на колонки KapeLLaN Общие вопросы C/C++ 3 18.02.2008 13:03
сравнить 2 строчки oLMeR Общие вопросы Delphi 3 02.11.2007 11:51
Колонки в richedit или memo 2face Компоненты Delphi 1 15.06.2007 15:08