エクセル 検索してデーターベースに転写

質問

伝票に入力したものをデーターベースに転写していくようにしていきたいのですが、

まず、Sheet2に図のような会員登録されてるものを作り、
Sheet1のA1、B1に会員番号、日付が入力されると
Sheet2のB行の該当番号の来店履歴に、H、I、J、K、L、、、、
と日付を記録していきたいのですが、
Hが空欄でなければIに記入、Iが空欄でなければJに、、、、、
と、IF関数だと限りがあると思うのですが、
そのはんだんを無限にできる式か、
または他にいい方法をご存知でしたら教えてください。

またもう一点、
この伝票とデーターベースのBOOKを1日1BOOKとして保存しようと思っているのですが、
次の日のブックでデータベースだけ引き継ぎ、伝票は記入されて無い状態で引き継ぎたいのですが、
簡単な方法だとどんな方法がありますか？

伝票のシートが10ぐらいあるので、伝票のみ保存したBOOKに、
新しいシートを作り、データーベースのシートのみを開ける方法とかあればいいのですが。

回答No.1

noname#192382

前半の課題のマクロができましたので回答いたします。シート2の最大列数をかりに20、行数を仮に10としてプログラムを作りましたが、現場では適宜修正してください。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2013/8/4 ユーザー名 :
'

Dim myretu As Integer, mygyo As Integer, gyo As Integer
For gyo = 5 To 10

If Worksheets(2).Cells(gyo, 2) = Worksheets(1).Cells(1, 1) Then
mygyo = gyo
Else

End If
Next

For myretu = 8 To 20
If Worksheets(2).Cells(mygyo, myretu) = "" Then
Worksheets(2).Cells(mygyo, myretu) = Worksheets(1).Cells(1, 2)
Exit For
Else
End If

Next

'
End Sub

お礼

ありがとうございます。