Q: is this continually looping?
Many thanks for taking the time to have a look at my problem.
The code below does what its supposed to do in a nansecond The problem is, after it has produced the answer it carries on running, is it continually looping? I was hoping one of you guys can see what i have done wrong or offer a better solution... cheers.. seeya ste Public sSheetOne As String Public hRow As Long Public hCol As Long Public sRow As Long Public sCol As Long Public lHits(5) As Long Public lThi**** As Long Public lx As Long Public Sub HistoryCheck() sSheetOne = "Data Control" sRow = 2 Do While Not Sheets(sSheetOne).Cells(sRow, 1).Value = "" CheckThisData UpdateTotals Loop End Sub --------------------------------------- Private Sub CheckThisData() For lx = 0 To 5 lHits(lx) = 0 Next hRow = 2 Do While Not Sheets(sSheetOne).Cells(hRow, 1).Value = "" lThi**** = 0 For hCol = 2 To 6 For sCol = 9 To 13 If (Sheets(sSheetOne).Cells(hRow, hCol).Value = Sheets(sSheetOne).Cells(sRow, sCol).Value) Then lThi**** = (lThi**** + 1) End If Next Next lHits(lThi****) = (lHits(lThi****) + 1) hRow = (hRow + 1) Loop End Sub -------------------------------------- Private Sub UpdateTotals() For lx = 0 To 5 Sheets(sSheetOne).Cells(sRow, (14 + lx)).Value = lHits(lx) Next End Sub |
is this continually looping?
Taking a quick look at it, it certainly looks to be looping. As I see it,
you are doing a loop based upon column A in row sRow being empty, but you don't seem to increment sRow anywhere. You should add 1 within the Do Loop -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "ste mac" wrote in message om... Many thanks for taking the time to have a look at my problem. The code below does what its supposed to do in a nansecond The problem is, after it has produced the answer it carries on running, is it continually looping? I was hoping one of you guys can see what i have done wrong or offer a better solution... cheers.. seeya ste Public sSheetOne As String Public hRow As Long Public hCol As Long Public sRow As Long Public sCol As Long Public lHits(5) As Long Public lThi**** As Long Public lx As Long Public Sub HistoryCheck() sSheetOne = "Data Control" sRow = 2 Do While Not Sheets(sSheetOne).Cells(sRow, 1).Value = "" CheckThisData UpdateTotals Loop End Sub --------------------------------------- Private Sub CheckThisData() For lx = 0 To 5 lHits(lx) = 0 Next hRow = 2 Do While Not Sheets(sSheetOne).Cells(hRow, 1).Value = "" lThi**** = 0 For hCol = 2 To 6 For sCol = 9 To 13 If (Sheets(sSheetOne).Cells(hRow, hCol).Value = Sheets(sSheetOne).Cells(sRow, sCol).Value) Then lThi**** = (lThi**** + 1) End If Next Next lHits(lThi****) = (lHits(lThi****) + 1) hRow = (hRow + 1) Loop End Sub -------------------------------------- Private Sub UpdateTotals() For lx = 0 To 5 Sheets(sSheetOne).Cells(sRow, (14 + lx)).Value = lHits(lx) Next End Sub |
is this continually looping?
Thanks Bob, l will have a look...
seeya ste "Bob Phillips" wrote in message ... Taking a quick look at it, it certainly looks to be looping. As I see it, you are doing a loop based upon column A in row sRow being empty, but you don't seem to increment sRow anywhere. You should add 1 within the Do Loop -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "ste mac" wrote in message om... Many thanks for taking the time to have a look at my problem. The code below does what its supposed to do in a nansecond The problem is, after it has produced the answer it carries on running, is it continually looping? I was hoping one of you guys can see what i have done wrong or offer a better solution... cheers.. seeya ste Public sSheetOne As String Public hRow As Long Public hCol As Long Public sRow As Long Public sCol As Long Public lHits(5) As Long Public lThi**** As Long Public lx As Long Public Sub HistoryCheck() sSheetOne = "Data Control" sRow = 2 Do While Not Sheets(sSheetOne).Cells(sRow, 1).Value = "" CheckThisData UpdateTotals Loop End Sub --------------------------------------- Private Sub CheckThisData() For lx = 0 To 5 lHits(lx) = 0 Next hRow = 2 Do While Not Sheets(sSheetOne).Cells(hRow, 1).Value = "" lThi**** = 0 For hCol = 2 To 6 For sCol = 9 To 13 If (Sheets(sSheetOne).Cells(hRow, hCol).Value = Sheets(sSheetOne).Cells(sRow, sCol).Value) Then lThi**** = (lThi**** + 1) End If Next Next lHits(lThi****) = (lHits(lThi****) + 1) hRow = (hRow + 1) Loop End Sub -------------------------------------- Private Sub UpdateTotals() For lx = 0 To 5 Sheets(sSheetOne).Cells(sRow, (14 + lx)).Value = lHits(lx) Next End Sub |
All times are GMT +1. The time now is 11:26 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com