کد:
Private Sub CommandButton1_Click()
Dim f As Range
Dim c As Range
Dim n
Windows("book1.xlsx").Activate
For Each f In Sheet1.Range("a1:a5")
If f.Value <> "" Then
Windows("Vlookup With VB(2).xlsm").Activate
For Each c In Sheet6.Range("a1:a5")
If f.Value = c.Value Then
n = Application.WorksheetFunction.CountA(Sheet1.Range("B1:B5"))
Sheet1.Range("B1").Offset(n, 0).Value = c.Offset(0, 1).Value
Sheet1.Range("B1").Offset(n, 1).Value = c.Offset(0, 2).Value
Sheet1.Range("B1").Offset(n, 2).Value = c.Offset(0, 3).Value
Sheet1.Range("B1").Offset(n, 3).Value = c.Offset(0, 4).Value
Sheet1.Range("B1").Offset(n, 4).Value = c.Offset(0, 5).Value
Exit For
End If
Next c
End If
Next f
MsgBox "END"
End Sub
اگر باز نيست اين خط رو هم اضافه كنيد
علاقه مندی ها (Bookmarks)