insert cellls vba

[rakesh seebaruth]

Hi Guys

I have the following code

Cells(LR, 28).Value = txtCNum4.Value

In my useform txtCNum4 is a text box name Lease Period

What i want is when the user enters a number let's say 10.

vba inserts 10 cells after Cells(LR, 28) and i also want vba to add a heading month1 to month10 to those cells

thanks/regards

rakesh

 

[rakesh seebaruth]

Dear Paul

i am sending you my excel file thru dropbox and have a look at it ?

https://www.dropbox.com/s/y7lstauovd3iojd/5.xlsm?dl=0

When u click on the sheet2 userform just enter any number in Lease Period, Month1 to month should be on range AI1:A

thanks for your help

rakesh

 

[Paul Ked]

Then change the LR to 1

        Cells(1, 33 + i) = "Month " & i

 

[rakesh seebaruth]

thanks Paul it works.

Right now i am going to work. I have other issues. I will try to solve it.If it does not work i will revert to u.

Thanks again for your precious help

regards

rakesh

 

[rakesh seebaruth]

Hi Paul

I need your help


If Lease Period is equal to 5(for example) then add 5 columns and name it month 1 to month 5. It works fine.

Now if Installment is equal to 10,000 then it should populate cells Cells(2, 33) as per below

Month1 Month2 Month3 Month4 Month5

10,000 10,000 10,000 10,000 10,000

Thanks/regards


rakesh

 

[rakesh seebaruth]

For installement it is txtcNum9.Value

 

[Paul Ked]

I'm just about to go out, but the code is all there. Use the loop

    For i = 0 To txtCNum4.Value -1
        Cells(LR, [COLOR=#0000cd][I]1st column of [/I][/COLOR][COLOR=#0000cd][I]instalments[/I][/COLOR] + i) = textbox [I][COLOR=#0000cd]whatever the instalment is[/COLOR][/I]
    Next