前提・実現したいこと
オートフィルタでやった方が良い!と言われるかもしれませんが、PCに疎い方も操作するため、また似たようなフォーマットもまとめる必要があるため、抽出作業→計算をしたいと思っています。
まず抽出作業で戸惑っています。よろしくお願いします。
発生している問題・エラーメッセージ
Private Sub CommandButton1_Click()
'--------------------------------------
Dim N As Integer
Dim Clm As Integer
Clm = 1
'''セルへ転記
Worksheets("検索用").Select
For N = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(N) Then
Clm = Clm + 1
Cells(Clm, 1) = ListBox1.List(N)
End If
Next N
'''ListBox1の選択状態の解除
For N = 0 To ListBox1.ListCount - 1
ListBox1.Selected(N) = False
Next N
'-----------------------------------------------
Dim myRow1 As Long, myRow2 As Long '----Sheet1とSheet2のA列で最終行を捜します。 myRow1 = Sheets("抽出").Range("A" & Rows.Count).End(xlUp).Row myRow2 = Sheets("抽出2").Range("A" & Rows.Count).End(xlUp).Row '抽出先のクリアする Worksheets("抽出2").Range("A2:C" & myRow1).ClearContents '----フィルタオプションの設定で抽出します。 '----元データは抽出、抽出条件は検索用のA2:A10、抽出先は検索用G1です。 Sheets("抽出").Range("A2:C" & myRow1).AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=Sheets("検索用").Range("A2:A10"), _ CopyToRange:=Sheets("検索用").Range("G1"), _ Unique:=False
End Sub
エラーメッセージ 抽出されずに全てがペーストされてしまいます。 エラーは吐いていません。 本当は、セルに転記せず、複数選択したものが抽出されるようにしたいのですが、実力不足で噛ませています。
該当のソースコード
VBA
試したこと
フィルタオプション部分をいじりましたが見当違いのようでエラーになってしまっています。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/02/06 06:38
2019/02/06 08:29
2019/02/07 04:54
2019/02/07 05:26