1

Я создал форму в Excel, которая перемещает информацию, введенную в форму, на соседний лист в той же книге, а также книгу моих агентов по другому пути к файлу. Этот кусок головоломки установлен прямо на месте! Работает как шарм!

Отсюда я собираюсь создать две дополнительные рабочие книги, идентичные первому агенту (всего 3 агента), где информация также будет фильтроваться одновременно.

Чего я не могу понять, так это как детализировать передачу, передавая информацию только в одну рабочую книгу, если имя оператора указано в определенном столбце.

В моем случае имя моих агентов указано в столбце D. Когда я нажимаю «передать», я хотел бы знать, распознает ли мой макрос имя, введенное в эту конкретную ячейку, и направит его к этой конкретной книге агентов, в отличие от всех трех агентов?

Я знаю, что это возможно, но мой маленький горошиный мозг не даст мне больше доступа к моим мозговым клеткам! Я новичок в написании VBA, так что, может быть, я много скучаю. Любая помощь будет оценена. Текущий код, который у меня на месте, ниже. 

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
|источник

0