Hi guys,
I have tried to use the input box to fill down a range, and used this code:
Code
Sub test()
a = InputBox("Enter the value you want")
b = "a" & WorksheetFunction.CountA(Range("a1", "a30000")) + 1
Range(b) = a
End Sub
Now when I tried to make the inputbox send text to a specific sheet, I tried to use this:
Code
Sub Dynamic_Input()
a = InputBox("Enter the value you want")
b = WorksheetFunction.CountA(Worksheets("Sheet2").Range("a1", "a30000")) + 1
c = Worksheets("Sheet2").Range("A1"&b)
Range(c) = a
End Sub
This second try did'nt work, can some one tell me what i am doing wrong? Also, I specifically wanted to try and see how to use the counta instead of using a loop function
thanks!