koşullu form çalıştırma

[CILEKESH]

=EĞER(ŞİFRE!D1=0;"Userform1 çalıştır";Userform2 çalıştır)

Şimdi formulle anlatmaya çalıştığımı kod ile yazmam lazım,

Yani D1 hücresindeki değer sıfırdan başka bir değerse Userform6 çalışacak,
Sıfır ise Userform1 çalışacak.

Aşağıdaki kod herhangi bir sorgulama yapmadan form1'i açıyor bu koda yukarıdaki koşulu ekleyebilirmiyiz?

Sub Kapat()
Unload UserForm5
Sheets("Gelirler").Select
UserForm1.Show
End Sub

 

[CILEKESH]

Sayın İhsan Tank bu sorunun cevabını aşağıdaki linkte vermiştir.
http://www.excel.web.tr/f48/harddisk-seri-noyu-hucreye-yazdyrma-t106829/sayfa2.html#post582059