求助！要把（信息没有填写完整，不能保存@保存成功）这两个提示模块去除

excelltaaaaa

Sub 保存()
Application.ScreenUpdating = False
Dim n%, m%, x%, y%, k%
On Error GoTo 100
    If Sheets("数据库").[A:A].Find([A3]) = [A3] Then
        MsgBox "此单已经保存过了！"
    Else
100:
        If [B3] = "" Or [I3] = "" Or [J3] = "" Then MsgBox "信息没有填写完整，不能保存！": End
        m = Sheets("数据库").[A65536].End(xlUp).Row + 1
        With Sheets("数据库")
            .Cells(m, "A").Value = [A3] '单号
            .Cells(m, "B").Value = [B3] '日期
            .Cells(m, "C").Value = [C3] '产线
            .Cells(m, "D").Value = [D3] '长
            .Cells(m, "E").Value = [E3] '宽
            .Cells(m, "F").Value = [F3] '厚
            .Cells(m, "G").Value = [G3] '支数
            .Cells(m, "H").Value = [H3] '平米数
            .Cells(m, "I").Value = [I3] '仓库
            .Cells(m, "J").Value = [J3] '库存方向
        End With
        MsgBox "保存成功！"
    End If
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub

excelltaaaaa

请高手帮忙看一下

abc123281

如果去除了保存时就有单号重复了

abc123281

Sub 保存()
Application.ScreenUpdating = False
m = Sheets("数据库").[A65536].End(xlUp).Row + 1
With Sheets("数据库")
    .Cells(m, "A").Value = [A3] '单号
    .Cells(m, "B").Value = [B3] '日期
    .Cells(m, "C").Value = [C3] '产线
    .Cells(m, "D").Value = [D3] '长
    .Cells(m, "E").Value = [E3] '宽
    .Cells(m, "F").Value = [F3] '厚
    .Cells(m, "G").Value = [G3] '支数
    .Cells(m, "H").Value = [H3] '平米数
    .Cells(m, "I").Value = [I3] '仓库
    .Cells(m, "J").Value = [J3] '库存方向
End With
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub

excelltaaaaa

abc123281 发表于 2019-2-17 20:35
Sub 保存()
Application.ScreenUpdating = False
m = Sheets("数据库").[A65536].End(xlUp).Row + 1

谢谢老师！

excelltaaaaa

求助！运行代码提示对象变量或With变量未设置

excelltaaaaa

abc123281 发表于 2019-2-17 20:35
Sub 保存()
Application.ScreenUpdating = False
m = Sheets("数据库").[A65536].End(xlUp).Row + 1

老师能不能帮忙看下6楼这个是什么问题，我要保存的是A3到J33的所有数据

abc123281

Sub 保存()
Dim m%, r%
On Error GoTo 100
If Sheet1.[a:a].Find([a3]) = [a3] Then
  MsgBox "此单已经保存过了！"
Else
100:
If [B3] = "" Or [I3] = "" Or [J3] = "" Then MsgBox "信息没有填写完整，不能保存！": End
  m = Sheets("数据库").[A65536].End(xlUp).Row + 1
  r = [a9999].End(3).Row
  Range("a3:j" & r).Copy Sheets("数据库").Range("a" & m)
  MsgBox "保存成功！"
  ActiveWorkbook.Save
End If
End Sub

excelltaaaaa

abc123281 发表于 2019-2-26 10:07
Sub 保存()
Dim m%, r%
On Error GoTo 100

非常感谢你的 多次帮忙！谢谢！

excelltaaaaa

abc123281 发表于 2019-2-26 10:07
Sub 保存()
Dim m%, r%
On Error GoTo 100

在次请教老师一个问题  如果我要保存的是C3到N33的所有数据，代码要怎么改。本人是小白，自己解决不了。