|
▼ニッキ さん:
こんばんわ
>Aシートにデータがあり、A列の内容によってBシートとCシートへ
>振り分けを行いたいのですが、コマンドボタンをDシートに作りました。
コードは良くみていないのですが、Aシートがアクティブシートでは
ないのであれば明示する必要があります。
(未実行です、エラーがあったらすみません)
Private Sub CommandButton1_Click()
Dim WsA As Worksheet
Dim WsB As Worksheet
Dim WsC As Worksheet
Dim i As Long
Set WsA = Worksheets("A")
Set WsB = Worksheets("B")
Set WsC = Worksheets("C")
With WsA
For i = 2 To .Range("B65536").End(xlUp).Row
Select Case .Cells(i, 1).Value
Case 0 To 9999
WsB.Cells(WsB.Rows.Count, 1). _
End(xlUp).Offset(1, 0).EntireRow.Value _
= .Rows(i).Value 'ここの変数iを入れてください
Case Else
WsC.Cells(WsC.Rows.Count, 1). _
End(xlUp).Offset(1, 0).EntireRow.Value _
= .Rows(i).Value 'ここの変数iを入れてください
End Select
Next
End With
End Sub
ハズしてたらすいません^^
|
|