Заполнить ШАБЛОН по отгрузкам

[amadeus017]

Serge_Bliznykov

Спасибо большое, за то что уделили время и хотели помочь, но суть кода в том, что на листе "ШАБЛОН" в ячейке А1, проставляется дата, далее на указанном листе (есть право выбора листа, все хорошо работает), и по столбцу H идет ПОИСК строк с такими датами, и верно подмечено, что если в графе J стоит значение (номер по порядку проставляется вручную), то эти сроки с любого листа который был выбран, переносятся на лист "ШАБЛОН" и заполняется таблица.
Вот только у меня работает, если дата стоит 03 апреля, что не так с другими датами, не понимаю.
А столько было радости когда все заработало )))), но это было на проверке с одной датой.
Видимо что-то с безопасностью сети (((

[Aleksandr H.]

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

Видимо что-то с безопасностью сети (((

Каким боком ето к файлу екселя?

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

Вот только у меня работает, если дата стоит 03 апреля, что не так с другими датами, не понимаю.

Ну так может кроме даты вы не проставили №п/п на листе Апрель напротив 04/04/2018?

[amadeus017]

Aleksandr H.

Я уже не знаю, почему, вот и пишу, что может настройки сети, может еще что... Колонки совпадают, формат, совпадает, но в этом файле, по дате не переносятся данные.
К Вам претензий вообще нет никаких, так как в другом файле, что ранее прилагал, все работает, а тут, непонятки какие-то...
(прикрепляю файл, убрав лишнее)

[Aleksandr H.]

Стесняюсь спросить, а на листе Март почему в колонке J - кем/куда, а не № п/п как на Апреле?

[amadeus017]

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

Стесняюсь спросить, а на листе Март почему в колонке J - кем/куда, а не № п/п как на Апреле?

Потому что, раньше это делалось через, "копировать" и "вставить", а потом сортировать очередность.
Вот и пришла в голову такая мысль, что можно сразу на листе "апрель", добавить колонку, и сразу проставить очередность, а не переносить строки, и сортировать потом все.
Не знаю, как это может повлиять на макрос (не силен в этом), ведь я указываю лист "апрель", в котором есть графа "№ п/п".

[IgorGO]

что может настройки сети, может еще что...

ищем проблемы в таком порядке:
1. в тексте макроса
2. в данных
и только потом думаем:
3. с Excel какая-то беда
4. может сетевые настройки не те
5. Что-то с компьютером
6. Сегодня не мой день
7. Небгоприятное положение Юпитера в созведии Ориона
8. и пр.

[Aleksandr H.]

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

Не знаю, как это может повлиять на макрос (не силен в этом), ведь я указываю лист "апрель", в котором есть графа "№ п/п".

Ну тогда запишите Ваши действия на видео и давайте линк

[Serge_Bliznykov]

amadeus017, попробуйте такую модификацию:

Sub DoWork2()
    Dim rg As Range
    Dim Name As String
    Dim shN As Worksheet
    Dim data
    Dim myOffset As Integer
    Dim rCount As Integer, rSheetCount As Integer
    Dim r As Integer, rF As Integer
    Set rg = Application.InputBox("Выберите ячейку", "На нужном листе", Type:=8)
    Name = rg.Worksheet.Name
    On Error GoTo lblNoSheet
    Set shN = Sheets(Name)
    On Error GoTo 0
    With Sheets("ШАБЛОН")
        rCount = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
        rSheetCount = shN.Cells(.Rows.Count, "A").End(xlUp).Row + 1
        data = .[a1]
        r = 2
        rF = 0
        Do While r < rSheetCount
            If Format(shN.Cells(r, "H"), "YYYYMMDD") = Format(data, "YYYYMMDD") And _
                CInt(shN.Cells(r, "J") <> 0) Then
                myOffset = CInt(shN.Cells(r, "J")) - 1
                .Cells(rCount, "A").Offset(myOffset, 0) = shN.Cells(r, "C")
                .Cells(rCount, "B").Offset(myOffset, 0) = shN.Cells(r, "D")
                .Cells(rCount, "C").Offset(myOffset, 0) = shN.Cells(r, "E")
                .Cells(rCount, "D").Offset(myOffset, 0) = shN.Cells(r, "F")
                .Cells(rCount, "E").Offset(myOffset, 0) = shN.Cells(r, "G")
                .Cells(rCount, "F").Offset(myOffset, 0) = shN.Cells(r, "H")
                .Cells(rCount, "G").Offset(myOffset, 0) = shN.Cells(r, "K")
                .Cells(rCount, "H").Offset(myOffset, 0) = myOffset + 1
            End If
            r = r + 1
        Loop
    End With
    Exit Sub
    
lblNoSheet:
    MsgBox "No " & UCase(Name) & " worksheet"
End Sub

обратите внимание, что дата проверяется по столбцу H и для тех строк, где в столбце J не нулевое число.

[amadeus017]

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

amadeus017, попробуйте такую модификацию:
***
обратите внимание, что дата проверяется по столбцу H и для тех строк, где в столбце J не нулевое число.

Пока все работает ))))
Спасибо большое!