[[20181008081910]]　『ユーザーフォーム　テキストボックスの値をセルに』（みき）　ページの最後に飛ぶ

『ユーザーフォーム　テキストボックスの値をセルに反映』（みき）

お世話になります
教えてください
ユーザーフォーム　テキストボックスの値をセルに反映させたいのですが
C7から記入をはじめC18までとして

C18が入力済みの時は2列離れたE列に入力できるようにしたいです
E列が入力済みになったらG列にと入力させるにはどのようにすればいいのでしょうか

お手数おかけしますがご教示いただけたら幸いです

Private Sub CommandButton1_Click()

    If Worksheets("Sheet1").Range("c7").Value = "" Then

    Worksheets("Sheet1").Range("c7").Value = Me.TextBox1.Text
    Else

    Worksheets("Sheet1").Range("C7").End(xlDown).Offset(1, 0).Value = Me.TextBox1.Text
    End If
End Sub

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

 ちょっと検証してないので不具合があったら申し訳ありません。
 18行目のB・D・F列などの間の列のセルに何か値や数式が入ってなければ以下で良いと思います。
 間の列に値などが入っているならループで1つづつ検索するしかないですね。

 Private Sub CommandButton1_Click()
    Dim i As Long, k As Long

    With Worksheets("Sheet1")
        k = .Cells(18, Columns.Count).End(xlToLeft).Offset(, 2).Column
        i = .Cells(18, k).End(xlUp).Offset(1).Row
        If i < 7 Then i = 7
        .Cells(i, k).Value = Me.TextBox1.Text
    End With

 End Sub

（sy） 2018/10/08(月) 08:52

sy様

ありがとうございます

ちゃんと動きました
（みき） 2018/10/08(月) 09:10

コメント返信：

[ 一覧(最新更新順) ]

[[20181008081910]] 『ユーザーフォーム テキストボックスの値をセルに』（みき） ページの最後に飛ぶ

[[20181008081910]]　『ユーザーフォーム　テキストボックスの値をセルに』（みき）　ページの最後に飛ぶ