Evrak kayıt programı

[sefaburan]

Değerli ARkadaşlar evrak takip programı yapmaya çalıştım lakin;

1- Anasayfadaki yapılan işlemleri hazırlamış olduğum userformlar aracılığıyla nasıl yapabilirim.
2- Anasayfadaki işlemlerle yada yardımlarınızla hazırlanmış olacak userformlarla deftere kayıt edilen girdilere otomatik sıra numarası vermek mümkün mü?

3- Son cevap tarihleri girilen yazılarda o tarih yaklaştıkça beni msgbox sayesinde uyarması sağlanabilir mi?

4-Yine tasarladığım Evrak İsimli userform ile istediğimiz bir evrağı gelen ya da giden defterinden bulmak mümkün müdür?


4- Teşekkürler


http://www.dosya.tc/server33/mtwOCK/EVRAKTAK_PS_STEM___rnek_.rar.html

 

[sefaburan]

yok mu???

 

[Hakan ERDOST]

yok mu???

Gelen ve Giden evrak bölümlerini yaptım. Arama bölümüne bakamadım, zamanım yok.Link aşağıda.

http://www.dosya.tc/server33/pJHVVP/EVRAKTAK_PS_STEM___rnek_.rar.html

 

[Emir Hüseyin Çoban]

. . .

Aranan veriyi bulduktan sonra ne yapacak belirtmemişsiniz.
Ben şimdilik sadece satırı seçtirdim.
Arama yap butonu için kodlar.

Private Sub CommandButton1_Click()
    Dim defter As String
    If ComboBox1.Text <> "" And TextBox1.Text <> "" Then
        defter = ComboBox1.Text
        Set ara = Sheets(defter).Range("C4:D65536").Find(TextBox1, , xlValues, xlWhole)
        If Not ara Is Nothing Then
            Sheets(defter).Select
            Cells(ara.Row, "B").Select
        Else
            MsgBox TextBox1.Text & " Yok ", vbCritical
        End If
    Else
        MsgBox " Arama Kriterlerini Doldurun", vbCritical
    End If
End Sub

. . .

 

[sefaburan]

. . .

Aranan veriyi bulduktan sonra ne yapacak belirtmemişsiniz.
Ben şimdilik sadece satırı seçtirdim.
Arama yap butonu için kodlar.

Private Sub CommandButton1_Click()
    Dim defter As String
    If ComboBox1.Text <> "" And TextBox1.Text <> "" Then
        defter = ComboBox1.Text
        Set ara = Sheets(defter).Range("C4:D65536").Find(TextBox1, , xlValues, xlWhole)
        If Not ara Is Nothing Then
            Sheets(defter).Select
            Cells(ara.Row, "B").Select
        Else
            MsgBox TextBox1.Text & " Yok ", vbCritical
        End If
    Else
        MsgBox " Arama Kriterlerini Doldurun", vbCritical
    End If
End Sub

. . .

hüseyin abi kodu yerleştirdim de userformdaki arama yapmak istediğiniz defteri seçiniz bölümünde gelen ve giden evrak defterini seçmiyor.

 

[sefaburan]

1- Kayıtlara otomatik sıra numarası vermek mümkün mü? Ben sıra vermekle uğraşmayım. her kayıt için yeni sıra numarası versin.

2- Son cevap tarihleri girilen yazılarda o tarih yaklaştıkça beni msgbox sayesinde uyarması sağlanabilir mi?

3- Evrak İsimli userform ile istediğimiz bir evrağı gelen ya da giden defterinden bulmak mümkün müdür?

 

[Emir Hüseyin Çoban]

hüseyin abi kodu yerleştirdim de userformdaki arama yapmak istediğiniz defteri seçiniz bölümünde gelen ve giden evrak defterini seçmiyor.

. . .

Kodları tabloya uyguladım. Ektedir.

...::: Ekli Dosyayı İndirmek İçin Linki Tıklayınız :::...
https://yadi.sk/d/tWHrpfgbXASnD

. . .

 

[sefaburan]

. . .

Kodları tabloya uyguladım. Ektedir.



. . .

abi tamm. ekledim. lakin. http://s3.dosya.tc/server26/xknnnU/EVRAKTAK_PS_STEM_.rar.html ekte arama yapmak istedğimde Örneğin: Giden Evrak için arama yapacağı zaman, Mutlaka c ya da d sütununua yazılanın tamamını girdiğimizde buluyor. peki buna sadece kelime ya da rakam arama yapamaz mıyız? yani ben talet kelimesini arattığımda giden evraktaki Talet Karabacak'ın Kimlik Kartları konulu evrakı bulmasını sağlayamaz mıyız? ya da tüm içinde Talet Geçenleri.

 

[Emir Hüseyin Çoban]

. . .

Eşleştirmeyle ilgili bir durum belirtmediğin için ve örnek dosyanda deneme yapılabilecek veri olmadığı için tam eşleşmeye göre kodlama yapmıştım.
İlgili satırı şu şekilde değiştirerek deneyin.

Set ara = Sheets(defter).Range("C4:D65536").Find(TextBox1, , xlValues, [B][COLOR="Red"]xlPart[/COLOR][/B])

Ancak bu yapı tabloya çok uygun değil. Aranan veriden birden fazla olunca ne olacak ?
Kodlar ilk uygun olanı bulacaktır.

. . .

 

[sefaburan]

anladım abi peki sonrakini bul şeklinde bir bölüm ekleyemez miyiz?

birde şu sıkıntılarım var.

1- Kayıtlara otomatik sıra numarası vermek mümkün mü? Ben sıra vermekle uğraşmayım. her kayıt için yeni sıra numarası versin.

2- Son cevap tarihleri girilen yazılarda o tarih yaklaştıkça beni msgbox sayesinde uyarması sağlanabilir mi?

3- Evrak Kayıt tarihleri için butona tıkladığımda aylık takvim çıkarsa ben o takvimden seçtiğim günü eklese mümkün mü

 

[Emir Hüseyin Çoban]

anladım abi peki sonrakini bul şeklinde bir bölüm ekleyemez miyiz?
birde şu sıkıntılarım var.
1- Kayıtlara otomatik sıra numarası vermek mümkün mü? Ben sıra vermekle uğraşmayım. her kayıt için yeni sıra numarası versin.

. . .

Bulunanları listelemesi için müsait olduğumda bir çalışma yapacağım.

Sıra no için, Gelen ve Giden formalarının kod bölümüne yapıştırın.

Private Sub UserForm_Initialize()
Sayfa = Me.Name
TextBox10.Text = Sheets(Sayfa).[B65536].End(3).Row - 2
End Sub

. . .

 

[sefaburan]

. . .

Bulunanları listelemesi için müsait olduğumda bir çalışma yapacağım.

Sıra no için, Gelen ve Giden formalarının kod bölümüne yapıştırın.

Private Sub UserForm_Initialize()
Sayfa = Me.Name
TextBox10.Text = Sheets(Sayfa).[B65536].End(3).Row - 2
End Sub

. . .

abi sen mükemmelsin. ALLAH razı olsun. sıra numarası büyük sorundu. Harikasın. ALLAH çok çok razı olsun mübarek günde.

 

[Emir Hüseyin Çoban]

anladım abi peki sonrakini bul şeklinde bir bölüm ekleyemez miyiz?

. . .

Dosyanız ektedir.

Ekran görüntüsü:

...::: Ekli Dosyayı İndirmek İçin Linki Tıklayınız :::...
https://yadi.sk/d/QLCmhpO3XE6cV

. . .

 

[sefaburan]

hüseyin abi sen olmasan vallahi excel çekilmez Allah razı olsun harika olmuş. eline sağlık

 

[alisoyluca]

teşekkürler