Mentransfer Data Antar Buku Kerja Berdasarkan Nilai di Sel Tertentu

Saya telah membuat formulir di Excel yang memindahkan informasi yang dimasukkan dalam formulir ke lembar yang berdekatan di buku kerja yang sama serta buku kerja agen saya di jalur file yang berbeda. Sepotong puzzle itu dipasang tepat di tempatnya! Bekerja seperti pesona!

Dari sini saya akan membuat dua buku kerja tambahan yang identik dengan agen pertama (3 agen semuanya) di mana informasinya juga akan disaring secara bersamaan.

Yang tidak bisa saya pahami adalah bagaimana cara merinci transfer lebih lanjut dengan hanya meminta informasinya pergi ke satu buku kerja jika nama agen tercantum dalam kolom tertentu.

Dalam kasus saya, nama agen saya di Kolom D . Ketika saya menekan transmit, saya ingin tahu apakah makro saya akan mengenali nama yang dimasukkan dalam sel spesifik itu dan merutekannya ke buku kerja agen khusus itu yang bertentangan dengan ketiga agen itu?

Saya tahu ini mungkin, tetapi otak kacang kecil saya tidak akan memungkinkan saya mengakses lagi sel-sel otak saya! Saya baru menulis di VBA, jadi saya mungkin kehilangan banyak hal. Bantuan apa pun akan dihargai. Kode saat ini yang saya miliki ada di bawah.

Private Sub CommandButton1_Click()

Dim DateReceived As Date
Dim CustomerName As String
Dim AcctNumber As Single
Dim AssignedAgent As String
Dim DisputeCode As Single
Dim ProjRespDate As Date
Dim DocUploadDate As Date
Dim DirectMailForm As Workbook

Worksheets("Form").Select
DateReceived = Range("G3")
CustomerName = Range("G4")
AcctNumber = Range("G5")
AssignedAgent = Range("G6")
DisputeCode = Range("G7")
ProjRespDate = Range("G8")
DocUploadDate = Range("G9")

Worksheets("Data").Select
Worksheets("Data").Range("A1").Select
RowCount = Worksheets("Data").Range("A1").CurrentRegion.Rows.Count
With Worksheets("Data").Range("A1")
.Offset(RowCount, 0) = DateReceived
.Offset(RowCount, 1) = CustomerName
.Offset(RowCount, 2) = AcctNumber
.Offset(RowCount, 3) = AssignedAgent
.Offset(RowCount, 4) = DisputeCode
.Offset(RowCount, 5) = ProjRespDate
.Offset(RowCount, 6) = DocUploadDate

End With

Worksheets("Form").Select
Worksheets("Form").Range("G3").Select
ActiveWorkbook.Save
Range("G3:G9").ClearContents

Set DisputeForm = Workbooks.Open("C:\Users\klx380\Documents\Consolidated_Dispute_Tracker_2014.xls")
Worksheets("Mail").Select
Worksheets("Mail").Range("A1").Select
RowCount = Worksheets("Mail").Range("A1").CurrentRegion.Rows.Count
With Worksheets("Mail").Range("A1")
.Offset(RowCount, 0) = DateReceived
.Offset(RowCount, 1) = CustomerName
.Offset(RowCount, 2) = AcctNumber
.Offset(RowCount, 3) = AssignedAgent
.Offset(RowCount, 4) = DisputeCode
.Offset(RowCount, 5) = ProjRespDate
.Offset(RowCount, 6) = DocUploadDate

End With

DisputeForm.Save
DisputeForm.Close


End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If [G9].Value <> "" Then
  CommandButton1.Enabled = True
Else: CommandButton1.Enabled = False
End If

End Sub