MarkDShark
Board Regular
- Joined
- Jun 10, 2008
- Messages
- 228
I have a clear button that i use that adds 1 to a cell that i have that counts input sheets as they are filled and cleared, 1,2,3 and so on. Piece of code below to give you an idea, I know its incomeplete, but just wanted to show you it. Anyway, i wanted to be able to do the same thing with a Print button, but not sure how to do it. Hope you can help, thanks.
Dim x As Integer<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com
fficeffice" /><o
></o>
x = Range("V9").Value<o></o>
Range("V6").Select<o></o>
Selection.ClearContents<o></o>
Range("V8:V14").Select<o></o>
ActiveWindow.SmallScroll Down:=-51<o></o>
Range("V6").Select<o></o>
Selection.ClearContents<o></o>
x = x + 1<o></o>
Range("V9").Value = x<o></o>
Range("V9").Select<o></o>
Range("V6").Select<o></o>
Selection.ClearContents<o></o>
End Sub
Dim x As Integer<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com
fficeffice" /><o></o>x = Range("V9").Value<o
></o>Range("V6").Select<o
></o>Selection.ClearContents<o
></o>Range("V8:V14").Select<o
></o>ActiveWindow.SmallScroll Down:=-51<o
></o>Range("V6").Select<o
></o>Selection.ClearContents<o
></o>x = x + 1<o
></o>Range("V9").Value = x<o
></o>Range("V9").Select<o
></o>Range("V6").Select<o
></o>Selection.ClearContents<o
></o>End Sub
