Hoi,
Ik heb een werkblad die ik graag wil vertalen naar een parent-child relatie. Mijn werksheet ziet er als volgt uit.
Ik zou graag bij elk part de parent-child relatie willen weergeven, zoals hier is afgebeeld:
Hiervoor gebruikt ik het volgende script:
Dan krijg ik de volgende error:
Iemand suggesties waar de error vandaan komt en hoe ik dit moet oplossen?
Groet,
Tom
Ik heb een werkblad die ik graag wil vertalen naar een parent-child relatie. Mijn werksheet ziet er als volgt uit.
Ik zou graag bij elk part de parent-child relatie willen weergeven, zoals hier is afgebeeld:
Hiervoor gebruikt ik het volgende script:
Sub rebuild()
' initialize constant for your excel file '
Dim StartingLine As Integer
StartingLine = 3
Dim Column_Level As Integer
Column_Level = 1
Dim Column_ParentRef As Integer
Column_ParentRef = 2
Dim Column_PartRef As Integer
Column_PartRef = 3
' other technical variables '
Dim j As Integer
Dim StoreParents(40) As String
'initialize first parent Part Number '
initParent = Cells(StartingLine, 5)
' Start rebuilding BOM '
j = StartingLine
While Cells(j, Column_Level) <> ""
If (CInt(Cells(j, Column_Level)) > CInt(Cells(j - 1, Column_Level))) Then
' level has increased so parentref is previous line part ref '
StoreParents(Cells(j - 1, Column_Level)) = Cells(j - 1, Column_PartRef)
Cells(j, Column_ParentRef) = Cells(j - 1, Column_PartRef)
ElseIf (CInt(Cells(j, Column_Level)) < CInt(Cells(j - 1, Column_Level))) Then
' level has decreased so parentref is the stored partRef of new level - 1 '
Cells(j, Column_ParentRef) = StoreParents(Cells(j, Column_Level) - 1)
Else
' no level change, we keep the same ParentRef '
Cells(j, Column_ParentRef) = Cells(j - 1, Column_ParentRef)
End If
' move to next line '
j = j + 1
Wend
End Sub
Dan krijg ik de volgende error:
Iemand suggesties waar de error vandaan komt en hoe ik dit moet oplossen?
Groet,
Tom
Bijlagen
Laatst bewerkt: