господа всем доброго дня,
как сделать так, чтобы после выбора арт и нажатии кнопки "Add to DB",
лист "Заявк" "обнулился" ?

су
Lenus

извините, но я не знаю как обозначить тему топика

я приношу мои извинения,но куда вставить это (Worksheets("Заявок").Cells.Delete)
вот мой макрос:
Sub UpdateLogWorksheet()
Dim MyValue As Variant, d, i

Dim historyWks As Worksheet
Dim inputWks As Worksheet

Dim nextRow As Long
Dim oCol As Long

Dim myRng As Range
Dim myCopy As String
Dim myCell As Range

'cells to copy from Input sheet - some contain formulas
myCopy = "C5,C7,C10,C11,C12"

Set inputWks = Worksheets("øàáëîí")
Set historyWks = Worksheets("çàêàç")

With historyWks
nextRow = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0).Row
End With

With inputWks
Set myRng = .Range(myCopy)
' If Application.CountA(myRng) <> myRng.Cells.Count Then
' MsgBox "Please fill in all the cells!"
' Exit Sub
' End If
End With
For Each MyValue In myRng
If MyValue.Value = "" Then MsgBox ("Please fill in " & Cells(MyValue.Row, 2).Value & " !"): MyValue.Select: Exit Sub
Next



With ActiveWorkbook.Worksheets("çàêàç").Columns(3)
Set c = .Find(Range("C5").Text, LookIn:=xlValues, LookAt:=xlWhole)
End With
If Not c Is Nothing Then
hhh = c.Row 'íîìåð ñòðîêè â êîòîðîé íàéäåí íîìåíêëàòóðíèê
MsgBox "Íàéäåíî â ñòðîêå ¹ " & hhh
ActiveWorkbook.Worksheets("çàêàç").Cells(hhh, 4).Value = ActiveWorkbook.Worksheets("çàêàç").Cells(hhh, 4).Value + Range("C7").Value
Else
With historyWks
' With .Cells(nextRow, "A")
' .Value = Now
' .NumberFormat = "dd/mm/yyyy"
' End With
' .Cells(nextRow, "B").Value = Application.UserName
oCol = 3
For Each myCell In myRng.Cells
historyWks.Cells(nextRow, oCol).Value = myCell.Value
oCol = oCol + 1
Next myCell
d = 0
For i = 1 To nextRow
If Val(.Cells(i, 1).Value) > d Then d = Val(.Cells(i, 1).Value)
Next i
.Cells(nextRow, 1).Value = d + 1
End With
End If


'clear input cells that contain constants
With inputWks
On Error Resume Next
With .Range(myCopy).Cells.SpecialCells(xlCellTypeConstants)
.ClearContents
Application.GoTo .Cells(1) ', Scroll:=True
End With
On Error GoTo 0
End With
End Sub

[quot udgeen69]Удалить все с листа:
отлично работает, но моя задача такова:
если: лист "Шаблон" С5 (выбран Арт), то нажимаем кномпу Add to DB и эта строка
должна удалиться из листа "заявк"

чаво-о ?чаво-о?
простите но я не понимаю

может быть так? (искать на листе "заявк") но почему выпадает ошибка....

Worksheets("заявк").Rows(Trim(Str(A2:P20)) & ":" & Trim(Str(A2:P20))).Delete shift:=xlUp

простите, за мою тупость, но как я узнаю ее номер?

udgeen69

Спасибо огромное! у меня уже мозги опухли !