colmguckian
New Member
- Joined
- Feb 11, 2011
- Messages
- 35
I have a code which defines Range1 as Range("A" & I, "A" & I + 15).Name = "Range1
Instead Of adding the 15 rows to the range, I would like the range
to stop one row before the next bold cell.
What would i need to do to the below code to achieve this
Dim I As Integer, DFuzzyMatchByWord As Double, C As Range
For I = 1 To 500
DFuzzyMatchByWord = FuzzyMatchByWord((ComboBox2.Value), Workbooks("Book1").Worksheets("Sheet1").Range("A" & I).Value)
If DFuzzyMatchByWord > 80 Then
Workbooks("Book1").Worksheets("Sheet1").Range("A" & I, "A" & I + 15).Name = "Range1"
End If
Next I
Instead Of adding the 15 rows to the range, I would like the range
to stop one row before the next bold cell.
What would i need to do to the below code to achieve this
Dim I As Integer, DFuzzyMatchByWord As Double, C As Range
For I = 1 To 500
DFuzzyMatchByWord = FuzzyMatchByWord((ComboBox2.Value), Workbooks("Book1").Worksheets("Sheet1").Range("A" & I).Value)
If DFuzzyMatchByWord > 80 Then
Workbooks("Book1").Worksheets("Sheet1").Range("A" & I, "A" & I + 15).Name = "Range1"
End If
Next I
