Макрос для перемещения строки из одного рабочего листа в другой в той же книге после изменения статуса - PullRequest
Новая
       52

Макрос для перемещения строки из одного рабочего листа в другой в той же книге после изменения статуса

1 голос
/ 01 февраля 2011

У меня есть рабочая тетрадь с 2 листами (1 лист называется финальным, 1 лист - ожидающим), в котором используются те же заголовки и формулы столбцов.

Мне трудно разобраться в макросе / VBA, который поможет мне автоматически переносить строки данных с «ожидающего» листа на «последний» лист, как только состояние четвертого столбца изменится с ожидающего на конечный. Это делается для того, чтобы все данные для ожидающих и конечных клиентов хранились на отдельных листах.

Пожалуйста, помогите.

1 Ответ

0 голосов
/ 01 февраля 2011

Попробуйте что-то подобное в своем коде работы woorkbook: 

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "pending" And Target.Column = 4 Then
    If Sh.Cells(Target.Row, Target.Column) = "final" Then
        Sh.Select
        Sh.Rows(LTrim(Str(Target.Row)) & ":" & LTrim(Str(Target.Row))).Select
        Selection.Copy ' or cut
        Sheets("final").Select
        Rows("20:20").Select ' here is your destination row... you must set a global to control it...
        Selection.Insert Shift:=xlDown
    End if
End Sub

Удачи!

...