excel перенос данных на другой лист

[Антон Вяткин]

Здравствуйте помогите с решением задачки.  в группе повторный вопрос сделал. Нужно при нажатии кнопки переноса данных и их копировании строка ИТОГО сдвигалась вниз, в данном случае она зафиксирована.
Также меня мучает вопрос в накладной поле D 3 — № накладной) нужно чтобы после нажатия на кнопку переноса данных номер накладной менялся( пример- 07-002. 07-это день месяца. он меняется автоматом каждый день и берет дату ОС. 002 это номер накладной в этот день( он как раз и должен меняться при нажатии кнопки переноса)

[kuklp1]

..при нажатии кнопки переноса данных и их копировании строка ИТОГО сдвигалась вниз...

Код Выделить Развернуть

   LRow = .Columns("B:U").Find("*", [E1], SearchDirection:=xlPrevious).Row
   .Cells(LRow, 1).Resize(3).EntireRow.Insert

[Антон Вяткин]

спс до этого не получалось из за кол-ва строк.. сейщас получилось

а как же с номером накладной быть?

[Wasilic]

а как же с номером накладной быть?

Используем 2 дополнительные ячейки, Е2 для хранения номера месяца и Е3 для хранения номера накладной. При смене месяца, номерА накладной начнутся с № 001. Код вставьте перед строкой:'ищем строку с материалы:

Код Выделить Развернуть

        Range("E3") = Range("E3") + 1
        If Range("E2") <> Month(Date) Then Range("E2") = Month(Date): Range("E3") = 1
        If Range("E3") < 10 Then
           Range("D3") = Format(Date, "mm") & "-00" & Range("E3")
        Else
           Range("D3") = Format(Date, "mm") & "-0" & Range("E3")
        End If
Думал, на этом форуме другие участники? А мы везде.

[Антон Вяткин]

Большое спасибо, немного изменил ( переменил на день месяца и в другое поле перенес)