Подстановка с 3-х листов на 4-ый с удалением дубликатов

[Raymond86]

Доброго времени суток))

У меня возникла загвоздка с кодом.

В файле на листе Statistics на кнопке написан код с запросом, который собирает с листов даты:

- VGR - с колонки "Дата создания" (D:D)
- CLAIMS CHECK - "Дата создания" (G:G)
- LETTERS CHECK - "Дата претензии по письму" (H:H)

он их собирает, удаляет дубликаты, подставляет в первую колонку таблицы на листе Statistics и сортирует по возрастанию.

Вопрос в том, что последней записью почему то в итоговой таблице ставится почему то текст с заголовка таблицы на листе LETTRS CHECK...((( Как от этого избавиться? Помогите пож-ста...

Может есть альтернативный способ собирать даты с листов другим кодом?

[Aleksandr H.]

если последняя строка неинформативная, просто удаляйте ее

[Step_UA]

Сообщение от Raymond86

Вопрос в том, что последней записью почему то в итоговой таблице ставится почему то текст с заголовка таблицы на листе LETTRS CHECK...((( Как от этого избавиться?

Допущена ошибка в вычислении последней строки таблиц (посмотрите на принимаемые значения соответствующих переменных по F8 в дебагере):
- если записей 2 и более, то последняя не участвует в выборке
- если запись 1, то участвует также заголовок

[Raymond86]

Сообщение от Step_UA

Допущена ошибка в вычислении последней строки таблиц (посмотрите на принимаемые значения соответствующих переменных по F8 в дебагере):
- если записей 2 и более, то последняя не участвует в выборке
- если запись 1, то участвует также заголовок

мне бы еще понять, какая это ошибка....(( к сожалению непонятно, что надо поправить, чтобы работало.

[Aleksandr H.]

Сообщение от Raymond86

мне бы еще понять, какая это ошибка....(( к сожалению непонятно, что надо поправить, чтобы работало.

Sheets("VGR").Select
    asd = ActiveCell.Worksheet.Cells.SpecialCells(xlCellTypeLastCell).Row - 1
    Sheets("CLAIMS CHECK").Select
    dfg = ActiveCell.Worksheet.Cells.SpecialCells(xlCellTypeLastCell).Row - 1
    Sheets("LETTERS CHECK").Select
    lett = ActiveCell.Worksheet.Cells.SpecialCells(xlCellTypeLastCell).Row - 1

Зачем "-1" ? На листе LettersCheck данные только в 10 строке, берете -1 и получается что в запрос пойдет диапазон 9:10 строк

[Raymond86]

Сообщение от Aleksandr H.

Зачем "-1" ? На листе LettersCheck данные только в 10 строке, берете -1 и получается что в запрос пойдет диапазон 9:10 строк

"-1" я уже убрал))) дописал в код условие.

Sheets("VGR").Select
asd = ActiveCell.Worksheet.Cells.SpecialCells(xlCellTypeLastCell).Row
If asd < 10 Then asd = 10
Sheets("CLAIMS CHECK").Select
dfg = ActiveCell.Worksheet.Cells.SpecialCells(xlCellTypeLastCell).Row
If dfg < 10 Then dfg = 10
Sheets("LETTERS CHECK").Select
lett = ActiveCell.Worksheet.Cells.SpecialCells(xlCellTypeLastCell).Row
If lett < 10 Then lett = 10

вот теперь дата с 3-го листа LETTERS CHECK почему-то не берется.

[Raymond86]

Подскажите пож-ста, не могу разобраться...(((

[Step_UA]

Сообщение от Raymond86

"-1" я уже убрал))) дописал в код условие.
вот теперь дата с 3-го листа LETTERS CHECK почему-то не берется.

Вы ведь не только убрали -1, но и изменили сам запрос: ранее выборка начиналась с 10 строки ... все работает согласно запросу
Предполагаю, что результат не тот который ожидался, но какой нужен вы не указывали, а телепатов нет

[Raymond86]

Сообщение от Step_UA

Вы ведь не только убрали -1, но и изменили сам запрос: ранее выборка начиналась с 10 строки ... все работает согласно запросу
Предполагаю, что результат не тот который ожидался, но какой нужен вы не указывали, а телепатов нет

Как это не указывал? В первом посте указывалось, что ожидается от кода:

В файле на листе Statistics на кнопке написан код с запросом, который собирает с листов даты:

- VGR - с колонки "Дата создания" (D :D )
- CLAIMS CHECK - "Дата создания" (G:G)
- LETTERS CHECK - "Дата претензии по письму" (H:H)

он их собирает, удаляет дубликаты, подставляет в первую колонку таблицы на листе Statistics и сортирует по возрастанию.

Вопрос сейчас в том, что дата с 3-го листа LETTERS CHECK почему-то не берется.

ну, хорошо и заново файл))) Заранее спасибо))

[Step_UA]

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

Sub Upd_Claims()

'ActiveWorkbook.RefreshAll
Dim endRow As Long, sqlStr1$
    endRow = Sheets("CLAIMS CHECK").Cells.SpecialCells(xlCellTypeLastCell).Row
    If endRow >= 10 Then sqlStr1 = "SELECT [f1] FROM [CLAIMS CHECK$g10:g" & endRow & "]"

    endRow = Sheets("VGR").Cells.SpecialCells(xlCellTypeLastCell).Row
    If endRow >= 10 Then
        If sqlStr1 <> "" Then sqlStr1 = sqlStr1 & " Union all"
        sqlStr1 = sqlStr1 & " SELECT [f1] FROM [VGR$d10:d" & endRow & "]"
    End If
    
    If endRow >= 10 Then
        If sqlStr1 <> "" Then sqlStr1 = sqlStr1 & " Union all"
        sqlStr1 = sqlStr1 & " SELECT [f1] FROM [LETTERS CHECK$h10:h" & endRow & "]"
    End If
    
    Sheets("STATISTICS").Select
    ' при необходимости очистки таблицы раскомментировать следующие строки
    'With Range("Таблица2").ListObject
    '    If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
    'End With

    If sqlStr1 <> "" Then
      Dim objConnection As Object, rs As Object
 
        Set objConnection = CreateObject("ADODB.Connection")
        Set rs = CreateObject("ADODB.Recordset")
        objConnection.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                "Data Source=" & ActiveWorkbook.Path & "/" & ActiveWorkbook.Name & ";" & _
                "Extended Properties=""Excel 12.0;HDR=No"";"
 
        sqlStr1 = "SELECT a4.[f1] FROM (" & sqlStr1 & " ) AS a4"
        sqlStr1 = sqlStr1 & " GROUP BY a4.[f1]"
        sqlStr1 = sqlStr1 & " ORDER BY a4.[f1]"
 
        rs.Open sqlStr1, objConnection, 3, 3
        Sheets("Statistics").Cells(9, 2).CopyFromRecordset rs
 
        Set rs = Nothing
        Set objConnection = Nothing
    Else
        MsgBox "Данные отсутствуют"
    End If

End Sub