Dosyadaki kodların tamamlanması

[Levent Menteşoğlu]

2. mesajda eklediğiniz dosyadaki userformun kod sayfasına aşağıdaki kodları kopyalayarak formu çalıştırın.

Private Sub CommandButton1_Click()
If ComboBox1 = "" Then
MsgBox "Öncelikle bölümü seçiniz."
ComboBox1.SetFocus
Exit Sub
End If
Set s1 = Sheets("" & ComboBox1)
sonsat = s1.[a65536].End(3).Row + 1
For a = 1 To 7
deg = Controls("textbox" & a)
If IsNumeric(Controls("textbox" & a)) = True Then
deg = CDbl(Controls("textbox" & a))
ElseIf IsDate(Controls("textbox" & a)) = True Then
deg = CLng(CDate(Controls("textbox" & a)))
End If
s1.Cells(sonsat, a) = deg
Next
End Sub
 
Private Sub CommandButton2_Click()
Unload Me
End Sub
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "dd mmmm yyyy")
End Sub
 
Private Sub UserForm_Initialize()
For a = 1 To Sheets.Count
ComboBox1.AddItem Sheets(a).Name
Next
End Sub

 

[fikri]

Reyhani_60 kardeşim gördüğüm kadarıyla senin istediğin gibi olmuş. İnşallah İsmail bey de beğenir. Arkaşlarımızın ilgi ve alakalarından bende teşekkür ederim

 

[Reyhani_60]

Evet herkese çok teşekkür ederim. Allah razı olsun...
Valla bizim patronlara öyle kolay kolay bişey beğendiremezsin.. Gelen Malzeme kısmını detaylandırmamı istediler. bakacaz artık yapmaya çalışacaz. kaptık bişeyler yapamazsak yine yardımınızı isterim. Tekrardan Allah razı olsun.. göstermiş olduğunuz ilgi için teşekkür ederim.. İyi günler

 

[muharrem28]

Kantar Kayit Forumunu Kredİ KaRti GİrİŞ Formu Olarak Uygulama..

sonsat' ların oldugu kodları 7 tane satırı initilize dan alın kaydetin click olayına koyun arkadaşlar
yani ekteki gibi. kusuruma bakmayın bilgisayarım bozuk kapnıp duruyo ha kapndı kapancak die hızlı hızlı yapmaya çalışırken dikkat etmemişim mazur görün.

MERHEBA KANTAR KAYIT FORMU YAPMIŞINI BUNA BİRDE BUNA BENZE KREDİ KARTI KAYIT FORMU YAPABİLİRMİSİNİZ SAYGILAR. KANTAR KAYIT DOSYASINI KREDİ KARTI BACISTA FORM OLARAK OLUŞTURDUM O FORMDAKİ GİBİ KREDİ KARTI KAYIT FORMU OLUŞTURMAK İSTİYORUM...