Как можно сделать, чтобы в Excel в одну строку вводились данные (постоянно меняются), а на другом листе выводились эти данные, но когда я меняю на первом листе, чтобы старые данные сохранялись на втором листе, а новые просто дополнялись?

например у меня на листе 1 в ячейка А1: некст (названия лекарств).
лист 2 в ячейке А1: некст
Потом я меняю лекарство получется лист 1 в ячейке А1: ношпа
Лист 2 ячейка А1: некст
Лист 2 ячейка А2: ношпа.

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

Нужен макрос который:
1. скопирует с активного листа (рабочей книги) данные (диапазон A1:GT1004)
2. откроет другую книгу (она уже существует) из той-же папки что и активная.. код типа —

With Workbooks.Open(ThisWorkbook.Path & "\" & "CHECK BASE.xlsm"

3. создаст там (в CHECK BASE.xlsm) новый лист (с любым названием типа Лист1 — название будет потом все равно переименовано вручную)
4. вставит скопированное в этот новый лист в ячейку С5
5. сохранит и закроет книгу (CHECK BASE.xlsm) … ну и — End Sub

Но ОЧЕНЬ ВАЖНО чтоб данные были 1 в 1 с оригиналом (шрифт, окраска, ширина столбцов и тд включая условное форматирование)
НО вместо формул только их ЗНАЧЕНИЕ!
(читать всё…)

В каждой ячейке написали , например, Фото1, но под этим словом скрываются гиперссылки, которые нужно изменять в обычном текстовом формате ссылки http//…. , иначе говоря надо удалить лишнее из каждой =ГИПЕРССЫЛКА(«http://www.paremo.ru/upload/images/goods/2108a7fb-d910-11e4-0693-5404a6b1dcb9_11.jpg»; «Фото 11″….12,13 и оставить http://www.paremo.ru/upload/images/g…6b1dcb9_11.jpg, чтобы в ячейках были написаны обычные ссылки. В ручную можно, конечно, удалять лишнее по каждой ячейке, но их таких 1500 и у всех разные ссылки.

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

Хочу, чтобы Excel проговаривал, что написано в ячейке. Для этого из вложения надо скопировать Govorilka_cp.exe на диск C , прописать в Пуск-Выполнить C:\Govorilka_cp.exe -e24 -c и тогда Govorilka_cp проговорит, то что в буфере обмена. Скажите пожалуйста, каким кодом сделать тоже самое из Excel? Сам я мало чего понимаю. Привожу не рабочий

Private Declare Function ShellExecute Lib "shell32" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lpOperation As String, ByVal lpFile As String, _
     ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
   Private Const SW_SHOWNORMAL = 1
  Sub Open_File(F_Name) 'Запуск файлов
 ShellExecute 0, vbNullString, F_Name, vbNullString, vbNullString, SW_SHOWNORMAL
    End Sub

Private Sub CommandButton1_Click()
'Копировать_в_Буфер
    Range("A1").Copy
    
'Проговорить текст из буфера
Open_File "C:\Govorilka_cp.exe -e24 -c" ' Не срабатывает
Open_File "C:\Govorilka_cp.exe"

End Sub

  Вложения

говорящий Excel и Govorilka_cp.rar (182.2 Кб, 30 просмотров)

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

Необходимо, чтобы, при отправке отчета, в получателях оказывались все адреса из поля «Фамилия» запроса/отчета.
Запрос, по которому, формируется отчет, с параметрами. Соответственно появляется ошибка: «Отсутствует значение одного или нескольких параметров».

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

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

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

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

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

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

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

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

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

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

Нужно чтобы при нажатии на кнопку в связанную с формой таблицу добавилась запись. Запись из 3-х частей (в таблице 3 столбца), каждая из который вводится из поля для ввода текста.

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

На листе книги (excel 2003) есть кнопка с макросом, код которого приведен ниже (vba excel 2003). После щелчка по кнопке происходит копирование файла «форма.exe» с сервера во временную папку, после чего файл «форма.exe» запускается из этой временной папки.
Подскажите пожалуйста код (vba excel 2003), чтобы при закрытии книги, файл «форма.exe» из временной папки удалялся, если процесс «форма.exe» не выполняется (дело в том что у меня сейчас можно закрыть книгу, но приложение «форма.exe» может выполняться, т.е. еще не закрыто пользователем).

Sub Копировать(Optional x As Boolean)

Dim sFileName As String, sNewFileName As String
sFileName = "\\server\форма.exe"
sNewFileName = Environ("temp") & "\" & "форма.exe"
FileCopy sFileName, sNewFileName

Dim MyPath
MyPath = Shell(Environ("temp") & "\" & "форма.exe " & ThisWorkbook.FullName, 1)

End Sub

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