textbox content to cells merge

[sna]

Hi Dear!
Hopefully You're all doing fine.I need to transfer data from textbox to merge cells.the cells not having merge but when I run code cell itself should merge with value from Textbox1.
I create a code but when click button nothing happened

Code: Select all

Dim BottomA As Long,i As Long
With Sheets("Sheet1")
BottomA=.Range("a"&Rows.Count).End(xlUp).Row
For i=2 To BottomA Step 2
.Range("a"&i &":a"&i+1).Merge
.Range("a"&i).MergeArea.Value=Me.TextBox1.Value
Next 
End with

I wait for your kind response
Thank you in advance

[puriwutpokin]

Try

Code: Select all

BottomA=.Range("a"&Rows.Count).End(xlUp).Row+2

[sna]

Thanks but I need that if I type hi it will merge a2:a3 ,I type hello a4:a5, good a6:a7 and so on

Thanks

[puriwutpokin]

Sample code

Code: Select all

With Sheets("KONTRAK")
bottomA = .Range("A" & Rows.Count).End(xlUp).Row + 2
If .Range("a2").Value = "" Then
.Range("a2:a3").Merge
.Range("a2").Value = Me.TextBox1.Text
Else
For i = 2 To bottomA Step 2
.Range("a" & i & ":a" & i + 1).Merge
.Range("a" & bottomA).Value = Me.TextBox1.Text
Next i
End If
Me.TextBox1.Text = ""
End With

[sna]

Thank you

[sna]

I have turn code to the below.i try to start merge at a2 but no luck
here's my code,how to fix it

Code: Select all

Sub test()
With Sheets ("Sheet1")
Dim BottomA As Long,i As Long
BottomA=.Range("a"&Rows.Count).End(xlUp).Row
n=BottomA
. Range ("a"&i+2 & ":a"&i+3).Merge
. Range ("a"&i+2).MergeArea.Value=Me.TextBox1.Text
End With

Thanks

[puriwutpokin]

Sample the code post#4 already merge at A2:A3.
What's the problem with the original code?

[sna]

It is not working fine

[sna]

The code wrong typo should be but it isn't starting in a2

Code: Select all

Sub test()
With Sheets ("Sheet1")
Dim BottomA As Long,i As Long
BottomA=.Range("a"&Rows.Count).End(xlUp).Row
i=BottomA
. Range ("a"&i+2 & ":a"&i+3).Merge
. Range ("a"&i+2).MergeArea.Value=Me.TextBox1.Text
End With

[sna]

Thanks puriwutpokin
I forget add 2 to bottomA
bottomA = .Range("A" & Rows.Count).End(xlUp).Row + 2

Now it is working fine...

Thank you