User:JaeDyWolf/sandbox

Call maobjCourse(lngCourseCount).NewDiv(1, 0) lngCurrentDiv = lngCurrentDiv + 1 lngCurrentSynd = 1 Do Until wsSheet.Range("A1").Offset(5 + lngCurrentSynd, lngCurrentColumn).Value = "" Or lngCurrentSynd > clngNumberOfSynds

Call maobjCourse(lngCourseCount).Div(lngCurrentDiv).NewSynd(CLng(wsSheet.Range("A1").Offset(5 + lngCurrentSynd, lngCurrentColumn).Value)) lngCurrentResource = 0 lngCurrentResourceRow = 1 strTempResourceName = "" Do Until wsSheet.Range("A1").Offset(calngRowsBeforeResourceList(lngCurrentSynd) + lngCurrentResourceRow - 1, lngCurrentColumn).Value = "" Or lngCurrentResourceRow > 10 If Not wsSheet.Range("A1").Offset(calngRowsBeforeResourceList(lngCurrentSynd) + lngCurrentResourceRow - 1, lngCurrentColumn).Value = strTempResourceName Then lngCurrentResource = lngCurrentResource + 1 strTempResourceName = wsSheet.Range("A1").Offset(calngRowsBeforeResourceList(lngCurrentSynd) + lngCurrentResourceRow - 1, lngCurrentColumn).Value Call maobjCourse(lngCourseCount).Div(lngCurrentDiv).Synd(lngCurrentSynd).NewResource(wsSheet.Range("A1").Offset(calngRowsBeforeResourceList(lngCurrentSynd) + lngCurrentResourceRow - 1, lngCurrentColumn).Value, 1) Else Call maobjCourse(lngCourseCount).Div(lngCurrentDiv).Synd(lngCurrentSynd).Resource(lngCurrentResource).IncreaseQuantity End If lngCurrentResourceRow = lngCurrentResourceRow + 1 Loop lngCurrentSynd = lngCurrentSynd + 1 Loop