1

同じ列見出しと列数式を使用する 2 つのワークシート (1 つは最終と呼ばれるシート、1 つは保留と呼ばれるシート) を含むワークブックがあります。

4列目のステータスが保留中から最終に変わると、データの行を「保留中」シートから「最終」シートに自動的に転送するのに役立つマクロ/VBAを見つけるのに苦労しています。これは、保留中および最終クライアントのすべてのデータが別々のシートに保持されるようにするためです。

助けてください。

4

1 に答える 1

0

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

幸運を!

于 2011-02-01T19:07:25.480 に答える