Как быстро сравнить 2 диапазона данных на НЕСОВПАДЕНИЯ?

Всего в обработке события должно участвовать 4 столбца. 2 на странице с данными и 2 на странице библиотекой.

Если данные по ключу NUMBER на вкладке DATA отличаются во вкладке CHECK, то вывести msgbox с перечисленными полями NUMBER где есть расхождения, если данные идентичны, то вывести msgbox OK.

Формулой через ВПР это легко реализуется, но очень хочется разобраться как сделать это одним кликом. Причем столбцы могут содержать пробелы…

(читать всё…)

Часто сталкиваюсь с тем, что некоторые макросы — не выполняются на 64-x разрядных системах.
Подскажите универсальную строчку кода, которая бы позволила запускаться макросу на 64-х разрядных системах ?

(читать всё…)

Есть файл, в нем много листов, и есть один итоговый куда тянется информация со всех этих листов. Я понял как сделать команду для каждого листа, но листов очень много и писать для каждого — нереально, как можно сделать цикл в данной ситуации?

(читать всё…)

Есть файлы тхт — много… у всех название в виде кода 28004, 77005 и тп.
Внутри каждого файла 2 колонки с цифрами разделенные пробелом:
11968 2
77077 5
1258974 6
и т.д.
Как бы так сделать чтобы все эти файлы можно было импортировать в Excel и получить таблицу вида:
«название файла» 28004 (1 ячейка)/ 11968 (2 ячейка)/ 2 (3 ячейка)
и так далее «название файла»./……./……

(читать всё…)

Есть несколько листов. В ячейку C2 каждого листа вставлена цифра.
Как отсортировать листы — по значениям в этих ячейках?
Сперва идут ярлычки листов со значениями в ячейках C2 — равными «1».
За ними идут ярлычки листов со значениями в ячейках C2 — равными «2» и т.д.

(читать всё…)

Есть БД, в которой имеются повторяющиеся значения.
Необходимо выбрать уникальные, но при этом с выбором уникальных значений в новую БД должны поместится в одну ячейку, объединенные данные по всем повторяющимся значениям, привязанные к нашим уникальным….

(читать всё…)

Подскажите, пожалуйста, как оптимизировать макрос? Записей в таблице много, работает очень медленно.

Sub Макрос1()
Dim W1 As Workbook
Set W1 = Application.Workbooks("11.xlsm")
    Dim i, j, iLastrow As Long, iLastcol As Long

W1.Activate
With W1.Sheets(1)
  iLastrow = .Cells(Rows.Count, 1).End(xlUp).Row
 iLastcol = Cells(2, Columns.Count).End(xlToLeft).Column
For i = 2 To iLastrow
For j = 7 To iLastcol Step 3
   Cells(i, j).FormulaR1C1 = "=RC[-1]-RC[-2]"
 Next
Next
End With
End Sub

(читать всё…)

В ячейке экселевского листа через DDE транслируются котировки. Дальше я перевожу их в проценты и мне нужно, чтобы, когда этот процент будет выше определенного значения, эксель инициировал бы звуковой сигнал. Скажем, если прибыль/убыток выше 5% от общей суммы счета, звучит сигнал. При этом желательно, чтобы этот звук воспроизводился бы виндой, то бишь без запуска медиа-плейера, и чтобы звуковой файл можно было бы менять (или повторять несколько раз, но это наверное сложнее, проще просто подставить отредактированный файл).

(читать всё…)

Как произвести копирование нескольких ячеек (наименование, кофицент, количество) из листа «Temp» на лист «Смета» только если значение ячейки «Temp».C#(наименование) найдено на листе «Прайс-лист».A:A (наименование)

Интересует пример макросом VBA, впр и индекс\поискпоз — не подходят…

• Temp — Лист с временными данными.
• Смета — лист где должны проводится расчеты
• Прайс лист — База номенклатуры по которой будет проводится расчет.

(читать всё…)

Есть задание, в котором нужно дублировать элементы отличные от какой-либо цифры, к примеру строка — «ds2k17d9», цифра будет к примеру 7, все символы, кроме 7 должны быть дублированы.

(читать всё…)