Range Set By Vba

[delta]

in this code check last blank row in sheet1 in Columun "A") than TextBox Value transfer in sheet1 last blank row in "C" column. in this macro run the value transfer from Range "C6" but i like TextBox value Transfer from Range "C2". Range " C1" is heading

Dim j As Long

Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row + 1
Dim ctrl As Control
  
  
  For j = 6 To 10
  Cells(Lastrow, "C").Value = Me.Controls("TextBox" & j).Value

  Lastrow = Lastrow + 1
  Next

 

[Hui]

It is not very clear exactly what you are trying to achieve

Can you post a sample file with an example before and after ?

 

[delta]

i upload image and sample file in this image i wish to current provision amount is start from "C2" columun

 

[Hui]

Try this

Sub test()

Application.ScreenUpdating = False

Dim i As Long
Dim Lastrow As Long

Lastrow = Cells(Rows.Count, "B").End(xlUp).Row

For i = 1 To 5
  Cells(Lastrow + i, "B").Value = Me.Controls("TextBox" & i).Value
  Cells(Lastrow + i, "C").Value = Me.Controls("TextBox" & CStr(5 + i)).Value
  Me.Controls("TextBox" & i).Value = ""
  Me.Controls("TextBox" & CStr(5 + i)).Value = ""
Next
Application.ScreenUpdating = True

End Sub

 

[delta]

Great! Perfect Answer
Many Many Thanks Hui Sir,

but pls explain use fo "CStr" meaning

 

[Hui]

Cstr() converts the contents to Strings
So they can be appended to the preening term

 

[delta]

thanks...