blank cell, loop issues

[bradgar]

Hi there,

Thanks in advance for any help! This is all using VBA..

I am trying to have a userform automate some work I have to manually enter each time. I have column A self populate according to column B. With column B I am stuck though. In the userform I have a textbox to collect how many rows are to be populated.

I need column B to find the first blank cell in the column, then loop according to the input from the user form. For example if they input the number 10, then this macro will fill the next ten blank cells in column B.

any ideas?

 

[VoG]

Try something like

Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(Val(TextBox1.Value)).Value = whatever

 

[bradgar]

VoG Thank you so much, this worked PERFECTLY!! I cannot thank you enough, been stumped for hours.

I am curious though what the .resize(val.... is for/does?

thanks again!

 

[VoG]

The resize resizes the first blank cell to x rows deep where x is the value in your textbox. The Val() may be unnecessary like

Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(TextBox1.Value).Value = whatever

but I didn't test that.

P.S. In the VBE, if you click in a keyword like Resize then press F1 the help on that keyword will be displayed.

 

[bradgar]

Thanks again VoG saved my day/week!