業務日報データベースにフォームから入力

質問

すいません。初心者なもので何が違うのか、足りないのかわからないので教えてください。

　１行目はデータベースタイトル行となり以下、Ａ列に日にち、B列に仮に「text１」という商品の売買数、C列に「text２」の売買数が並びます。
　とりあえず、件数入力というユーザーフォームを作成しました。
入力後「入力完了」ボタンでフォームのtextbox「入力」の日にちとＡ列が合致したところの行にデータベースにコピー（転記）されるものを作りたいのです。
以下はわからないまま作った（いろいろ写した）コードです。
Private Sub 入力完了_Click()
Dim i0 As Integer
For i0 = 2　To 400
If Sheets("入力").Cells(i0, 1).Value = 件数入力.入力.Value Then
件数入力.textbox_1.Value = Sheets("入力").Cells(i0, 2)
件数入力.textbox_2.Value = Sheets("入力").Cells(i0, 3)
End If
Next i0
End Sub
？？？何が足りないのかわかりません。あとこれを修正すれば、修正用に「入力」（日にち）を入れれば、セルの値が「textbox_1」「textbox_2」に表示されるようになりますか？

回答No.1

noname#31387 · ベストアンサー

TextBox1=日にち
TextBox2=「text１」という商品の売買数
TextBox3=「text２」の売買数
としています。
Withは簡単ですのでヘルプで調べてください。
下記が参考になればいいのですが。
Dim f As Long
With Sheets("入力")
　　　For f = 2 To 400
　　　　　If .Cells(f, 1).Value = Me.TextBox1.Value Then
　　　　　　　.Cells(f, 2).Value = Me.TextBox2.Value
　　　　　　　.Cells(f, 3).Value = Me.TextBox3.Value
　　　　　End If
　　　Next
End With

あと
400回ループしていますがループは最終行までで良いのでは？
>「入力」（日にち）を入れれば、セルの値が「textbox_1」「textbox_2」
>に表示されるようになりますか？
なります。

補足

ありがとうございます。（TT)

End　ifとnext
の順番が違うというのが一番の原因かな？と自分なりには理解しました・・・が、もうひとつ甘えさせてください。「コンパイルエラー：nextに対応するforがありません」と出ますがどのような場合が想定されるのでしょうか？

回答No.2

noname#31387

For ・・・
・
Next

With・・・
・
End With

Next
End With
等の記入漏れですかね。
対になっているコードを確認してください。

先に書いたようにインデントを付けると間違いがすくないかもです。