Soru Kayıt ettiğim zaman Exceli kapatıyor.

[sirkülasyon]

Private Sub CommandButton1_Click()
On Error Resume Next
    Cells(ActiveCell.Row, "E") = ComboBox1.Value
    Cells(ActiveCell.Row, "F") = ComboBox2.Value
  
    Unload Me
End Sub

Yukarıdaki kod ile aktif hücreye Combobox1 yan hücreye de combobox2 deki veriyi kayıt ediyorum ancak sayfayı kilitleyip kapatıyor.
Yardımcı olabilir misiniz?

 

[genesis_vision]

Bu şekilde dener misiniz?

Private Sub CommandButton1_Click()
On Error Resume Next
    ActiveCell = ComboBox1.Value
    ActiveCell.Offset(, 1) = ComboBox2.Value
    Unload Me
End Sub

 

[Necdet]

Merhaba,

Verdiğiniz kodlarda sayfa kilitleme olayı yok.
Başka kodlar söz konusudur bence.

 

[sirkülasyon]

Sayın
genesis_vision teşekkür ederim.

Necdet Abi
Sayfanın kod bölümünde hatam varmış. Düzelttim teşekkür ederim

 

[likaba]

Merhabalar,

Kod satırının sonunda yazan Unload Me neyi ifade ediyor?

 

[Necdet]

Merhabalar,

Kod satırının sonunda yazan Unload Me neyi ifade ediyor?

UserForm'u kapatır.

 

[likaba]

UserForm'u kapatır.

Teşekkürler Necdet Bey