Hello,
I have the below code running on a form. It works of the "CBEditContainer" (ComboBox). on the same form i have TextBox "TBAgentJobNo" can i add this to below code so when it searches and opens the next form it searchs base on both the ComboBox "CBEditContainer" and TextBox "TBAgentJobNo".
Do I need to make Agent Job No. column Dynamic as well?
Private Sub CommandButton1_Click()
Dim TargetRow As Integer
TargetRow = Application.WorksheetFunction.Match(CBEditContainerNo, Sheets("Data").Range("ContainerNoDyn"), 0)
Sheets("Engine").Range("B5").Value = TargetRow
Unload AddEDO
AddEDODetails.TBNFLJobNo = Sheets("Data").Range("Data_Start").Offset(TargetRow, 0).Value
AddEDODetails.CBJobStatus = Sheets("Data").Range("Data_Start").Offset(TargetRow, 1).Value
AddEDODetails.TBJobType = Sheets("Data").Range("Data_Start").Offset(TargetRow, 2).Value
AddEDODetails.TBAgent = Sheets("Data").Range("Data_Start").Offset(TargetRow, 3).Value
AddEDODetails.TBAgentJobNo = Sheets("Data").Range("Data_Start").Offset(TargetRow, 4).Value
AddEDODetails.TBDeliveryClient = Sheets("Data").Range("Data_Start").Offset(TargetRow, 6).Value
AddEDODetails.TBNoOfItems = Sheets("Data").Range("Data_Start").Offset(TargetRow, 27).Value
AddEDODetails.CBItemType = Sheets("Data").Range("Data_Start").Offset(TargetRow, 28).Value
AddEDODetails.TBOk_to_Book_Date = Sheets("Data").Range("Data_Start").Offset(TargetRow, 31).Value
AddEDODetails.TBVessel = Sheets("Data").Range("Data_Start").Offset(TargetRow, 42).Value
AddEDODetails.TBInVoyage = Sheets("Data").Range("Data_Start").Offset(TargetRow, 44).Value
AddEDODetails.CBShippingLine = Sheets("Data").Range("Data_Start").Offset(TargetRow, 50).Value
AddEDODetails.TBPin = Sheets("Data").Range("Data_Start").Offset(TargetRow, 55).Value
AddEDODetails.TBEDOWeight = Sheets("Data").Range("Data_Start").Offset(TargetRow, 53).Value
AddEDODetails.CBPlaceOfEmptyReturn = Sheets("Data").Range("Data_Start").Offset(TargetRow, 51).Value
AddEDODetails.TBEDOSealNo = Sheets("Data").Range("Data_Start").Offset(TargetRow, 54).Value
AddEDODetails.TBContainerNo = Sheets("Data").Range("Data_Start").Offset(TargetRow, 16).Value
AddEDODetails.CBContainerType = Sheets("Data").Range("Data_Start").Offset(TargetRow, 17).Value
AddEDODetails.TBTSSealNo = Sheets("Data").Range("Data_Start").Offset(TargetRow, 25).Value
AddEDODetails.TBTSWeight = Sheets("Data").Range("Data_Start").Offset(TargetRow, 29).Value
AddEDODetails.Show
End Sub
Regards,
Dale.
I have the below code running on a form. It works of the "CBEditContainer" (ComboBox). on the same form i have TextBox "TBAgentJobNo" can i add this to below code so when it searches and opens the next form it searchs base on both the ComboBox "CBEditContainer" and TextBox "TBAgentJobNo".
Do I need to make Agent Job No. column Dynamic as well?
Private Sub CommandButton1_Click()
Dim TargetRow As Integer
TargetRow = Application.WorksheetFunction.Match(CBEditContainerNo, Sheets("Data").Range("ContainerNoDyn"), 0)
Sheets("Engine").Range("B5").Value = TargetRow
Unload AddEDO
AddEDODetails.TBNFLJobNo = Sheets("Data").Range("Data_Start").Offset(TargetRow, 0).Value
AddEDODetails.CBJobStatus = Sheets("Data").Range("Data_Start").Offset(TargetRow, 1).Value
AddEDODetails.TBJobType = Sheets("Data").Range("Data_Start").Offset(TargetRow, 2).Value
AddEDODetails.TBAgent = Sheets("Data").Range("Data_Start").Offset(TargetRow, 3).Value
AddEDODetails.TBAgentJobNo = Sheets("Data").Range("Data_Start").Offset(TargetRow, 4).Value
AddEDODetails.TBDeliveryClient = Sheets("Data").Range("Data_Start").Offset(TargetRow, 6).Value
AddEDODetails.TBNoOfItems = Sheets("Data").Range("Data_Start").Offset(TargetRow, 27).Value
AddEDODetails.CBItemType = Sheets("Data").Range("Data_Start").Offset(TargetRow, 28).Value
AddEDODetails.TBOk_to_Book_Date = Sheets("Data").Range("Data_Start").Offset(TargetRow, 31).Value
AddEDODetails.TBVessel = Sheets("Data").Range("Data_Start").Offset(TargetRow, 42).Value
AddEDODetails.TBInVoyage = Sheets("Data").Range("Data_Start").Offset(TargetRow, 44).Value
AddEDODetails.CBShippingLine = Sheets("Data").Range("Data_Start").Offset(TargetRow, 50).Value
AddEDODetails.TBPin = Sheets("Data").Range("Data_Start").Offset(TargetRow, 55).Value
AddEDODetails.TBEDOWeight = Sheets("Data").Range("Data_Start").Offset(TargetRow, 53).Value
AddEDODetails.CBPlaceOfEmptyReturn = Sheets("Data").Range("Data_Start").Offset(TargetRow, 51).Value
AddEDODetails.TBEDOSealNo = Sheets("Data").Range("Data_Start").Offset(TargetRow, 54).Value
AddEDODetails.TBContainerNo = Sheets("Data").Range("Data_Start").Offset(TargetRow, 16).Value
AddEDODetails.CBContainerType = Sheets("Data").Range("Data_Start").Offset(TargetRow, 17).Value
AddEDODetails.TBTSSealNo = Sheets("Data").Range("Data_Start").Offset(TargetRow, 25).Value
AddEDODetails.TBTSWeight = Sheets("Data").Range("Data_Start").Offset(TargetRow, 29).Value
AddEDODetails.Show
End Sub
Regards,
Dale.