|
宜しくお願いします。
エクセル2000を使用しております。OSはXP。
今現在下記のようなコードを使っています。
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim n As Long
With Target
If .Count <> 1 Then Exit Sub
If .Row = 1 Then Exit Sub
If .Column <> 9 Then Exit Sub
If .Value = "済" Then
n = Worksheets("Sheet2") _
.Range("I" & Rows.Count).End(xlUp).Offset(1).Row
.EntireRow.Copy Worksheets("Sheet2").Cells(n, 1)
Application.EnableEvents = False
.EntireRow.Delete
Application.EnableEvents = True
End If
End With
End Sub
(指定したセル内で”済”を入力すると別シートに移動)
上記に更に条件を加えたいのですが、
E6からの列であいうえお順に自動で整列させるということは可能なのでしょうか?
ご不明な点があれば、補足いたします。
お手数をお掛けいたしますが、回答宜しくお願い致します。
|
|