Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code Help Needed
Hi ! Can someone help me to modify the code below? The module start from the last row, read Columns "D" & "E" then fil the values into Columns "K" to "R". I need to add in one condition i.e. whenever it encounters the firs Column "K" is "NOT EMPTY" then "EXIT THE SUB" otherwise continue t process until the first "Col K" is "NOT EMPTY". Many rows of datas ar add in everyday to "Col D & Col E". So to speed up the updating proces I just need to update "Col K" to "Col R" that have not been update instead of running the code from the last row until the first row fo every execution. I hope I have clearly explained. Please kindly add in or modify th code. SUB FILLDATA() DIM MYRANGE AS RANGE DIM MYROW AS LONG DIM I AS INTEGER DIM J AS INTEGER DIM MYCNT AS INTEGER WITH ACTIVESHEET.USEDRANGE MYROW = .ROWS(.ROWS.COUNT).ROW END WITH WHILE MYROW 0 MYCNT = 0 SET MYRANGE = RANGE(\"D\" & MYROW & \":E\" & MYROW) FOR I = 1 TO -MYROW + 2 STEP -1 FOR J = 1 TO 2 IF APPLICATION.COUNTIF(RANGE(\"K\" & MYROW & \":R\" & MYROW), _ MYRANGE.CELLS(I, J).VALUE) = 0 THEN IF ISEMPTY(RANGE(\"K\" & MYROW)) THEN RANGE(\"K\" & MYROW).VALUE = MYRANGE.CELLS(I, J).VALUE RANGE(\"L\" & MYROW).RESIZE(1, 7).CLEARCONTENTS ELSE RANGE(\"IV\" & MYROW).END(XLTOLEFT)(1, 2).VALUE = _ MYRANGE.CELLS(I, J).VALUE END IF MYCNT = MYCNT + 1 IF MYCNT = 8 THEN GOTO FOUND8: END IF NEXT J NEXT I FOUND8: MYROW = MYROW - 1 WEND END SUB Regards, Michae -- Michael16 ----------------------------------------------------------------------- Michael168's Profile: http://www.excelforum.com/member.php...info&userid=60 View this thread: http://www.excelforum.com/showthread.php?threadid=26126 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Better code needed | Excel Programming | |||
Code Fix Needed | Excel Programming | |||
VBA code Help needed | Excel Programming | |||
Fw:code needed | Excel Programming | |||
code needed | Excel Programming |