• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

how to enter 5 value on 5 rows of 1 column-Via input box or other form method..

Dear Sir,

how to enter 5 value on 5 rows of 1 column-Via input box or other form method..?


Require this for enter some numbers below like Columns X-Row1 To End (not fixed ..how many number...as per situation required) but if it must be put by keyboard...

this numbers require there for run a macro for do its job...for each numbers..

input box take 1 value per one try..if form present with about 5 blank boxes..
we can put in it 1 or 2 or may 5 numbers that entered below x1 to last of form entry..

hope your co-operation
Regards,
Chirag Raval
 
Dear Belleke,

Exactly ...same...what I want...
if 3 entry done, want to below more 4 entry,, & then more 2 entry,
can be happen to preserve previous entry & can be add more?

how can I become this form as a part of my macro which loops for every number ?

again thanks for your help..

Regards,
Chirag Raval
 
Dear Belleke,

Exactly...same...which I required...
thank you very much..& appreciated...

how can I take this action as part of my macro that run for each entry get by your form?

little help require....

Regards,
Chirag Raval
 
Here is an auto fill macro that will fill sequential numbers for a determined number of cells in a particular column.

Code:
Sub AutoNumberFill()
    Dim x As Long
    Dim rn As Long
    Dim cn As String, sn As Long
    cn = InputBox("Which Column to fill?")
    rn = InputBox("How many rows to fill?")
    sn = InputBox("Which row to start fill?")

    Application.ScreenUpdating = False
    Application.StatusBar = "Macro Running"
    x = 1
    Range(cn & sn).Select
    Do Until ActiveCell.Row = rn + sn
        If ActiveCell.EntireRow.Hidden = False Then
            ActiveCell.Value = x
            x = x + 1
        End If
        ActiveCell.Offset(1).Select
    Loop
    Application.ScreenUpdating = True
    Application.StatusBar = "Completed"
End Sub
 
Dear Sir Alan Sidman,

Thank you very much for your help ...& get your macro
that run very well... & will use it in may many macros ..
thanks...

actually I have a macro that run for random Buyer numbers which found on some fixed location (column name fixed in code) that like below Column y1=11345 , Y2 =11401 Y3 = 15445 etc..my macro runs for every number below column y & separate files for each buyers...

i received solution from Belleke...that also as per my requirement.

i just want (& get) that type of form so we can not go far on sheet to enter buy numbers ...as macro start ---form open...enter buyer no & macro run for that buyer nos..that's it...

but actually i don't know hot to integrate this (Belleke's) form with my
macro?? how i call this form frommy macro??

help will be appreciated..

Regards,

Chirag Raval
 
Back
Top