Excel VBA質問箱 IV

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

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


7576 / 13646 ツリー ←次へ | 前へ→

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

【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

【38180】Re:番号で検索して空欄にコピーアンドペ...
回答  ハト  - 06/5/29(月) 12:00 -

引用なし
パスワード
   おはようございます


>With Worksheets(1)
>   With .Range("D3", .Range("C65536").End(xlUp)).Offset(, 253)
↑ここでエラーだと思います
Range でC,D列を指定してOffset(,253)だと、IV列とその次を指定してますので
エラーになってるのかと

D3→C3 または Offset(,253)→Offset(,252)

で試してみてください

【38185】Re:番号で検索して空欄にコピーアンドペ...
お礼  hana  - 06/5/29(月) 12:46 -

引用なし
パスワード
   ハトさん

有難う御座います。
エラーが出なくなりました。


▼ハト さん:
>おはようございます
>
>
>>With Worksheets(1)
>>   With .Range("D3", .Range("C65536").End(xlUp)).Offset(, 253)
>↑ここでエラーだと思います
>Range でC,D列を指定してOffset(,253)だと、IV列とその次を指定してますので
>エラーになってるのかと
>
>D3→C3 または Offset(,253)→Offset(,252)
>
>で試してみてください

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