UserForm1 Varsa Sil yoksa çık hk.

[HACI46]

Arkadaşlar herkese merhaba
* ThisWorkbook.VBProject.VBComponents.Remove VBComponent:=ThisWorkbook.VBProject.VBComponents.Item("UserForm1") ; Bu Kod ile UserForm1 i sildiriyorum ama programın tekrar çalıştırıldığında, * Bu form silindiği için Hata veriyor.
Bunu ;
Eeger VBProject içerisinde ("UserForm1") var ise sil
Yoksa
Unload me
Bu şekilde nasıl düzenleyebiliriz..?

Deneyim ve tercübelerinize ihtiyacım var, Bi yardımcı olabilecek misiniz.
Herkese sağlıklı günler dileği Selamlar.

 

[halit3]

kod

Sub deneme()
For Each user In ThisWorkbook.VBProject.VBComponents
If user.Name = "UserForm1" Then
MsgBox user.Name
End If
Next
End Sub

 

[HACI46]

kod

Sub deneme()
For Each user In ThisWorkbook.VBProject.VBComponents
If user.Name = "UserForm1" Then
MsgBox user.Name
End If
Next
End Sub

İlginiz için çok teşekkür ediyorum
Çalışmama uyarlamaya çalıştım ama beceremedim.

For Each user In ThisWorkbook.VBProject.VBComponents
If user.Name = "FrmLisans" Then
MsgBox user.Name
End If
Next

If Sheets("AnaSayfa").Range("AA16").Value <= 0 Then

MsgBox "Bu Forma Erişemezsiniz", vbInformation

' UserForm1 var ise sil yoksa FrmGiris.Show
' * ThisWorkbook.VBProject.VBComponents.Remove VBComponent:=ThisWorkbook.VBProject.VBComponents.Item("UserForm1")
' ? Buraya nasıl uyarlamam gerekir.
Else

FrmGiris.Show
End If

Tekrar alakanız için teşekkür ediyorum, Sağ olun sağlıklı kalın inşallah. Selamlar.

 

[halit3]

kod:

Sub deneme()
deg = 0
For Each user In ThisWorkbook.VBProject.VBComponents
If user.Name = "UserForm1" Then
MsgBox user.Name
deg = 1
Exit For
End If
Next

If deg = 1 Then
ThisWorkbook.VBProject.VBComponents.Remove VBComponent:=ThisWorkbook.VBProject.VBComponents.Item("UserForm1")
Else
FrmGiris.Show 0
End If

End Sub

 

[HACI46]

kod:

Sub deneme()
deg = 0
For Each user In ThisWorkbook.VBProject.VBComponents
If user.Name = "UserForm1" Then
MsgBox user.Name
deg = 1
Exit For
End If
Next

If deg = 1 Then
ThisWorkbook.VBProject.VBComponents.Remove VBComponent:=ThisWorkbook.VBProject.VBComponents.Item("UserForm1")
Else
FrmGiris.Show 0
End If

End Sub

Çok teşekkür ederim hocam
Yaylaya geçtik deneyemedim,
Deneyeceğim inşallah.
Sağ olasınız, sağlıklı kakasını. Selamlar.