userforma kayıt etme sorunu

[yildirimm]

öncelikle merhaba ekteki dosyada bi arkadaşımızın yapmış olduğu bi otel programı var buda benim işime çok yarıyor yanlız userform 2 de en altta iki tane label koydum ve iki tanede texbox giriş tarihi ve alınan ücret diye bu iki bolumunde kaydet butonuna basınca kayıt etmesini istiyorum beceremedim simdiden ilginize tşkler dosya ektedir...

 

[yildirimm]

sanırım açılayıcı olmadı daha acık olması icin kisa olarak userform2 de en alta ekledigim giriş tarihi ve ücret kısmı kaydet butonuna basınca excel kayıt yapmıyor bu ikisinimde kaydet butonuna basınca excele kaydetmesini istiyroum ilginize simdien tşkler

 

[mesuttasar]

sanırım açılayıcı olmadı daha acık olması icin kisa olarak userform2 de en alta ekledigim giriş tarihi ve ücret kısmı kaydet butonuna basınca excel kayıt yapmıyor bu ikisinimde kaydet butonuna basınca excele kaydetmesini istiyroum ilginize simdien tşkler

Hangi sayfaya kayıt yaptıracaksınız tarih ve ücret kısmını?

 

[mesuttasar]

Devam2:
'------------- Kayıt ------------------------------------------------
    Kaysay = Val(TextBox1.Text)
    Range("AD1").Select
    ActiveCell.Offset(Kaysay, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = Unvan$ ' Firma Ünvanı
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ComboBox1.ListIndex ' Firma Türü
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = TextBox3.Text ' Şahıs Adı
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = TextBox4.Text ' Şahıs Soyadı
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ComboBox2.ListIndex ' Şahıs Ünvanı
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ComboBox3.ListIndex ' Şahıs Bölümü
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = TextBox5.Text ' Adres1
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = TextBox6.Text ' Adres2
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = TextBox7.Text ' Adres3
    ActiveCell.Offset(0, 1).Range("A1").Select '
    ActiveCell.FormulaR1C1 = ComboBox4.ListIndex ' Şehir
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = ComboBox5.ListIndex ' Bölge
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = TextBox8.Text ' Telefon1
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = TextBox9.Text ' Telefon2
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = TextBox10.Text ' Fax
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = TextBox11.Text ' Görüş1
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = TextBox12.Text ' Görüş2
[B][COLOR=red]        ActiveCell.Offset(0, 2).Range("A1").Select
    ActiveCell.FormulaR1C1 = TextBox14.Text [COLOR=mediumturquoise]' Ücret[/COLOR]
        ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.FormulaR1C1 = TextBox15.Text [/COLOR][COLOR=mediumturquoise]' Tarih[/COLOR][/B]

İlgili kodun alt kısmına kırmızı ile yazmış olduğum kodları yapıştırırsanız Ücret ve Çıkış Tarihinide işlemiş olursunuz.

 

[yildirimm]

çok tşk ederim ilginize ufak bir sorum daha olacak simdi giriş tarihini filan otomatik kayıt ediyor çıkış tarihinde ben elle yaziorum raporlama kısmında giriş tarihi çıkış tarihi ve fiyat görmek istiyorum bunu nasıl yapabilirim şimdiden tşkler

 

[mesuttasar]

çok tşk ederim ilginize ufak bir sorum daha olacak simdi giriş tarihini filan otomatik kayıt ediyor çıkış tarihinde ben elle yaziorum raporlama kısmında giriş tarihi çıkış tarihi ve fiyat görmek istiyorum bunu nasıl yapabilirim şimdiden tşkler

Rapor kısmında ücretlendirmeyide yapmasını mı istiyorsunuz?

 

[yildirimm]

evet rapor kısmında giriş tarihi çıkış tarihi vede ücretlendirmeyide yapmasını istiyorum