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
| Sub stock()
Dim i As Integer, j As Integer
Dim x As Integer, y As Byte
Dim Fam As String, r As Integer
x = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
y = Sheets(2).Cells(1, Columns.Count).End(xlToLeft).Column
Sheets(2).Cells(3, y + 1) = "."
For i = 1 To x
If Sheets(1).Cells(i, 4) = "" Then
Fam = Sheets(1).Cells(i, 2) & Sheets(1).Cells(i, 3)
For j = 1 To y
If Sheets(2).Cells(1, j) & Sheets(2).Cells(2, j) = Fam Then
r = Sheets(2).Cells(65535, y + 1).End(xlUp).Row
Sheets(2).Cells(r + 1, y + 1) = "."
Sheets(2).Cells(r, j) = Sheets(1).Cells(i, 1)
Sheets(1).Cells(i, 4) = "."
Exit For
End If
Next j
End If
Next i
End Sub |
Partager