EXCEL VBA データ抽出について
ユーザーフォームを利用して、データの管理を行なっております
各データには、コードを設定しており
検出時に利用しています
フォームでコードを入力する際には
前半（年・月） 後半（No.）で２か所に分けて入力しており
以下、コード前半⇒ コード１
コード後半⇒ コード２ ・・・としておきます
シートへの転記も、コード１はA列・コード２はB列に分けて書き込んでいます
以下は、コードからデータを検出し、その内容をテキストボックスへ表記するように
書いたコードですが、コード１のみでの検索になっております
コード２をどのように組み込めばいいのか、わからずとても困っています。
シート名 AllDate
コード１ TextBox36 （A列）
コード２ TextBox37 （B列）
１行目は項目名になっており、２行目からデータが蓄積されています。
また新規で登録した場合には、空欄最下部へフォームからシートへ転記されるように設定しています
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Worksheets("AllDate").Activate
Dim i As Long, kb As String
If TextBox36.Text = "" Then
MsgBox "検索する番号を入力してください"
Exit Sub
End If
For i = 2 To Range("A1").CurrentRegion.Rows.Count
If Cells(i, 1).Text = TextBox36.Text Then
kb = TextBox36.Text
Exit For
End If
Next
If kb = "" Then
MsgBox "指定した番号はありません"
Exit Sub
Else
Call ReadRecord(kb)
End If
TextBox36.Text = ""
TextBox37.Text = ""
End Sub
Sub ReadRecord(kb As String)
Dim rw As Long
Set kRange = Range("A1").CurrentRegion.Columns(1).Find(What:=kb, LookAt:=xlWhole)
If kRange Is Nothing Then
MsgBox "データがありません"
Exit Sub
End If
rw = kRange.Row
TextBox1.Text = Cells(rw, 1).Value
TextBox2.Text = Cells(rw, 2).Value
TextBox3Text = Cells(rw, 3).Value
TextBox4.Text = Cells(rw, 4).Value
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
また自分なりにも何とか模索しており、フィルターを使う方法も考えておりますが
何分まだまだ初心者LVの為、
こちらも難航しております。
フィルタを使用する場合
TextBox36の値で、A列にて抽出
抽出されたデータから、さらに
TextBox37の値で、B列にて抽出
重複データは存在しないので、A２行へ常に１件のデータが残り
それをセル指定で、テキストボックスへ転記さようと考えています。
また、修正⇒上書き作業も必要なので
フィルタで抽出したデータをテキストボックスへ表示させ
修正後、同様にA２行へ書き込み
その後、フィルター解除がいいのかな？と思っています。
長々となり恐縮なのですが
方法のオススめ
コードのご教授など
お力をお貸しいただけないでしょうか？
よろしくお願いいたします！！
