Go to Differant Cells After entering
 

I am setting up a spreadsheet for measuring parts. I am using a gag
input tool which enters data into excel by a push of a button. I nee
help with getting the cell pointer to go from b3,c3,b4,c4 and so on
all the way to c38 then to e3,f3,e4,f4 and so on all the way to f38.
am new at VBA. Please if anyone can help

--
Message posted from http://www.ExcelForum.com

Go to Differant Cells After entering
 

Hi

One way is to select the range first and use the Tab key.

Sub test()
Range("B3:C38,E3:F38").Select
Range("B3").Activate
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"mporter501 " wrote in message ...
I am setting up a spreadsheet for measuring parts. I am using a gage
input tool which enters data into excel by a push of a button. I need
help with getting the cell pointer to go from b3,c3,b4,c4 and so on
all the way to c38 then to e3,f3,e4,f4 and so on all the way to f38. I
am new at VBA. Please if anyone can help.


---
Message posted from http://www.ExcelForum.com/

Go to Differant Cells After entering
 

OK this is what I tried It gives me a Method'Range' of object'_Globa
Failed. Is my range to big? Do I need to break it into groups? If s
how do I do That?
Sub TEST()
Range("b3,c3,b4,c4,b5,c5,b6,c6,b7,c7,b8,c8,b9,c9,b 10,c10,b11,c11,b12,c12,b13,c13,b14,c14,b15,c15,b16 ,c16,b17,c17,b18,c18,b19,c19,b20,c20,b21,c21,b22,c 22,b23,c23,b24,c24,b25,c25,b26,c26,b27,c27,b28,c28 ,b29,c29,b30,c30,b31,c31,b32,c32,b33,c33,b34,c34,b 35,c35,b36,c36,b37,c37,b38,c38,e3,f3,e4,f4,e5,f5,e 6,f6,e7,f7,e8,f8,e9,f9,e10,f10,e11,f11,e12,f12,e13 ,f13,e14,f14,e15,f15,e16,f16,e17,f17,e18,f18,e19,f 19,e20,f20,e21,f21,e22,f22,e23,f23,e24,f24,e25,f25 ,e26,f26,e27,f27,e28,f28,e29,f29,e30,f30,e31,f31,e 32,f32,e33,f33,e34,f34,e35,f35,e36,f36,e37,f37,e38 ,f38").Select
Range("B3").Activate

End Su

--
Message posted from http://www.ExcelForum.com

Go to Differant Cells After entering
 

My code is all you need
Run it and use the TAB key to go to the next cell

--
Regards Ron de Bruin
http://www.rondebruin.nl


"mporter501 " wrote in message ...
OK this is what I tried It gives me a Method'Range' of object'_Global
Failed. Is my range to big? Do I need to break it into groups? If so
how do I do That?
Sub TEST()

Range("b3,c3,b4,c4,b5,c5,b6,c6,b7,c7,b8,c8,b9,c9,b 10,c10,b11,c11,b12,c12,b13,c13,b14,c14,b15,c15,b16 ,c16,b17,c17,b18,c18,b19,c19,b20
,c20,b21,c21,b22,c22,b23,c23,b24,c24,b25,c25,b26,c 26,b27,c27,b28,c28,b29,c29,b30,c30,b31,c31,b32,c32 ,b33,c33,b34,c34,b35,c35,b36,c36
,b37,c37,b38,c38,e3,f3,e4,f4,e5,f5,e6,f6,e7,f7,e8, f8,e9,f9,e10,f10,e11,f11,e12,f12,e13,f13,e14,f14,e 15,f15,e16,f16,e17,f17,e18,f18,e
19,f19,e20,f20,e21,f21,e22,f22,e23,f23,e24,f24,e25 ,f25,e26,f26,e27,f27,e28,f28,e29,f29,e30,f30,e31,f 31,e32,f32,e33,f33,e34,f34,e35,f
35,e36,f36,e37,f37,e38,f38").Select
Range("B3").Activate

End Sub


---
Message posted from http://www.ExcelForum.com/