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