Private
Sub
cboFirma_Change()
With
Me
.dirFirma
.AddItem
.List(0, 0) =
Me
.cboFirma.Column(0)
.List(0, 1) =
Me
.cboFirma.Column(1)
.List(0, 2) =
Me
.cboFirma.Column(2)
.List(0, 3) =
Me
.cboFirma.Column(3)
.List(0, 4) =
Me
.cboFirma.Column(4)
.List(0, 5) =
Me
.cboFirma.Column(5)
End
With
End
Sub