プライベートサブを使用してセルの変更を自動的にコピーして貼り付ける
質問
閉じたチケットが収集された私のワークブックにアーカイブシートを追加しようとしています。私は、「チケット」というラベルの付いたシートからカットされ、そのステータスがオープンからクローズドに変更されたシートに貼り付けられたシートに貼り付けてください。私はこれがプライベートサブを使って事実上の変更で起こるようにしてください。ステータスは列4にあります。
それが可能な場合はIMが他の方法でも可能になるでしょう。そのため、チケットが再開され、そのステータスが「アーカイブ」シートで変更された場合は、切断され、「チケット」シートに戻します。
これまでのコードです。私たちはそれを働かせるように思えることができます。あらゆる助けが大いに感謝されるでしょう。ありがとう
Private Sub Worksheet_Change (ByVal Target As Range)
If Target.Column = 4 Then
If Target.Value = "Closed" Then
R = Target.Row
Rows(R).Cut
Worksheets("Archive").Select
With ActiveSheet
lastrow = .Cells(.Rows.Count,"B").End(xlUp).Row
End With
Cells(lastrow,1).Select
Selection.Paste
End If
End If
End sub
. 解決
現在のコードを小さなものにするだけです。
If Target.Column = 4 Then
If Target.Value = "Closed" Then
R = Target.Row
Rows(R).Cut
Worksheets("sheet3").Select
With ActiveSheet
lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
.Cells(lastrow, 1).Select
.Paste
End With
End If
End If
. 所属していません StackOverflow