| 
    
     |  | >早速試してみたのですが、下記の部分でエラー"13"で型が存在しません >と出るのですが、何故なのでしょうか?何もおかしい事
 >はない気がするのですが・・・
 >
 >>    'データ位置全てに就いて繰り返し
 >>    For i = 0 To UBound(vntPos)
 >>      'データ位置のデータを順番に転記
 
 このエラーが出るのは、多分、vntPosの変数に配列データが無く、
 ただのVariant型の変数として認識されている為と思われます
 
 UserFormの「Private Sub Userform_Initialize()」のイヴェントに
 以下のコードが有りますか?
 
 '「"確認表"の元データーは色々なセルに散乱しています」
 'のセル位置を順番に列挙
 vntPos = Array("K5", "D7")
 
 此れが無いと、実行時エラーの13がでるようです
 
 私のUpしたコードを全て記述していますか?
 後、多分関係無いと思いますが
 
 本来「Private Sub Userform_Initialize()」と成るのですが、
 Upした物が「Private Sub userform_Initialize()」と成って居るので
 これも直して下さい
 
 また、其れでも上手く行かない様なら、
 素人さんの記述した、UserFormのコードを全文Upして見て下さい
 
 |  |