Userform ile kitaplar arası kopyalama sorunu

[ojibu]

Private Sub CommandButton7_Click()
Dim gun As String, tablo As String
gun = ComboBox2.Value
tablo = ComboBox3.Value
Application.ScreenUpdating = False
yol = ThisWorkbook.Path & "\CEVAP ANAHTARI\" & gun & ""
Workbooks.Open (yol)
Workbooks(gun).Sheets(tablo).Range("a1:H123").Copy _
Workbooks("DEĞERLENDİRME").Sheets("A CEVAP").Range("a1")
ActiveWorkbook.Close
MsgBox "A KİTAPÇIĞI VERİSİ ALINDI"
End Sub

butona tıklayınca veriyi alıyor userform u kapatınca yapıştrıyor. yani userform açıkken kopyalama tamamlanmıyor. acaba nasıl bir yol izlemeliyim

 

[halit3]

Userformun özelliklerinden ShowModal kısmını False yapın

 

[ojibu]

İlginize teşekkür, oldu.