перенос строк на другую страницу по условию

[Hugo121]

Что как? Как вставить?
ПКМ на ярлыке листа - исходные текст - вот туда и...

[Настасия]

я делала так еще до вас но не получается

[Настасия]

вот именно рабочий файл надо чтоб с sample list в dumped samples можете попробовать

[Hugo121]

Попытка почти удалась, так нужно было писать:

i = Sheet4.Cells(Rows.Count, "A").End(xlUp)(2).Row

И теперь вопрос - куда в этом файле будете писать dumped?
В коде предусмотрен 12-ый столбец.

[Настасия]

в столбец с названием Dump status

[Hugo121]

Ещё обнаружил - это зря так:

Rows(Target.Row).Dumped Samples.Cells(i, 1)
из
Rows(Target.Row).Copy Лист1.Cells(i, 1)

Всего лишь нужно было поменять CodeName Лист1 на своё.
А в DumpStatus писать текст не дозволено... !!!

[Настасия]

Ребята помогите что не получается)))) Давайте попробуем с этим файлом поиграться, может я что то напутала)))) в общем:там два одинаковых списка надо сделать так чтоб при значение "dumped" в столбце "Dump status" , строка автоматически переносилась на Sheet2.
Я пробовала сделать не получилось))))
Помогите)))
Thanks,
Best regards,
Nastya.

[Hugo121]

У меня тот прежний код исправно работает, только изменил номер столбца и кодовое имя листа. Ну и ещё Вы упорно лепите лишние пробелы, поэтому добавил Trim:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Trim(Target.Value) = "dumped" Then
Dim i&
i = Sheet2.Cells(Rows.Count, "A").End(xlUp)(2).Row
Application.ScreenUpdating = False
Rows(Target.Row).Copy Sheet2.Cells(i, 1)
Rows(Target.Row).EntireRow.Delete
Application.ScreenUpdating = True
End If
End If
End Sub

Может быть у Вас макросы запрещены/не работают?

[Настасия]

Спасибо вот теперь все ок, проблема была в пробелах

[Настасия]

ребят опять гонит что то открыла ваш файл не работает совсем