1vJ7IguEWBfVakYkVCE5n3 changeset

Changeset323664646231 (b)
Parent353338353339 (a)
ab
1717                For y = address.StartRow To address.EndRow
1818                        cell = sheet.getCellByPosition(x, y)
1919                        If (cell.String = "") Then
...
20-                                Exit For
20+                                If (y = address.StartRow) Then
20+                                        Exit Sub
20+                                Else
20+                                        Exit For
20+                                End If
...
2121                        End If
2222                        ReplaceHyperlink(cell)
2323                Next
...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
--- Revision 353338353339
+++ Revision 323664646231
@@ -16,9 +16,13 @@
 	sheet = ThisComponent.Sheets(address.Sheet)
 	For x = address.StartColumn To address.EndColumn
 		For y = address.StartRow To address.EndRow
-			cell = sheet.getCellByPosition(x, y)
+			cell = sheet.getCellByPosition(x, y)					
 			If (cell.String = "") Then
-				Exit For
+				If (y = address.StartRow) Then
+					Exit Sub
+				Else
+					Exit For
+				End If
 			End If
 			ReplaceHyperlink(cell)
 		Next