Power Query Course in Spanish
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 2 of 2

Thread: Input Box Script

  1. #1
    Board Regular
    Join Date
    Apr 2002
    Posts
    138
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    I would like to have an input box where the inputted value will appear in the next open cell.
    For Example:
    If A4 has data, the inputted value will go into a5, and so forth.

    At the same time, I would like to assign the current date for that inputted record in the column next to it (in column B)
    For Example: A4 is used, the inputted value will appear in A5 with the today's date in B5.

    Can this be done.

  2. #2
    MrExcel MVP Al Chara's Avatar
    Join Date
    Feb 2002
    Location
    Newark, Delaware
    Posts
    1,701
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Sure it can be done. Try the following:
    Code:
    Sub InputData()
    inputstr = InputBox("Enter Data")
    Set Rng = [a1].End(xlDown).Offset(1, 0)
    Rng.Value = inputstr
    Rng.Offset(0, 1).Value = Date
    End Sub
    Best regards,
    Allan Chara
    http://www.mrspreadsheets.com

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •