Formu kapatma

[1Al2Ver]

Merhabalar,

Aşağıdaki kod, userform aracılığı ile sayfalar arasında işlem yaptıktan sonra, userform ekranda kalmaya devam ediyor,

İsteğim ; kopyalama işlemi bitince userform ekrandan kalksın,

Kod'a nasıl bir ilave yapılmalıdır, çözüm rica ediyorum.

Teşekkür ederim.

Private Sub CommandButton1_Click()
    If TextBox1 = "" Then
        MsgBox "Lütfen -Aktarılacak Hücre Adresi- bilgisiniz giriniz !", vbCritical
        TextBox1.SetFocus
        Exit Sub
    End If
 
    If TextBox2 = "" Then
        MsgBox "Lütfen -Veri Sayfasındaki Hedef Hücre- bilgisiniz giriniz !", vbCritical
        TextBox2.SetFocus
        Exit Sub
    End If
    
    If Sheets("Veri").Range(TextBox2).Text = "" Then
        If MsgBox("Aktarmak istediğiniz " & TextBox2 & " hücresi boş !" & Chr(10) & _
        "İşleme devam etmek istiyor musunuz?", vbCritical + vbYesNo) = vbYes Then
        
            With Sheets("Veri").Range(TextBox2)
                .ClearComments
                .AddComment
                .Comment.Visible = False
                .Comment.Text Text:=Sheets("Sorular").Range(TextBox1).Text
            End With
        End If
    End If
End Sub

 

[Ömer]

Merhaba,

Kodların sonuna

Unload Me

Ekleyerek deneyiniz.

 

[1Al2Ver]

Merhaba,

Kodların sonuna

Unload Me

Ekleyerek deneyiniz.

Merhaba Ömer bey,

Sorun hallolmuştur, teşekkür ederim.

Saygılarımla.