教えてください。
sheet1にデータがあり
sheet2にチェックボックスとコマンドボタンがあります。
チェックボックスにレ点を入れ、コマンドボタンを押すと
sheet1の該当する列をコピーして、sheet3に貼り付ける
マクロを作ろうと思ってますがうまくいきません。
下記のマクロを使えるように手直ししていただけないでしょうか。
よろしくお願い致します。
Private Sub CommandButton1_Click()
Dim myrange As String
Dim rmax As Long
rmax = Sheets("sheet1").Range("A2").End(xlDown).Row
With Sheets("sheet2")
If .CheckBox1 Then myrange = myrange & ",$B$1:$B$" & rmax
If .CheckBox2 Then myrange = myrange & ",$C$1:$C$" & rmax
If .CheckBox3 Then myrange = myrange & ",$D$1:$D$" & rmax
End With
If myrange = "" Then
MsgBox "チェックしてください"
Exit Sub
End If
myrange = "$A$2:$A$" & rmax & myrange
Sheets("sheet1").Range(myrange).Copy
Sheets("sheet3").Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets("sheet3").Select
End Sub
↧