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

Автор Антон Вяткин, 07.12.2016, 08:49

« назад - далее »

Антон Вяткин

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

kuklp1

Цитата: Антон Вяткин от 07.12.2016, 08:49
..при нажатии кнопки переноса данных и их копировании строка ИТОГО сдвигалась вниз...
   LRow = .Columns("B:U").Find("*", [E1], SearchDirection:=xlPrevious).Row
   .Cells(LRow, 1).Resize(3).EntireRow.Insert
Я, как всегда, чертовски адекватен... Email: kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728, E332314026771

Антон Вяткин

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

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

Wasilic

#3
Цитата: Антон Вяткин от 07.12.2016, 18:41а как же с номером накладной быть?
Используем 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
Думал, на этом форуме другие участники? А мы везде. ;D
Может и я на что сгожусь ... Если сгодился, можете меня по+благодарить+.

Антон Вяткин

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