Maintain BOM, Maintainn Sample BOM, Maintain ECN, BOM structure list
BOM component Listing , BOM component Listing with cost , BOM component Enquiry , part where used enquiry
BOM , ECN Approval
Maintain substitution Entry
Production - Maintan MR, Maintian Multi-Level MR, Maintain Subcon PO,
Approval MR, Subcon PO, Maintain MCN
Report - MR status report, MR Checklist + Combine MR Checklist , Subcon PO Form, Subcon PO checklist
Yes, I miss it , You should add Material isse update, MR completion update, Return form line update,
Sub marco1()
Dim myCell1 As Range
Dim k As Integer
k = 1
For i = 1 To 6000
Set myCell = Worksheets("sheet1").Range("A" + CStr(i))
Set myCell1 = Worksheets("sheet1").Range("C" + CStr(i))
Set myCellD = Worksheets("sheet1").Range("D" + CStr(i))
Set myCellC1 = Worksheets("sheet1").Range("C" + CStr(i))
Set myCellC2 = Worksheets("sheet1").Range("C" + CStr(i + 1))
Set myCellC3 = Worksheets("sheet1").Range("C" + CStr(i + 2))
Set myCellC4 = Worksheets("sheet1").Range("C" + CStr(i + 3))
If myCell.Value <> "" Then
Worksheets("Sheet2").Range("A" + CStr(k)).Value = myCellD.Value
k = k + 1
End If
Set myCellB = Worksheets("sheet1").Range("B" + CStr(i))
If myCellB.Value = "Address" Then
Worksheets("Sheet2").Range("B" + CStr(k)).Value = LTrim(myCellC1.Value) + " " + LTrim(myCellC2.Value) + " " + LTrim(myCellC3.Value) + " " + LTrim(myCellC4.Value)
End If
If myCellB.Value = "Telephone" Then
Worksheets("Sheet2").Range("C" + CStr(k)).Value = LTrim(myCellC1.Value)
End If
If myCellB.Value = "Fax" Then
Worksheets("Sheet2").Range("D" + CStr(k)).Value = LTrim(myCellC1.Value)
End If
If myCellB.Value = "E-mail" Then
Worksheets("Sheet2").Range("E" + CStr(k)).Value = LTrim(myCellC1.Value)
End If
If myCellB.Value = "Website" Then
Worksheets("Sheet2").Range("F" + CStr(k)).Value = LTrim(myCellC1.Value)
End If
If myCellB.Value = "Contact" Then
Worksheets("Sheet2").Range("G" + CStr(k)).Value = LTrim(myCellC1.Value)
End If
Next i
End Sub
