２つの条件が一致した場合です

質問

下記のコードは、工事元帳複写シートのＬ列の金額を工事台帳に記述するものです。

Sub 工事台帳記述()
Dim iRow As Long
Dim FoundCell1 As Variant, FoundCell2 As Variant
Dim MySheet1 As Worksheet, MySheet2 As Worksheet
Set MySheet1 = Worksheets("工事台帳")
Set MySheet2 = Worksheets("工事元帳複写")
Set FoundCell1 = MySheet2.Range("F:F").Find(what:=MySheet1.Range("E1").Value, LookIn:=xlValues, LookAt:=xlWhole)
＜工事元帳複写のF列の値が工事台帳のＥ１に一致＞
Set FoundCell2 = MySheet1.Range("C14:O14").Find(what:=FoundCell1.Offset(0, 23).Value, LookIn:=xlValues, LookAt:=xlWhole)
＜工事台帳のＣ１４からＯ１４までのコードが工事元帳複写のＡＣ列の
値と一致したら日付等を工事台帳に以下のコードで記述＞
iRow = MySheet1.Range("a10000").End(xlUp).Row + 1
MySheet1.Cells(iRow, 1).Value = FoundCell1.Offset(0, -4).Value
MySheet1.Cells(iRow, 1).NumberFormatLocal = "m月d日"
MySheet1.Cells(iRow, 2).Value = FoundCell1.Offset(0, 20).Value
MySheet1.Cells(iRow + 1, 2).Value = FoundCell1.Offset(0, 21).Value
FoundCell2.Offset(iRow - 14, 0).Value = FoundCell1.Offset(0, 6).Value
End Sub

このコードではＦ列の値が同一の場合には一つしか記述しません。
上記で記述した下の行につづけて表示したいのです。
ご指導お願いします

回答No.1

myRange · ベストアンサー

Findメソッドのヘルプを見ましたか？
検査値が複数ヒットする場合のコードもちゃんと載ってます。
質問者のレベルならそれを見れば簡単に理解できると思いますが。
もし、それでも分からなければ再質問
と、いうことでどうでしょう。

それから、再質問するときは次のことも提示するべきでしょう。

提示のコードでは、２つのFindメソッドとも
検査値がヒットしない場合の処理がないが
これは故意に省いているのか？

お礼

ありがとうございました