Run-time error '400' hatası

[gertt]

Merhaba.
Aşağıdaki kodda:
UserForm1.Show kısmında,
Run-time error '400':
Form already displayed;can't show modally hatasını vermektedir.
Yardımcı olabilir misiniz?
Teşekkürler...

Private Sub CommandButton2_Click()
If ComboBox1.Text = "" Then
DİKKAT.Label1.Caption = "KUTUYU BOŞ BIRAKMAYIN"
DİKKAT.Show
ElseIf ComboBox1.Text <> "" Then
UserForm1.TextBox3.Text = ComboBox1.Text
UserForm1.Show

End If
End Sub

 

[Ömer]

Merhaba,

Sorunuzu küçük bir örnek dosya ile desteklermisiniz.

 

[revelte]

Bu kodu UserForm1 içerisinden çalıştırıyorsun sanırım

Eğer öyleyse kodunun başında şöyle bir tanımlama yap

Dim f As New UserForm1

kullandığın kodda UserForm1 ile yaptığın işlemleri f değişkeni ile yap.
Yani UserForm1.Show yerine f.Show şeklinde kullan

 

[gertt]

Sayın revelte teşekkürler.Sorun çözüldü...