私はVBAの新機能です。問題解決のための解決策を探しています。私の目標は、完成したプロジェクトの行を「完成したプロジェクト」という名前のリストに移動することです。VBA - 選択した行を定義済みのリストに移動
セルグループ"Project_list"-$A$42:$AH$57と別のグループを"Completed_Projects"-$A$59:$AH$65と定義しました。 Project_listからCompleted_Projectsリストの最後にProjects（行に関連付けられている）を移動したいとします。 マクロは私の選択で、OとS列（O（プロジェクトのステータス）セル= "閉鎖"とS（プロジェクトの終了日）<> ""）で計算されたセルに正しい情報があることを確認する必要があります。
選択した行に基づいて2つの引数をマクロでチェックする方法を教えてください。
私は解決策に来るようにしようとしていると私はすべてを設定するが、ここで私が立ってどこがどのように変化している可能性があります：
Sub Archive2()
Dim Status As Range
Dim EndDate As Range
Dim ActiveCell As Range
With Active.Selection = Selection
Set Status = Intersect(Selection, Columns("O:O"))
Set EndDate = Intersect(Selection, Columns("S:S"))
End With
私は私の選択は私のセットの行になるようにそれを作るしようとしていますし、列OとSは私の議論を確認する必要がある私の列です。
If Status.Value = "Closed" And EndDate.Value <> "" Then
'still looking at where I will compute the row. probably another Worksheet.
Else: Status.Value = InputBox("ComputeDATA1") _
And EndDate.Value = InputBox("ComputeDATA2")
End If
End Sub
あなたが試みたコードを投稿できますか？多分、私たちはあなたが問題/エラーを修正する手助けをすることができますか？それはいくつかのいずれかのコードを書く可能性が非常に高いではありませんあなたのため – Maldred
'サブArchiveProject（）範囲 SELが選択として 薄暗いRNG 細胞（「O」）。値=「クローズ」細胞（「S」の場合）.Valueの<>「」そして、それ以外の Sel.Cut Sel.Insert のMsgBox「 エンドSub' が、私はまだ何をする方法を考え出していない場合は終了 」CCRのステータスと終了日を計算してください。私はIfステートメントの後にしたい。私の目標はCompleted_Projectsリストの最後に移動することです。私はまだそれを行う方法を研究しています。 – HLB
私は解決策をとろうとしていて、すべての設定方法を変更したかもしれませんが、 – HLB