命令按钮用于在不同表格上进行审批

我正在尝试创建审批流程，为此，我有一个汇总表，当前显示报价的详细信息，然后显示详细信息表单，其中我我正在记录已批准的内容。目前，您在第二个工作表中输入要约信息（要约详情），然后审批人可以查看下拉框以查看哪些内容已打开并需要批准。我有一切工作，除了我需要批准者点击一个按钮，它会将批准者的用户名和日期发送到“优惠详情”选项卡上的相应单元格。我在H1中创建了一个关键字，它允许代码找到正确的行，在商品详情页面上的列B与H1中的摘要选项卡中的内容相匹配。命令按钮用于在不同表格上进行审批

我有下面这段代码，但它不工作。用户名需要进入商品明细表中第M列的单元格（一旦它根据摘要中的键找到正确的行）。它必须硬编码，所以我可以保留它用于审计目的。

如果这没有道理让我知道，我会尽力澄清。

谢谢！

Private Sub CommandButton1_Click() 
Dim rng As Range 
Dim cell As Object 
With Sheets("Offer Details") 
    Set rng = Sheets("Offer Details").Range("B1:B1000") 
    For Each cell In rng 
     If cell.Value = Sheets("Offer Details").Cells(1, 8) Then 
      cell.Offset(0, 12).Value = Environ("USERNAME") 
      Exit For 
     End If 
    Next 
End With 
End Sub

来源

2017-02-10 Lisa

'Cell'将在列'B'。如果你抵消了12列，这不是列'N'？另外，由于您使用'With With Sheets（“Offer Details”）'，因此在'With'语句中，您不需要重复它。您可以简单地使用前导'.'，即'Set rng = .Range（“B1：B1000”）'。 – BruceWayne

，如果你需要科拉姆“M”是每一次，以了解您的代码你可以这样做：

Private Sub CommandButton1_Click() 
Dim rng As Range 
Dim cell As Object 
Dim inc as Integer 
With Sheets("Offer Details") 
    Set rng = .Range("B1:B1000") 
    For Each cell In rng 
     inc = inc + 1 
     If cell.Value = .Cells(1, 8) Then 
      .Range("M" & inc) = Environ("USERNAME") 
      Exit For 
     End If 
    Next 
End With 
End Sub

来源

2017-02-10 16:50:42

由于某些原因，它仍然无法正常工作。当我按下按钮时，什么都没有发生。有什么建议么？ – Lisa

没关系，我只是指定了工作表，它工作。非常感谢你！ – Lisa

不客气。如果问题解决了，如果答案很好，你能标记答案吗？ –

命令按钮用于在不同表格上进行审批

回答

相关问题