|
かみちゃん様
早速のご返答ありがとうございます。
説明不足で申し訳ございません....
エラーが出るのは、下記構文になります。
-----------------------------------------------------------------
If Sheets(5).Cells(i, 18).Value = Sheets(5).Cells(1, 13).Value _
And Sheets(5).Cells(i, 20).Value = Sheets(5).Cells(1, 14).Value _
And Sheets(5).Cells(i, 6).Value = "○" Then
------------------------------------------------------------------
上記一行づつテストしましたところ、(Sheets(5).Cells(i, 6).Value = "○")
は、式どおりにデータが抽出されましたが、下記2式が、
Sheets(5).Cells(i, 18).Value = Sheets(5).Cells(1, 13).Value
Sheets(5).Cells(i, 20).Value = Sheets(5).Cells(1, 14).Value
自分が思うとおりにデータが抽出されません.... (いちぶんずつ試しましたが
データが全く抽出されませんでした。)
また4行目〜100行目の6,13,14,18,20列にどのセルにもエラーとなる
ものはありませんでした。
同様のVBAは、過去にも数回作成したことがあるのですが、なぜか今回思う
ように行きません...
もしご迷惑でないようでしたら、私のG-mailよりかみちゃん様にexcelファイルを
お送りさせて頂き、拝見頂けましたら大変助かります。
私のG-mail addressは、ht7750@gmail.comになります。こちらにかみちゃん様
より空メールお送り頂けましたら、そのメールに添付しお送り致します。
よろしくお願い致します。
Hirota
▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>If A and B and C then, 〜 end ifの条件文でデータ抽出試みていますが、エラーメッセージ"型が合いません"が表示されます。
>
>どこのコードでエラーが出ているのでしょうか?
>
>左から5番目のシートの
>4行目〜100行目の6列め、13列め、14列め、18列め、20列めのいずれかのセルの値が
>エラーとなっているセルはありませんか?
|
|