Soru Inputbox

[sirkülasyon]

Private Sub CommandButton1_Click()
Dim S1 As Worksheet
Dim SONSAT
Set S1 = Sheets("Sayfa1")
Ad = InputBox("Lütfen Personele Ait Ad - Soyad Giriniz")
TC = InputBox("Lütfen Personele Ait Vatandaşlık T.C Kimlik No Giriniz")
Brans = InputBox("Lütfen Personele Ait Branşı Giriniz")
Kurum =InputBox("Lütfen Personele Ait Kurum Adını Giriniz")
Ka = Ad & TC & Brans & Kurum
With S1
For i = 1 To .[c65536].End(3).Row
Kb = .Cells(i, 2) & .Cells(i, 3) & .Cells(i, 4) & .Cells(i, 5)
If Kb = Ka Then MsgBox " Bu Kayıt Daha Önce Girilmiş": Exit Sub
Next
SONSAT = .[a65536].End(3).Row + 1
.Cells(SONSAT, "A") = SONSAT - 1
.Cells(SONSAT, "B") = Ad
.Cells(SONSAT, "C") = TC
.Cells(SONSAT, "D") = Brans
.Cells(SONSAT, "E") = Kurum
MsgBox "Kayıt Başarıyla İşlendi..."
End With
End Sub


Brans sırasında UserForm1' in açılması ve seçimden sonra kapanması
Kurum sırasında da UserForm2' nin açılması ve ve seçimden sonra kapanması
mümkün müdür?
Yardımcı olabilir misiniz?

 

[yanginci34]

örnek dosya yüklermisiniz.

 

[sirkülasyon]

İlgili dosya

 

[Orion1]

Hepsini 1 userform içinde yapsanız daha doğru olmayacakmı?

 

[sirkülasyon]

Olur tabi ustam.
Sadece bu forumda çok eksantrik programlar, dosyalar gördüm. Olabilir mi diye düşünmüştüm.
Userform ile hazırlıyorum ustam