Hi,

imabsolutely new with VB and i guess this is very easybut for me still complicated task. I wanna copy the value from inputbox tonext empty row in the another sheet. I cant overcome the problem with type mismatch. So far i gotthis

Dim NC as Range
Dim CR, MyNym As String


MyNum = Application.InputBox("Enter an order number", Type:=2)
Set NC = Sheets("Sheet1").Cells(Cells.Rows.Count, Columns("A").Column).End(xlUp).Offset(1, 0)
Set CR = MyNum

CR.copy
NC.PasteSpecial (xlValues)
Application.CutCopyMode = False

I tried to change the data types to everything but wont work, any suggestions

thank u

HiMichal222

Welcome toVisual Basic General forum, This forum is for VB.NET questions only (e.g. Visual Basic 2003, Visual Basic 2005, Visual Basic 2008).

Sticky: For Visual Basic 6 questions, please read...

Sticky: For VBA, Office (VSTO), Macros and VBScript Questions

For VBA (Visual Basic for Applications), Macros or Excel Questions, you will get better support in the VBA Forum:
Visual Basic for Applications (VBA)
http://forums.microsoft.com/msdn/ShowForum.aspx?ForumID=74&SiteID=1

For developing add-ins for Office 2003 or 2007 products:
Visual Studio Tools for Office
http://forums.microsoft.com/msdn/ShowForum.aspx?ForumID=16&SiteID=1

For VBScript questions, search for a variety of resources or try:
VBScript Forums
http://www.visualbasicscript.com/ (A Non-Microsoft Site)

Best Regards
Xingwei Hu

---

Please remember to mark the replies as answers if they help and unmark them if they provide no help.