Excel VBA質問箱 IV

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

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


8171 / 13644 ツリー ←次へ | 前へ→

【34803】Application.Matchを使って見つからなかったとき K.K 06/2/13(月) 14:11 質問[未読]
【34806】Re:Application.Matchを使って見つからなか... Statis 06/2/13(月) 14:36 回答[未読]
【34814】Re:Application.Matchを使って見つからなか... K.K. 06/2/13(月) 17:31 お礼[未読]

【34803】Application.Matchを使って見つからなか...
質問  K.K  - 06/2/13(月) 14:11 -

引用なし
パスワード
   「Range("C8:C17")でFundNameを検索し、見つかればコピー」ということをやりたいです。

Dim j As Integer, RowCounter As Variant
Dim FundName(11) As String

FundName(1) = "A"
FundName(2) = "B"



FundName(10) = "J"

For j = 1 To 10
     RowCounter = Application.Match(FundName(j), Range("C8:C17"), 0)
     If Not RowCounter = "#N/A" Then
     Range(Cells(RowCounter + 7, "C"), Cells(RowCounter + 7, "M")).Copy

のコードを書いたのですが、"If Not RowCounter = "#N/A" Then"で「型が一致しません」のエラーが起きます。どういうコードにすれば良いのでしょうか。

【34806】Re:Application.Matchを使って見つからな...
回答  Statis  - 06/2/13(月) 14:36 -

引用なし
パスワード
   こんにちは

If Not IsError(RowCounte) then
  OKの場合
else
  見るから無かった場合
end if

【34814】Re:Application.Matchを使って見つからな...
お礼  K.K.  - 06/2/13(月) 17:31 -

引用なし
パスワード
   Statis さん、できました。ありがとうございました

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