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

Страницы: 1
Макрос не корректно формирует сводную табличку
 
Решение найдено следующим способом:
Код
Sub Ñâîäíàÿ()
'
' Ñâîäíàÿ Ìàêðîñ
''   Sheets("ïîâàãîííàÿ îòãðóçêà").Select
    Sheets("ïîâàãîííàÿ îòãðóçêà").Copy After:=Sheets(4)    Dim r As Range
    With ActiveSheet
        Set r = Intersect(.UsedRange, .[u:u]).Offset(1)
        r.FormulaLocal = r.FormulaLocal
    End With
    
    '-----------------------------------------------------------------------------
    
    Sheets("Ñâîäíàÿ").Select
    Cells.Select
    Selection.Delete Shift:=xlUp
    
    Range("A1").Select
    ' ôîðìèðóåì ñâîäíóþ òàáëèöó
    
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "ïîâàãîííàÿ îòãðóçêà (2)!R3C1:R65000C26", Version:=xlPivotTableVersion10). _
        CreatePivotTable TableDestination:="Ñâîäíàÿ!R1C1", TableName:= _
        "ÑâîäíàÿÒàáëèöà12", DefaultVersion:=xlPivotTableVersion10
    Sheets("Ñâîäíàÿ").Select
    Cells(1, 1).Select
    With ActiveSheet.PivotTables("ÑâîäíàÿÒàáëèöà12").PivotFields("PID")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("ÑâîäíàÿÒàáëèöà12").AddDataField ActiveSheet. _
        PivotTables("ÑâîäíàÿÒàáëèöà12").PivotFields("Äàòà îòãðóçêè"), _
        "Êîëè÷åñòâî ïî ïîëþ Äàòà îòãðóçêè", xlCount
    With ActiveSheet.PivotTables("ÑâîäíàÿÒàáëèöà12").PivotFields( _
        "Êîëè÷åñòâî ïî ïîëþ Äàòà îòãðóçêè")
        .Caption = "Ìàêñèìóì ïî ïîëþ Äàòà îòãðóçêè"
        .Function = xlMax
        .NumberFormat = "ÄÄ.ÌÌ.ÃÃÃÃ"
    End With
    Range("b1:b43").Select
    Selection.NumberFormat = "m/d/yyyy"
    Range("A1").Select
End Sub
Макрос не корректно формирует сводную табличку
 
то что получается в итоге
Макрос не корректно формирует сводную табличку
 
сам файл с макросом
Макрос не корректно формирует сводную табличку
 
далее вставляю сводную табличку
Код
Sub Сводная()
'
' Сводная Макрос
''
    Sheets("Сводная").Select
    Cells.Select
    Selection.Delete Shift:=xlUp
    
    Range("A1").Select
    ' формируем сводную таблицу
    
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "повагонная отгрузка (2)!R3C1:R65000C26", Version:=xlPivotTableVersion10). _
        CreatePivotTable TableDestination:="Сводная!R1C1", TableName:= _
        "СводнаяТаблица12", DefaultVersion:=xlPivotTableVersion10
    Sheets("Сводная").Select
    Cells(1, 1).Select
    With ActiveSheet.PivotTables("СводнаяТаблица12").PivotFields("PID")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("СводнаяТаблица12").AddDataField ActiveSheet. _
        PivotTables("СводнаяТаблица12").PivotFields("Дата отгрузки"), _
        "Количество по полю Дата отгрузки", xlCount
    With ActiveSheet.PivotTables("СводнаяТаблица12").PivotFields( _
        "Количество по полю Дата отгрузки")
        .Caption = "Максимум по полю Дата отгрузки"
        .Function = xlMax
        .NumberFormat = "ДД.ММ.ГГГГ"
    End With
    
    Range("A1").Select
End Sub
и получается такая ерунда:


в чем ошибка??
Макрос не корректно формирует сводную табличку
 
Вот первым кодом в исходной табличке я форматирую данные в нужный формат
Код
Sub ПреобразДанных()
'
' ПреобразДанных Макрос
''
    Sheets("повагонная отгрузка").Select
    Sheets("повагонная отгрузка").Copy After:=Sheets(4)
    Range("U1").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("U1").Select
    ' вводим в ячейку U1 формат даты
    
    Selection.NumberFormat = "m/d/yyyy"
    Selection.Copy
    Range("U5:U43").Select
    ' специальной вставкой умножаем данные на 1 в формате даты
    
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    ' заменяем значения 00.01.1900 на ""
    Columns("U:U").Select
    Selection.Replace What:="00.01.1900", Replacement:="", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("U1").Select
    Selection.ClearContents
End Sub   
Макрос не корректно формирует сводную табличку
 
так я и преобразовываю в исходной таблице но всеравно не получается
Макрос не корректно формирует сводную табличку
 
в ручную делаю специальная вставка копировать потом умножить все работает при этом запись макроса идет.

запускаю макрос нефига не работает прошу помочь
Макрос не корректно формирует сводную табличку
 
приляпал файл
Макрос не корректно формирует сводную табличку
 
Код
Sub Макрос13()
'
' Макрос13 Макрос
''
    Sheets("повагонная отгрузка").Select
    Sheets("повагонная отгрузка").Copy After:=Sheets(4)
    Sheets("повагонная отгрузка (2)").Select
    Range("U1").Select
    Selection.Copy
    Range("U5:U43").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    Sheets("Сводная").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "повагонная отгрузка (2)!R3C1:R65000C26", Version:=xlPivotTableVersion10). _
        CreatePivotTable TableDestination:="Сводная!R1C1", TableName:= _
        "СводнаяТаблица6", DefaultVersion:=xlPivotTableVersion10
    Sheets("Сводная").Select
    Cells(1, 1).Select
    With ActiveSheet.PivotTables("СводнаяТаблица6").PivotFields("PID")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("СводнаяТаблица6").AddDataField ActiveSheet.PivotTables _
        ("СводнаяТаблица6").PivotFields("Дата отгрузки"), _
        "Количество по полю Дата отгрузки", xlCount
    With ActiveSheet.PivotTables("СводнаяТаблица6").PivotFields( _
        "Количество по полю Дата отгрузки")
        .Caption = "Минимум по полю Дата отгрузки"
        .Function = xlMin
        .NumberFormat = "ДД.ММ.ГГГГ"
    End With
End Sub
попробовал и найти и заменить "."  на "." не работает

специальная вставка с пустой ячейкой тоже фигня получается может есть другой способ?
Макрос не корректно формирует сводную табличку
 
прикрепил файл примера
Макрос не корректно формирует сводную табличку
 
Добрый день!

прошу помощи, макрос не корректно формирует сводную табличку. На листе "Сводная" столбцы "D" и "E" в формате дата не корректно отображаются как вылечить?

я пробовал в исходном столбце "U" на листе "повагонная отгрузка" задать формат "ДД.ММ.ГГГГ" не помогает.

прошу помощи..
создать листы по списку в столбце и скопировать значения по шаблону
 
заказ сделан качественно и в срок тема закрыта
создать листы по списку в столбце и скопировать значения по шаблону
 
заказ отдан в работу исполнителю
создать листы по списку в столбце и скопировать значения по шаблону
 
в ЛС написал
создать листы по списку в столбце и скопировать значения по шаблону
 
Всем привет
очень нужна помощь написать макрос.

итак на листе "исходник исходная табличка", из нее нужно сделать много вкладок с названиями из столбца "H"

в каждой вкладке нужно вставить шаблон и заполнить его соответствующими значениями (ПИД уникальный номер) и соответственно данными привязанными к ПИД

строк в исходнике может быть до 5000 количество листов до 50
Стоимость обсуждается в личке
 
создать листы по списку в столбце и скопировать значения по шаблону
 
Всем привет
очень нужна помощь написать макрос.

итак на листе "исходник исходная табличка", из нее нужно сделать много вкладок с названиями из столбца "H"

в каждой вкладке нужно вставить шаблон и заполнить его соответствующими значениями (ПИД уникальный номер) и соответственно данными привязанными к ПИД

строк в исходнике может быть до 5000 количество листов до 50

на соседнем форуме жители любезно предложили код формирования листов осталось только допилить его и вставить данные с исходника


прошу помочь
Код
Sub Add_Sheets()
Dim TC As Range
    For Each TC In Range("h2:h13")
        If TC <> TC.Offset(-1) Then
            Sheets.Add After:=Sheets(Sheets.Count)
            Sheets(Sheets.Count).Name = TC
            'тут пишите код чем заполнять листы будете
        End If
    Next TC
End Sub
Страницы: 1
Наверх