|
お世話になります。
シート間のコピー時、コピー先の書式設定(条件付書式)を活かす為
(コピー元の書式設定はコピーしたくない)に下記のようなコードを
記述しましたが、うまく動作しません。
↓
Private Sub CommandButton1_Click()
If UserForm7.OptionButton1.Value = True Then
Dim コピー元 As Range
Dim コピー先 As Range
元シート名 = "sheet1"
セル範囲 = "C10:Q349,S10:Z349,AB10:AD349,AG10:AN349,AU10:AX349"
新シート名 = "sheet2"
With Worksheets("sheet1").Activate
Set コピー元 = .Range("C10:Q349,S10:Z349,AB10:AD349,AG10:AN349,AU10:AX349")
End With
With Worksheets("sheet2").Activate
Set コピー先 = .Range("C10:Q349,S10:Z349,AB10:AD349,AG10:AN349,AU10:AX349")
End With
コピー先.Clear
コピー先.Value = コピー元.Value
『オブジェクトが必要です。』と言うメッセージが表示され実行が
中断してしまいます。どこか記述に間違いがありますでしょうか?
宜しくお願い致します。
|
|