셀에서 데이터를 찾고 이전 데이터를 업데이트하는 VBA

Question

데이터를 바꿀 코드를 얻으려고합니다. 여기에 내 시나리오가있다. Sheet2에서 아래쪽에있는 데이터 A2는 Month (1,2,3)이고 B2는 해당 연도 (2012)이고 c2, d2, e2는 숫자 데이터 (200, 150,50)입니다.

Now, In sheet1 월/분기를 선택하는 드롭 다운 목록에 대한 표 A22가 있습니다. B22 년. C22 : E22는 선택한 월 및 연도 수치 데이터를 편집합니다.

In Sheet1 In A22-April B22-2012를 선택하고 C22 : E22에 새로운 값을 입력하고 편집 버튼을 클릭하십시오. 이전에 입력 한 값에 대한 시트 2 테이블의 변경 내용을보고 싶습니다.

Sub edit() 

Dim s1 As Worksheet, s2 As Worksheet 
Set s1 = Sheets("Sheet1") 
Set s2 = Sheets("Sheet2") 
v1 = s1.Range("A22") 
v2 = s1.Range("B22") 
v3 = s1.Range("C22") 
v4 = s1.Range("D22") 
v5 = s1.Range("E22") 
s2.Activate 
For Each r In Intersect(ActiveSheet.UsedRange, Range("A:E")) 
If r.Value = v1 Then 
r.Offset(0, 1).Value = v2 
r.Offset(0, 2).Value = v3 
End If 
Next 

Worksheets("Sheet1").Range("A22:E22").ClearContents 

End Sub 

어떤 도움을 주시면 감사하겠습니다. 감사! 이 같은

Answer 1

뭔가 :

Sub SaveEdit() 

Dim s1 As Worksheet, s2 As Worksheet 
Dim bFound as boolean, r as Range 

Set s1 = Sheets("Sheet1") 
Set s2 = Sheets("Sheet2") 

v1 = s1.Range("A22") 
v2 = s1.Range("B22") 
v3 = s1.Range("C22") 
v4 = s1.Range("D22") 
v5 = s1.Range("E22") 

If v1<>"" and v2<>"" Then 
    For Each r In Intersect(s2.UsedRange, s2.Range("A:E")).Rows 
     If r.cells(1).Value = v1 and r.cells(2).Value=v2 Then 
     r.cells(3).Value = v3 
     r.cells(4).Value = v4 
     r.cells(5).Value = v5 
     bFound = True 
     s1.Range("A22:E22").ClearContents 
     End If 
    Next 
    If Not bFound then msgbox "No match found for this record!" 
Else 
    msgbox "both Year and Month are required!" 
End If 


End Sub