Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » manyaffkina
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
посчитать в периоде кол-во мес по 30/31 дню
 
#
10.10.2016 10:31:23
Здравствуйте.
Есть две даты,
например,
15 июля 2016
25 февраля 2017
помимо того, что между ними разница в 225 дней, 2 месяца неполных, а 6 полных.. надо понять, сколько в этих 6 месяцах месяцев по 30 дней, а сколько по 31
Большое спасибо!!!!!
 
Перейти    
выделение столбцов (динамическое). VBA
 
#
11.03.2016 19:09:25
Здравствуйте

Просьба помочь
по второй строке макрос считает количество колонок, а потом только последние 30 должен выделить, ну и далее проделать операции
Дебачит(
сама функция срабатывает правильно.

Большое спасибо

Код
    iLastCol = Cells(2, Columns.Count).End(xlToLeft).Column
    Columns("" & iLastCol - 30 & " :" & iLastCol & "").Select
 
Перейти    
фильтрация в макросе по значениям переменных
 
#
29.12.2015 18:24:22
Добрый вечер!
Огромная просьба помочь

Цель: Фильтрация данных в зависимости от заданных в ячейках значений

Описание: в документе база прописываю руками месяц, год, подсчитывается количество дней. Это соответственно три переменных mm, yy, ml
В другом файле по трем этим критериям ежемесячно должны фильтроваться новые данные (но это не текущий месяц!!! функции сегодня, дата, месяц, прочее не подходят, к сожалению.)

Как прописать сами функции mm, yy, ml?
Фильтр в таком случае "поймет". сошлется на переменные и правильно отфильтрует?
Большое спасибо!!!!

Кусок для этой микроперации
Код
Dim mm As Long
Dim yy As Long
Dim ml As Long

'mm ="[база.xlsm]Лист1!R8C16"
'ml ="[база.xlsm]Лист1!R8C18"
'yy ="[база.xlsm]Лист1!R8C17"

'ActiveSheet.Range(Cells(2,1), Cells(iLastRow, iLastCol)).AutoFilter Field:=28, Operator:= _
        xlFilterValues, Criteria2:=Array(1,"mm/ml/yy")
 
Перейти    
найти первую непустую ячейку в разрозненном массиве
 
#
25.12.2015 11:14:36
Всем добрый день!

Огромная просьба помочь

Есть макрос, консолидирующий с разных выгрузок данные

один из кусков состоит в том, чтобы на всякий случай макрос прописывал адрес сервера

Смысл: макрос вставил данные с сервера. вставил на весь этот диапазон номер сервера в iLastCol+1
макрос вставил данные со второго сервера до iLastCol, нашел последнюю строку в iLastCol+1 и вставил на оставшийся диапазон номер второго сервера

Я макросы только учусь писать. он громоздкий. но в чем вопрос: не выделяется первая непустая ячейка в последней колонке (=32), чтобы дальше на диапазон она прописала значение второго сервера

Большое спасибо
Код
Windows("база_данных.xlsx").Activate

     iLastRow = Cells(Rows.Count, 1).End(xlUp).Row

   Cells("iLastRow+1, 32").Activate
'????????????????????????????????????????????????????????????????????????????????????????

    ActiveCell.FormulaR1C1 = "10"

   Cells("iLastRow,32").Select   
 '????????????????????????????????????????????????????????????????????????????????????????

    Selection.Copy

     iLastRow = Cells(Rows.Count, 32).End(xlUp).Row

     iLastRowRow = Cells(Rows.Count, 1).End(xlUp).Row

    Range(Cells(iLastRow + 1, 32), Cells(iLastRowRow,32)).Select

    Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
 
Перейти    
vba. split. вычленение конкретного слова из строки
 
#
04.06.2014 20:27:18
Здравствуйте
Есть проблема
во вложенном файле в ячейке С2 в 1 строку записано
Цитата
Временной период: 04.05.2014 0:00:00 - 04.06.2014 0:00:00; Тип Документа: Продажа; Тип продажи: Обычный; УПК: Да; Сортировка: В алфавитном порядке; Экранная форма: Продукт; Выводить детали: Категория; Формат вывода дневного отчета: Канал; Уровень Орг.: TSM; Дистрибьютор: Шкуренко ТД (Омск); Тип клиента: Клиент; Категория: (Снеки)
Это шапка отчета ,из которого далее необходимо тянуть данные по имени дистрибьютора
Шкуренко ТД (Омск)  (и прочие дистры, будет создан их список)
Имя дистрибьютора задаю как переменную
Но чтобы он определил это имя нужно применить фунцию split

Вопрос: как будет выглядеть эта фунция, чтобы заведенной переменной соответствовал только Шкуренко ТД (Омск)
Спасибо
 
Перейти    
импорт excel -access. VBA
 
#
29.05.2014 13:50:32
Всем здравствуйте
Не работает код
цель макроса: еженедельное добавление к существующим данным новых
подключила библиотеку DAO 3.6 обджект лайбрери. Однако на строке
Код
 Set BD = Workspaces(0).OpenDatabase("V:\Reporting\FA SI\макросыSI_Database.accdb")
пишет что такой формат не обнаружен 7-ой и эксель и аксесс
вот весь код
Скрытый текст

и кстати, будет ли он ПОД СУЩЕСТВУЮЩИЕ данные добавлять новые или будет перезатирать ?
Подскажите, как накопительно сделать и что настроить,чтобы понимал форматы

СПАСИБО БОЛЬШОЕ
Маша
Изменено: manyaffkina - 29.05.2014 13:55:15
 
Перейти    
vba. функция для поиска первой строчки после фильтрации
 
#
08.05.2014 14:07:27
как при установке фильтра посчитать первую строчку после него  она каждую неделю будет разной. Может быть 15, на друго1 неделе 18. что-то типа iFirstRow. есть такое?
спасибо
 
Перейти    
автоматическое распределение документов по папкам
 
#
27.03.2014 12:16:15
Здравствуйте!
Как будет примерно выглядеть макрос, который ищет в названии файла соответсвующее слово (например, "Мурманск") и кидает автоматически этот документ в папку "Мурманск"
спасибо
 
Перейти    
Страницы: 1
Наверх