Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8173 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 さん、できました。ありがとうございました
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8173 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free