Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Ant ideas?
I will be honest my code writting is very basic, and mostly copied of other people, or picked up from recorded macro's. Basically i a looking to do something pretty clever, but i have no idea where t start. Can anyone write a code to do the following for me? As it stands i have a macro copying data into cells A:E. At the end o the macro i have the code - Offset.(1, 0) in order to move down a ro each time, thus creating an extending list of data. What i am looking to do is enter a reference number into a cell, the the macro to look up this refence number and find it in column A select it, then clear contents of this row for the cells A:E only After that i need to fnd the very last piece of data in column (remembering there will now be blanks in the list)and then move down cell, thus returning to the start point so that more data can be copie in from the first macro. As i said, if anyone knows how to do this i will be really grateful. Tomp -- Tomp ----------------------------------------------------------------------- Tompy's Profile: http://www.excelforum.com/member.php...fo&userid=1473 View this thread: http://www.excelforum.com/showthread.php?threadid=26352 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Ant ideas?
Dim res as Variant, rng as Range
res = InputBox("Enter a number") if res = "" then msgbox "No entry" exit sub End if if not isnumeric(res) then msgbox "You must enter a number" Else res = clng(res) set rng = columns(1).find(res) if not rng is nothing then rng.Resize(1,5).Clearcontents Else msgbox res & " not found" End if End if set rng = cells(rows.count,1).End(xlup)(2) rng.Select -- Regards, Tom Ogilvy "Tompy" wrote in message ... I will be honest my code writting is very basic, and mostly copied off other people, or picked up from recorded macro's. Basically i am looking to do something pretty clever, but i have no idea where to start. Can anyone write a code to do the following for me? As it stands i have a macro copying data into cells A:E. At the end of the macro i have the code - Offset.(1, 0) in order to move down a row each time, thus creating an extending list of data. What i am looking to do is enter a reference number into a cell, then the macro to look up this refence number and find it in column A, select it, then clear contents of this row for the cells A:E only. After that i need to fnd the very last piece of data in column A (remembering there will now be blanks in the list)and then move down 1 cell, thus returning to the start point so that more data can be copied in from the first macro. As i said, if anyone knows how to do this i will be really grateful. Tompy -- Tompy ------------------------------------------------------------------------ Tompy's Profile: http://www.excelforum.com/member.php...o&userid=14732 View this thread: http://www.excelforum.com/showthread...hreadid=263526 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
any ideas if this can be done | Excel Worksheet Functions | |||
Any Ideas? | Excel Worksheet Functions | |||
Any Ideas | Excel Discussion (Misc queries) | |||
Any ideas? | Excel Programming | |||
Any ideas? | Excel Programming |