单元格中的变量加入数字，宏就不运行了

n6x1u3v6

Sub chaozhao()
Dim sH As Worksheet, rg As Range, sg As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = False
  Set sH = Worksheets("生产日报")  '从”生产日报“中读
With sH
    Set rg = .Range("A:A").Find("7-11D", , xlValues, xlPart)
End With
  Worksheets("准备车间").Activate
  Set sH = Worksheets("准备车间")
With sH
    Set sg = .Range("F:F").Find("7/11", lookat:=xlWhole)
   If Not sg Is Nothing Then
   Sheets("准备车间").Cells(sg.Row, "M") = Sheets("生产日报").Cells(rg.Row, "M")‘
   End If
   End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
在这句话中，把 Sheets("准备车间").Cells(sg.Row, "M") = Sheets("生产日报").Cells(rg.Row, "M")‘ 中的 cells(rg.row,"m")改为cells(rg.row+3,"M"),程序就报错了，怎么回事，请教。

n6x1u3v6

忘记加附件了，传上附件，请高手看下。

不知道为什么

n6x1u3v6 发表于 2018-7-29 22:48
忘记加附件了，传上附件，请高手看下。

测试没问题啊

abc123281

看了你的代码  也不明白你要干什么

n6x1u3v6

不知道为什么 发表于 2018-7-29 23:15
测试没问题啊

Sub chaozhao()
Dim sH As Worksheet, rg As Range, sg As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = False
  Set sH = Worksheets("生产日报")  '从”生产日报“中读
With sH
    Set rg = .Range("A:A").Find("7-11D", , xlValues, xlPart)
End With
  Worksheets("准备车间").Activate
  Set sH = Worksheets("准备车间")
With sH
    Set sg = .Range("F:F").Find("7/11", lookat:=xlWhole)
   If Not sg Is Nothing Then
   Sheets("准备车间").Cells(sg.Row, "M") = Sheets("生产日报").Cells(rg.Row+3, "M")‘
   End If
   End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
把代码改成如上，测试不会报错，但是要求的数字复制到另一个表格中，确没有变化。

n6x1u3v6

abc123281 发表于 2018-7-29 23:31
看了你的代码  也不明白你要干什么

主要是想把  Sheets("生产日报").Cells(rg.Row+3, "M")    单元格的值赋给  Sheets("准备车间").Cells(sg.Row, "M") ，程序没有报错，但是没有达到想要的效果

microyip

除了rg在Set完之后没进行是否is nothing判断外，完全看不出有什么问题，也不知道楼主写的是什么意思

n6x1u3v6

可是，我如果采用这样的代码，Sheets("准备车间").Cells(sg.Row, "M") = Sheets("生产日报").Cells(rg.Row, "M")‘，数值就能从复制过来；如果采用这样的代码   Sheets("准备车间").Cells(sg.Row, "M") = Sheets("生产日报").Cells(rg.Row+3, "M")‘ 数值就复制不过来，虽然也没有报错。

区别就在于，rg.row+3

n6x1u3v6

感谢各位的帮忙，已经找到问题了，程序写的没有错，只是因为我把该出现的位置，计算错了，再次感谢各位。那个位置按照我的程序，是应该出现空格。