运行错误91

花人花心

Sub 保存_Click()
If Sheet4.[b:b].Find(Sheet3.[i4]) = [i4] Then   ‘这个判断代码怎么写才对啊’
MsgBox "记录已存在！"
Else
If Sheets("送货单").Cells(7, 7) <> "" Then
   If Sheets("送货单").Cells(7, 4) <> "" Then
       If Sheets("送货单").Cells(7, 9) <> "" Then

Dim a As Long
a = Sheets("送货单").[G15].End(xlUp).Row
Sheets("送货单").Range("B7:L" & a).Select
Selection.Copy
Dim b As Long
b = Sheets("送货明细").[a65536].End(xlUp).Row + 1
Sheets("送货明细").Select
Sheets("送货明细").Cells(b, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'Sheets("送货单").Range("D7:D14").ClearContents
'Sheets("送货单").Range("G7:G14").ClearContents
'Sheets("送货单").Range("i7:i14").ClearContents
Sheets("送货单").Select
Sheets("送货单").Range("G7").Select
MsgBox "保存成功！"

Else
MsgBox "请输入 数量"
End If
    Else
    MsgBox "请输入 订单"
    End If
       Else
       MsgBox "请输入 规格型号"
       End If
        End If
End Sub

zzj198237

dim rng as range

set rng=Sheet4.[b:b].Find(Sheet3.[i4])

If rng.value = [i4] Then

花人花心

zzj198237 发表于 2020-3-8 16:24
dim rng as range

set rng=Sheet4..Find(Sheet3.)

谢谢、但是还是运行错误91！

花人花心

Sub 保存_Click()
Dim rng As Range
Set rng = Sheet4.[b:b].Find(Sheet3.[i4])
If rng.Value = [i4] Then
MsgBox "记录已存在！"

Else
If Sheets("送货单").Cells(7, 7) <> "" Then
   If Sheets("送货单").Cells(7, 4) <> "" Then
       If Sheets("送货单").Cells(7, 9) <> "" Then
         
Dim a As Long
a = Sheets("送货单").[G15].End(xlUp).Row
Sheets("送货单").Range("B7:L" & a).Select
Selection.Copy
Dim b As Long
b = Sheets("送货明细").[a65536].End(xlUp).Row + 1
Sheets("送货明细").Select
Sheets("送货明细").Cells(b, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'Sheets("送货单").Range("D7:D14").ClearContents
'Sheets("送货单").Range("G7:G14").ClearContents
'Sheets("送货单").Range("i7:i14").ClearContents
Sheets("送货单").Select
Sheets("送货单").Range("G7").Select
MsgBox "保存成功！"

Else
MsgBox "请输入 数量"
End If
    Else
    MsgBox "请输入 订单"
    End If
       Else
       MsgBox "请输入 规格型号"
       End If
        End If
End Sub

lsdongjh

If Not Sheet4.Range("B:B").Find(Sheet3.[I4]) Is Nothing Then

花人花心

lsdongjh 发表于 2020-3-9 13:50
If Not Sheet4.Range("B:B").Find(Sheet3.) Is Nothing Then

谢谢您 、解决了！
Sub 保存_Click()
If Not Sheet4.Range("B:B").Find(Sheet3.[I4]) Is Nothing Then
MsgBox "记录已存在！"

Else
If Sheets("送货单").Cells(7, 7) <> "" Then
   If Sheets("送货单").Cells(7, 4) <> "" Then
       If Sheets("送货单").Cells(7, 9) <> "" Then
         
Dim a As Long
a = Sheets("送货单").[G15].End(xlUp).Row
Sheets("送货单").Range("B7:L" & a).Select
Selection.Copy
Dim b As Long
b = Sheets("送货明细").[a65536].End(xlUp).Row + 1
Sheets("送货明细").Select
Sheets("送货明细").Cells(b, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'Sheets("送货单").Range("D7:D14").ClearContents
'Sheets("送货单").Range("G7:G14").ClearContents
'Sheets("送货单").Range("i7:i14").ClearContents
Sheets("送货单").Select
Sheets("送货单").Range("G7").Select
MsgBox "保存成功！"

Else
MsgBox "请输入 数量"
End If
    Else
    MsgBox "请输入 订单"
    End If
       Else
       MsgBox "请输入 规格型号"
       End If
        End If
End Sub