Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 След.
Фильтрация лишние пустые значения
 
Доброго времени суток! При фильтрации выбираю значение, в итоге фильтрация выводит выбранные следующие результаты как на скринщоте
Вытаскивать адрес с динамического текста
 
Добрый вечер. Подскажите пожалуйста как можно вытаскивать адрес(включая индекс) с ячейки в которой находится текст в данной структуре:
зарегистрирована по адресу Тюменская обл, г.Тюмень, ул.Николая Зелинского, д.24/5, 625016. ГЕНЕРАЛЬНЫЙ ДИРЕКТОР организации ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ "БИЗНЕС-АУДИТ" Арбузова Анастасия Николаевна. Основным видом деятельности компании является Аудиторская деятельность. Также Бизнес-Аудит, ООО работает еще по 5 направлениям. Размер уставного капитала 10 000 руб.
То есть данные могут меняться, но структура будет одна и та же! Заранее благодарю за советы и подсказки
Загрузка данных через интернет по ИНН
 
Добрый вечер друзья! Подскажите пожалуйста как можно реализовать загрузку данных через интернет  (ФИО директора, Юр. Адрес) по инн? Пробовал через веб запрос получить страницу Сбиса, что то не получается. Вместо страницу получаю строку с инн и все. Пожалуйста подскажите как можно выйти из ситуации!?
Калькулятор для вычисления числа процентов, которые составляет первое число от второго
 
Помогите пожалуйста реализовать этот калькулятор в экселе!
http://ru.onlinemschool.com/math/assistance/percent/percent4/

Заранее благодарен!
Изменено: bulgakov - 20.05.2016 09:26:30
при фильтрации скрывается строка
 
Здравствуйте! При фильтрации строчка сворачивается, а если без фильтра смотреть на таблицу то все нормально! Ексель 2013. В чем может быть проблема?
Фаил примера не могу выложить так как файл содержит конфедициальную информацию!
Найти номер строки на другом листе, WorksheetFunction.Match. Ошибка
 
Помогите найти ошибку, что не так?)))
Код
WorksheetFunction.Match("xxx", Worksheets("Рейсы").Range("f:f"), 0)
Сформировать список по оплате
 
Добрый вечер! Крайне важно встал вопрос по формированию списка оплаты от клиента. На листе журнал указан контрагент дата 1 го , 2го, 3го  платежа. Сумма1 = дата 1, и тд. Как мне разбить даты платежей по строкам и добавить в конец списка на лист "сводка", и все это сделать макросами! Помогите пожалуйста!!! Прикладываю пример. Заранее благодарю!
Установить значение для фильтра
 
Добрый день! Подскажите как макросом установить значение фильтра, в моем случае мне надо выделить текущий месяц
xlFilterValues, Criteria2:=Array(что тут писать?)
Изменено: bulgakov - 29.04.2016 11:16:47
Замена картинки, без изменения имени объекта
 
Доброго времени суток! Подскажите пожалуйста! На листе есть рисунок и время от времени приходится его заменять. Вместе с заменой рисунка происходит замена имени объекта, в последствии этого происходит ошибка в коде из за несуществующего объекта. Как можно заменять рисунок без изменения имени объекта? Заранее спасибо за дельные советы и подсказки.
Пропустить шаг в цикле
 
Товарищи подскажите пожалуйста как можно перейти к следующими шагу, за место exit sub
Код
For i = 94 To Cells(Rows.Count, 1).End(xlUp).Row
If Worksheets("лист1").Range("e" & i) = "N\A" Then
MsgBox "Заполните данные!", vbCritical
exit sub   
End If
Next i
Комбокс откуда берет значения?
 
Добрый день! Подскажите где в данном случае прописан диапазон данных для комбобокса? все перерыл так и не нашел...
Разместить на хостинге sql базу и с нее получать данные на лист
 
Добрый вечер! Суть вопроса разместил в теме, подскажите пожалуйста что можно почитать по этой тематике желательно статью с исходниками. Заранее благодарен!
Скопировать строку по условию, Макросом
 
Добрый вечер форумчане! Подскажите пожалуйста как скопировать все строки с Листа 1 которые содержат в ячейках "С" значение "n\a" на Лист 2  в конец таблицы. Пример прикладываю заранее большое спасибо за помощь и ваши подсказки!  
Экспорт/Импорт в текстовый фаил
 
Всем привет. Пожалуйста подскажите как можно макросами осуществить экспорт и импорт в блокнот, строки А1
Запретить удаление строки!
 
Доброго времени суток! Подскажите пожалуйста как можно запретить удаления строки на определенном листе?
Сравнить даты формулой
 
Друзья, подскажите как сравнить две даты формулой? Побывал использовать =если(а1 =b2;"ok";"no") не помогает
Отслеть «» и заменить ""
 
Уважаемые гуру и знатоки обращаюсь к вам с вопросом. Есть лист в который копируют наименование компаний например ООО «Меторрг» как автоматически заменить скобки на ООО "Меторрг" ? Заранее большое спасибо за ваши ответы.
Обновление модулей в книге
 
Всем привет. Есть книга в которой веду разработку. сейчас хочу раздать эту книгу всем коллегам на работе. Есть ли возможность обновлять модули? Не через редактор vba, а макросами!
Вызов функции из другого модуля
 
Добрый день! Подскажите есть Модуль 1, Есть Модуль 2, как вызвать с Модуля 1 функцию из модуля 2?
Отправка сообщения без использования Outlook - используем CDO
 
доброго времени суток!  нашел макрос для отправки почты "ОТПРАВКА СООБЩЕНИЯ БЕЗ ИСПОЛЬЗОВАНИЯ OUTLOOK - ИСПОЛЬЗУЕМ CDO"
скачал пример, в не зависимости указываю данные или нет выдает пустой msgbox. как понимаю вот эта часть
Код
Select Case Err.Number
    Case -2147220973: sMsg = "Нет доступа к Интернет"
    Case -2147220975: sMsg = "Отказ сервера SMTP"
    Case 0: sMsg = "Письмо отправлено"
End Select

    MsgBox sMsg, vbInformation, "[URL=http://www.Excel-VBA.ru]www.Excel-VBA.ru[/URL]"
    Set oCDOMsg = Nothing: Set oCDOCnf = Nothing
Почему сообщение пустое? Как быть помогите, пожалуйста!
Назначение динамической гиперссылки макросом
 
Доброго времени суток! Прошу помощи, я хочу назначить динамическую гиперссылку макросом
Код
Worksheets("Рейсы").Range("h" & NumPos).Formula = _
"=HYPERLINK(""http://ati.su/Tables/Info.aspx?ID=""&Worksheets("Инфо").Range("f57").Value&""&print=0&isdeleted=false&WindowMode=Popup"",Worksheets("Инфо").Range("f57").Value)"


Пишет ошибку "end statement"
Проверка состояния фильтра
 
И снова здравствуйте. Столкнулся с такой темой, есть кнопка в корой прописан макрос который очищает фильтр
Код
Sheets("Страница").Select
ActiveSheet.ShowAllData

А если фильтра нет, то выдает ошибку. Как миновать эту ситуацию?
Перенести слова в одну строку
 
Привет все местным! Подскажи те пожалуйста как перенести слова в одну строку? Например:
Баба
Катя
А надо: баба Катя  
Изменено: bulgakov - 04.12.2015 19:03:09
Портировать на vb
 
Добрый вечер. Мною был собрана книга в которой ведется, учёт заявок на грузоперевозки. Имеется лист на которой вводятся данные о рейсе, журнал, справочники. Функциональность формирование счета, акта, счёт фактуры экспорт в пдф. Так вот нужно все это дело портировать на VB. В общий доступ не готов выложить книгу. Есть желающие с репутацией занятая работой? Ценник жду от вас.
Спрятать столку по условию ячейки, в
 
Добрый вечер форумчане. пробывал своими силами, но что то никак...
Нужно спрятать строку если ячейкка d46 будет = по сканам. Добавляю в модуль этот код. Ошибка..
If Worksheets("Инфо").Range("D46').Value = "по сканам" Then Sheets("Для Заказ").Rows(38).EntireRow.Hidden = True
в чем ошибка?  
Проверить папку на наличие файлов
 
Привет. Помогите пожалуйста. Как проверить папку на наличие файлов, если нет то выйти из функции, если есть то удалить все фаилы.
Присвоить имя сохраненому файлу значением из ячейки
 
Приветствую. В книге есть три листа 1) клиенту 2)наш экземпляр 3)инфо. На листе инфо в ячейке с4 прописан номер договора. На основании данных с листа инфо формируется договор. Договор выгружаю в pdf с помощью виртуальной принтера. Вопрос: как назначить имя для файла при выделеном листе и при нажатии ctrl+p, клиенту *** или наш экземпляр ***? Помогите уважаемые! Буду признателен!))
Условно форматирование с чек боксом
 
Приветствую форумчане! Подскажите пожалуйста, есть условное форматирование, на диапазон ячеек.
Как добавить чек бокс в каждую ячейку, и как снять окраску и при нажатии на чек бокс?
Перезаписать строку, если дубль
 
Добрый день! Снова тут я с вопросами :) Вообщем книга состоит из двух листов, 1й лист "Инфо" на котором заполняются данные о рейсах, 2й лист Рейсы собственно где хранятся все рейсы. Вопрос как добавлять данные со страницы ИНФО, но перед этим найти дублирующею строку по номеру заявке, если есть дубль вызвать msgbox И задать вопрос "Переписать?" если да заменить строку, если нет добавить в конец новую строку.  А так вот код по которому я добавляю со страницы ИНФО на страницу РЕЙСЫ. Прикладываю пример
Длиннющая простыня
Изменено: bulgakov - 31.10.2015 12:05:30
Как вставить прозрачный рисунок на лист?
 
Как вставить прозрачный рисунок на лист?
Страницы: 1 2 След.
Наверх