Private
Sub
CMD_ImportSel_Click()
Dim
i
As
Long
, bl
As
Boolean
, j
As
Long
<strong>
Dim
sc
As
Range, st
As
Range</strong>
bl =
False
For
i = 0
To
Me
.ListboxB.ListCount - 1
If
Me
.ListboxB.Selected(i) =
True
Then
<strong>
Set
sc = Range(Range(
"AK"
& (ListboxB.ListIndex + 1) * 37 - 37 + 2).Offset(0, 0), Range(
"AK"
& (ListboxB.ListIndex + 1) * 37 - 37 + 2).Offset(36, 34))</strong>
For
j = 0
To
Me
.ListboxA.ListCount - 1
If
Me
.ListboxB.Column(0, i) =
Me
.ListboxA.Column(0, j)
Then
bl =
True
Exit
For
End
If
Next
<strong>
Set
st = Range(Range(
"A"
& (ListboxA.ListIndex + 1) * 37 - 37 + 2).Offset(0, 0), Range(
"A"
& (ListboxA.ListIndex + 1) * 37 - 37 + 2).Offset(36, 34))</strong>
If
bl =
False
Then
With
Me
.ListboxA
.List(ListboxA.ListIndex, 0) =
Me
.ListboxB.Column(0, i)
.List(ListboxA.ListIndex, 1) =
Me
.ListboxB.Column(1, i)
End
With
<strong> sc.Copy
st.PasteSpecial Paste:=xlPasteValues</strong>
Else
MsgBox
"Field already added"
, vbInformation,
"Note:"
End
If
End
If
Next
End
Sub