Excel VB Help - URGENT - Printable Version
-Shoutbox (https://shoutbox.menthix.net)
+-- Forum: MsgHelp Archive (/forumdisplay.php?fid=58)
+--- Forum: Skype & Technology (/forumdisplay.php?fid=9)
+---- Forum: Tech Talk (/forumdisplay.php?fid=17)
+----- Thread: Excel VB Help - URGENT (/showthread.php?tid=71238)
Excel VB Help - URGENT by M73A on 01-31-2007 at 04:06 PM
code:
Sub AddOrder()
'
' AddOrder Macro
' Macro recorded 26/01/2007 by 21may_g
'
'
Sheets("Data Arrange").Select
Range("B5:N5").Select
Selection.Copy
Dim cellcontents As Integer
Sheets("Orders").Select
Range("A5").Select
cellcontents = Range("A65536").End(xlUp).Select
cellcontents = ActiveCell.Value
cellcontents = cellcontents + 1
ActiveCell.Offset(1, 0) = cellcontents
Selection.PasteSpecial Paste:=xlPasteValues
is my macro....
This is the result.
![[Image: excelbt2.jpg]](http://img219.imageshack.us/img219/5465/excelbt2.jpg)
Click to enlarge
what i want to do is described in the picture, even my ict teacher cant get it to work ¬_¬ i was ment to start testing on monday, and i cant get this bit finished.
Thanks