Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


43600 / 76732 ←次へ | 前へ→

【38179】番号で検索して空欄にコピーアンドペイストをする
質問  hana  - 06/5/29(月) 11:45 -

引用なし
パスワード
   こんにちは、下記の内容だとエラーが出るのですが
何故でしょうか?
お時間あるかた、アドバイスを御願い致します。

Sub kensakucopy()
'
'シート番号を検索して台帳へ反映させる
  
  Dim R As Range
  
With Worksheets(1)
   With .Range("D3", .Range("C65536").End(xlUp)).Offset(, 253)
     .Formula = "=IF(AND(D2="""",E2="""",F2=""""),1,"""")"
     On Error Resume Next
     Set R = .SpecialCells(xlCellTypeFormulas, 1)
     If Err.number <> 1004 Then
       R.Offset(, -253).Copy Worksheets(2).Range("M7")
     Else
       MsgBox "更新できません。", vbCritical
     End If
     On Error GoTo 0
     .Clear
   End With
End With
Set R = Nothing
End Sub

2 hits

【38179】番号で検索して空欄にコピーアンドペイストをする hana 06/5/29(月) 11:45 質問
【38180】Re:番号で検索して空欄にコピーアンドペイ... ハト 06/5/29(月) 12:00 回答
【38185】Re:番号で検索して空欄にコピーアンドペイ... hana 06/5/29(月) 12:46 お礼

43600 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free