Userform ile Fatura numarasi

[Jezus]

Userform ile bir fatura calismasi yaptim fakat numara problemini halledemedim bu konuda yardimlarinizi bekliyorum..?

 

[mehmett]

Sn Jezus

Sorularınızı Excel İçin Örnek Çalışmalar ve Linkler bölümünde değil, Soru bölümlerinde sorunuz.

 

[Levent Menteşoğlu]

Numara problemini biraz daha açarmısınız? Hangi userformda? Birde VBE şifreli, gerçi ben "Jezus" olabileceğini ilk denemede buldum.

 

[Jezus]

ornek

Syn. Levenm anladigim kadariyla siz fatura formunu acmamissiniz ve bu yuzden fatura no yerini goremediniz ben ekran resmini size gonderiyorum lutfen bir bakin

 

[Levent Menteşoğlu]

Fatura nosunda çözemediğiniz nedir? yani bu noyu sayfa üzerine kaydetmektemi yoksa sayfadan tekrar userforma getirmektemi sorun var.

 

[Jezus]

Selam hocam

Her fatura yazdigimizda kendisi otomatik FATURA NUMARASI yazsin istedim ama ben yapamadim hocam ( sayfada gorduklerinizi ben elle yazdim ) istedigim elle mudahale olmadan kendisi yazsin hatta fatura no yu duzeltmek dahi mumkun olmasin bilmem derdimi anlatabildinmi..?

 

[Levent Menteşoğlu]

Aşağıdaki kodu userforma kopyalayın.

Private Sub UserForm_Initialize()
TextBox55 = Sheets("fatura").[a65536].End(3).Row - 1
End Sub

Kaydet butonunada aşağıdaki mavi renkli satırı ilave edin.

Private Sub CommandButton1_Click()
.
.
.
[B][COLOR=blue]UserForm_Initialize[/COLOR][/B]
MsgBox "Veriler Fatura formuna kaydedildi .", , " Jezus© 2006 "
End Sub

 

[Jezus]

Kusura bakma hocam, fakat olmadi

 

[Levent Menteşoğlu]

Kusura bakma hocam, fakat olmadi

Olmayan nedir? İstediğiniz bu değilmiydi yoksa dosyada kodun ilave edileceği yer ile ilgili bir sorunmu var.

 

[Jezus]

Hayir hocam, kodlarda bi sorun yok dediginiz gibi yaptim, ama fatura numarasini yazmadi hicbir yede gormedim excele geri donup bakiyorum herseyi yazmis kaydetmis, fakat faturaNo yok ortalikta.

 

[Levent Menteşoğlu]

Kaydet butonuna aşağıdaki mavi renkli satırları ilave edin. Fatura no "Fatura" sayfasındaki BC sütununa kaydedilecektir.

[LEFT]Private Sub CommandButton1_Click()
.
.
.
[COLOR=blue][B]Sheets("Fatura").Cells(DENEME, "bc") = TextBox55[/B][/COLOR]
[COLOR=black]ComboBox1.Text = ""
TextBox2.Text = ""
.[/COLOR]
[COLOR=black].[/COLOR]
[COLOR=black].
[/COLOR][COLOR=blue][B]UserForm_Initialize[/B][/COLOR]
MsgBox "Veriler Fatura formuna kaydedildi .", , " Jezus© 2006 "
End Sub[/LEFT]

 

[Jezus]

Hocam ben pes ettim, benden bu kadar cunki herseyi denedim olmadi, sizde daha fazla kafa yormayin. Bunu ben kullanmiyacagim buna baslamamin iki sebebi vardi

1- benim icin guzel bir antreman,
2- formda belki birisine faydasi olur,
diyerek ugrastim, fakat buraya kadarmis.

Simdi,, devam etmek isteyen arkadaslar varsa sifre Jezus
Leventm hocam sizede cok tesekkur ederim yardimlariniz icin.