Sub äîáàâèòü()
With Sheets("Èíôîðìàöèÿ ïî çàêàçàì")
lr = .Cells(Rows.Count, 12).End(xlUp).Row + 2
.Cells(lr, 2) = CStr(Sheets("Ôîðìà").TextBox1)
.Cells(lr, 3) = CDbl(Sheets("Ôîðìà").TextBox2)
.Cells(lr, 4) = CStr(Sheets("Ôîðìà").TextBox3)
.Cells(lr, 5) = CDate(Sheets("Ôîðìà").TextBox4)
rw = lr
For i = 11 To 25
If Cells(i, 4) = "Ïîëêè" Then
.Cells(rw, 6) = Cells(i, 5)
.Cells(rw, 7) = Cells(i, 7)
rw = rw + 1
End If
Next
sm = rw
rw = lr
For i = 11 To 25
If Cells(i, 4) = "Ñòîéêè" Then
.Cells(rw, 8) = Cells(i, 5)
.Cells(rw, 9) = Cells(i, 7)
rw = rw + 1
End If
Next
If rw > sm Then sm = rw
rw = lr
For i = 11 To 25
If Cells(i, 4) = "Äîï" Then
.Cells(rw, 10) = Cells(i, 5)
.Cells(rw, 11) = Cells(i, 7)
rw = rw + 1
End If
Next
If rw > sm Then sm = rw
.Cells(sm - 1, 12) = Cells(26, 9)
End With
Beep
End Sub