Перенос строки с соседнего листа на активный лист

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос строки с соседнего листа на активный лист (Макросы/Sub)

Raven2009

Дата: Вторник, 03.12.2019, 12:40 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 151

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Добрый день.

У меня уже был вопрос на форуме про перенос строк с листа на лист касаемо умных таблиц.

Подскажите пожалуйста

В форме выбирается номер поддона и нажимается кнопка, делается поиск по его номеру в таблице на листе Stock и должна копироваться строка найденной записи на активный лист в таблицу.

У меня загвоздка в коде именно уже в записи, там почти все написано, только здесь что-то не так) Подскажите пожалуйста)

[vba]

Код

objOut.DataBodyRange.Cells(LastRow1, 2).Resize(, 3) = ObjStk.Range("A" & fRow).Resize(, 3).Value

[/vba]

К сообщению приложен файл: 0797842.rar (29.1 Kb)

Ответить

RAN

Дата: Вторник, 03.12.2019, 13:17 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Для чего вы файлы в архив пихаете? 5 Kb экономии?
[vba]

Код

Sub OutFromStock()
    Dim CellOut As Range
    With Range("tStock").ListObject
        Set CellOut = .ListColumns.Item(3).Range.Find(outbound.txb_out.Value, LookAt:=xlWhole)
        If Not CellOut Is Nothing Then
            Range("tout").ListObject.Range(1).Offset(Range("tout").ListObject.ListRows.Count + 1).Resize(, 3).Value = _
            Intersect(CellOut.EntireRow, .DataBodyRange).Resize(, 3).Value
        ' End With ошибочка вышла
    End If
        End With
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Вторник, 03.12.2019, 14:33

Ответить

Raven2009

Дата: Вторник, 03.12.2019, 13:35 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 151

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата RAN, 03.12.2019 в 13:17, в сообщении № 2 ()

Для чего вы файлы в архив пихаете? 5 Kb экономии?

привычка тут на форумах.... А если в первом столбце мне нужно Now() записывать?

Ответить

RAN

Дата: Вторник, 03.12.2019, 14:32 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

Sub OutFromStock()
    Dim CellOut As Range
    With Range("tStock").ListObject
        Set CellOut = .ListColumns.Item(3).Range.Find(outbound.txb_out.Value, LookAt:=xlWhole)
        If Not CellOut Is Nothing Then
            Range("tout").ListObject.Range(2).Offset(Range("tout").ListObject.ListRows.Count + 1).Resize(, 2).Value = _
            Intersect(CellOut.EntireRow, .DataBodyRange).Offset(, 1).Resize(, 2).Value
            Range("tout").ListObject.Range(1).Offset(Range("tout").ListObject.ListRows.Count).Value = Now
        End If
    End With
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Raven2009

Дата: Вторник, 03.12.2019, 14:41 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 151

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Огромное вам спасибо! Отлично работает

Подскажете, как мне еще в конце эту строку в таблице источнике удалять потом? Извиняюсь, проект еще в процессе, не все сразу придумывается...(((