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

Страницы: 1
Разбивка сводной таблицы, VBA Макрос
 
#
07.09.2017 11:47:11
День добрый
столкнулся с подобной задачей нашел решение на ссылке ниже
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=59002&TI...
использовал макрос от Sanja, но проблема если  если использовать цифры как критерий то каждая строка копируется на отдельный лист как обойти?
 
Перейти    
Поиск номера пустой ячейки в столбце, Макрос, VBA
 
#
06.09.2017 11:01:02
День добрый

вопрос такой  
Отсортировал данные и получилось что в конце таблицы есть данные которые нужно удалить (строк всегда разное количество)

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

пытался сделать так  чтоб получить номер ячейки
Код
 Set myLastCell = ActiveSheet.Columns(3).Find(What:="", LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
        MatchCase:=False, SearchFormat:=False)
        
 
Перейти    
Сортировка на выбранном диапазоне ячеек
 
#
06.09.2017 08:49:12
День добрый.

пытаюсь сделать сортировку на выбранном диапазоне ячеек  от второй строки первой ячейки до 9 столбца не известной ячейки  (каждый раз может быть разная)


lLastRow- номер последней ячейки
и не знаю как дальше выбрать участок
от А2 до Н lLastRow

что бы сортировку применить на этом диапазоне ячеек
Код
 lLastRow = Cells.SpecialCells(xlLastCell).Row
    
   Range("A3", Rows.Count).Select
     'Set ra = sh.Range(sh.Range("a11"), sh.Range("a" & sh.Rows.Count).End(xlUp)).Resize(, 10)
    'Selection.ra
    'ni?oe?iaea
 '   Range("A3:H4107").Select
    ActiveWorkbook.Worksheets("Pivot Table").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Pivot Table").Sort.SortFields.Add Key:=Range( _
        "B3:Rows.Count"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Pivot Table").Sort.SortFields.Add Key:=Range( _
        "A3:Rows.Count"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Pivot Table").Sort.SortFields.Add Key:=Range( _
        "H3:Rows.Count"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Pivot Table").Sort
        .SetRange Range("A3", Rows.Count).Select
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
Перейти    
Замена в exel точки на запятую через макрос - MS Excel
 
#
06.06.2017 14:18:49
День добрый столкнулся с проблеммой
есть стобец с данными вида :

0.000
0.000
0.000
0.000
533333.330
0.000
533333.330
0.000
0.000
0.000

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

0
0
0
0
533333,33
0
533333,33
0
0
0
если это же действие делать через макрос ( "Записать макрос" и поторить действия по замене ) результат другой :
0,000
0,000
0,000
0,000
533 333 330
0,000
533 333 330
0,000
0,000
0,000

как можно это исправить ??


код макроса на всякий случай  
Код
Columns("C:C").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
Перейти    
Как сделать текст датой, При сцеплении ячеек получаю данные в виде 01.02.2014 (текст) - как из этого сделать дату
 
#
31.05.2017 11:59:39
День добрый
Такая ситуация делаю макрос для конвертации файлов в exel и застрял на одном моменте

есть 2-е ячейки
2014   --- пярвая ячейка данные
3---- вторая ячейка данные

с помощью формулы
Код
=СЦЕПИТЬ("01";".";ЕСЛИ(C1<10;СЦЕПИТЬ(0;C1);C1);".";B1)

получаю 01.03.2014   - то что мне надо но в ячейке храниться как текст  ( тоесть прижат к левому краю)  а мне нужно получить дату  как это сделать?
( на других листах была похожая ситуация но результат сохраняется как дата)
(менял формат ячейки после как скопировал данные , перед, не помогает)
 
Перейти    
Страницы: 1
Наверх