1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| Private Sub CommandButton1_Click()
Dim i As Integer
Dim k As Integer
For i = 25 To 10000
If Worksheets("V60").Cells(i + 1, 4).Value = "A" Or Worksheets("V60").Cells(i + 1, 4).Value = "" Or Worksheets("V60").Cells(i , 4).Value = "S" Then
i = i + 1
Else
Rows(i + 1).Insert
Worksheets("V60").Cells(i + 1, 2).Value = "TRUE"
Worksheets("V60").Cells(i + 1, 3).Value = Worksheets("V60").Cells(i, 5).Value
Worksheets("V60").Cells(i + 1, 4).Value = "A"
Worksheets("V60").Cells(i + 1, 5).Value = "Sys Generated"
k = 1
While Mid(Worksheets("Sheet1").Cells(i, 6).Value, k, 1) <> "-" And k < 50
k = k + 1
Wend
Worksheets("V60").Cells(i + 1, 6).Value = Mid(Worksheets("V60").Cells(i, 6).Value, 1, k - 2)
Worksheets("V60").Cells(i + 1, 7).Value = Worksheets("V60").Cells(i, 7).Value
Worksheets("V60").Cells(i + 1, 8).Value = Worksheets("V60").Cells(i, 8).Value
Worksheets("V60").Cells(i + 1, 9).Value = Worksheets("V60").Cells(i, 9).Value
Worksheets("V60").Cells(i + 1, 11).Value = Worksheets("V60").Cells(i, 11).Value
Worksheets("V60").Cells(i + 1, 12).Value = Worksheets("V60").Cells(i, 12).Value
Worksheets("V60").Cells(i + 1, 13).Value = Worksheets("V60").Cells(i, 13).Value
Worksheets("V60").Cells(i + 1, 19).Value = Worksheets("V60").Cells(i, 19).Value
Worksheets("V60").Cells(i + 1, 20).Value = Worksheets("V60").Cells(i, 20).Value
i = i + 1
End If
Next i
End Sub |
Partager