help on repeat skips rows in exel

Scripting Forums AppleScript | Mac OS X
,
#1

Hi
I could use some help on this script.
it works fine on every second row,
The used range is 18 rows, and stays 18 rows in the event log, though in the workbook it is 36 rows, any suggestions?
thanks
bills



tell application "Microsoft Excel"
	activate
	accept all changes active workbook
	activate object worksheet 1
	set ur to (get used range of active sheet)
	
	repeat with i from 1 to count row in ur
		set v1 to cell 1 of row i
		set v2 to cell 2 of row i
		set v3 to cell 3 of row i
		set v4 to cell 4 of row i
		set v5 to cell 5 of row i
		set v6 to cell 6 of row i
		set v7 to cell 7 of row i
		if value of v1 is 3 then
			if value of v2 is 42 then
				set value of v1 to 1003
				set value of v2 to 1004
			end if
		end if
		if value of v1 is 3 then
			if value of v3 is 42 then
				set value of v1 to 1003
				set value of v3 to 1004
			end if
		end if
		if value of v1 is 3 then
			if value of v4 is 42 then
				set value of v1 to 1003
				set value of v4 to 1004
			end if
		end if
	end repeat
	end tell
#2

Hi bills,
It seems to work better the opposite way round!!!

tell application "Microsoft Excel"
	activate
	accept all changes active workbook
	activate object worksheet 1
	set ur to (get used range of active sheet)
	repeat with i from 1 to count row in ur
		set v1 to value of cell 1 of row i
		set v2 to value of cell 2 of row i
		set v3 to value of cell 3 of row i
		set v4 to value of cell 4 of row i
		set v5 to value of cell 5 of row i
		set v6 to value of cell 6 of row i
		set v7 to value of cell 7 of row i
		if v1 is 3 and v2 is 42 then
			set value of cell 1 of row i to 1003
			set value of cell 2 of row i to 1004
		else if v1 is 3 and v3 is 42 then
			set value of cell 1 of row i to 1003
			set value of cell 3 of row i to 1004
		else if v1 is 3 and v4 is 42 then
			set value of cell 1 of row i to 1003
			set value of cell 4 of row i to 1004
		end if
	end repeat
end tell

Thanks,
Nik

#3

HI
Thanks Nik, appreciate the help.
regards
bill