다른 시트의 승인을위한 명령 버튼

Question

지금 승인 프로세스를 만들고 싶습니다. 그렇게하기 위해 제안의 세부 정보를 보여주는 요약 시트와 그 다음에 세부 시트가 있습니다. 승인 된 일지 기록 유지. 현재 두 번째 시트에 쿠폰 정보를 입력하면 (제공 세부 정보) 승인자가 승인 된 액티비티를 보려면 드롭 다운 상자를 볼 수 있습니다. 나는 버튼을 클릭하기 위해 승인자가 필요하고 승인자의 사용자 이름과 날짜를 Offer Detail 탭의 해당 셀로 보냅니다. H1의 코드를 제공하는 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 

Answer 1

당신이 콜 럼 "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