前回、質問した件で、追加で質問させていただきます。
前回の質問は、sheet2のチェックボックスによって、sheet1の列をコピーして、sheet3にペーストするという内容でした。
keithin様からご回答いただき問題は解決しましたが、修正を加えなくてはならなくなりました。
sheet2のチェックボックスによってsheet1の列とsheet4の列をコピーして、sheet3にペーストしようと頑張りましたが、解決できそうにありません。
尚、sheet1とsheet4の行数は同じで、sheet1とsheet4のA列は同じ内容なので必要ありません。
下記が前回のベストアンサーです。
private sub CommandButton1_Click()
dim res as range
dim rmax as long
dim i as integer
dim flg as boolean
rmax = worksheets("Sheet1").range("B1").end(xldown).row
set res = worksheets("Sheet1").range("A1:A" & rmax)
for i = 1 to 20
if worksheets("Sheet2").oleobjects("CheckBox" & i).object.value then
set res = union(res, worksheets("Sheet1").range("A1:A" & rmax).offset(0, i))
flg = true
end if
next i
if not flg then
msgbox "NO CHECK"
exit sub
end if
res.copy
worksheets("Sheet3").range("A1").pastespecial paste:=xlpastevalues
worksheets("Sheet3").select
end sub
keithin様 無断で借用させていただきました。申し訳ございません。
↧