Macro Help (pasting values into several columns)

[juliorevka]

itemPrice is a number that is inputted by the user. I want this number to be pasted on several columns (C to N) on a specific user inputted row. Running this gives me an application-defined or object-defined error due to "Range(Cells(theRow, C)).Value = itemPrice".

    
    'Request user to input location of new row
    theRow = Application.InputBox("Enter row #: ")
    'Request new pricing
    itemPrice = Application.InputBox("Price of New Item: ")

    'Loop through every month to set the price
    Range(Cells(theRow, C)).Value = itemPrice
    Range(Cells(theRow, C)).Select
    Selection.Copy
    Range(Cells(theRow, C), Cells(theRow, N)).Select
    Sheet2.Paste

[tigeravatar]

juliorevka,

It looks like its because your code is referencing a variable C and a variable N instead of giving the Cells() statement the string values "C" and "N" for the column letters. Put quotation marks around "C" and "N"

[Domski]

Try:

    'Request user to input location of new row
    therow = Application.InputBox("Enter row #: ")
    'Request new pricing
    itemPrice = Application.InputBox("Price of New Item: ")
    'Set the price
    Range("C" & therow & ":N" & therow).Value = itemPrice

Dom

[juliorevka]

Adding a quotation marks made a different type of error appear, but Domski's code worked.

How exactly do the "&" signs within range work?

[Domski]

They concatenate the various parts into a single string like Range("C2:N2")

Dom